Ignore:
Timestamp:
Apr 11, 2018, 11:22:58 AM (7 years ago)
Author:
chronos
Message:
  • Added: Basic TStringTable class.
  • Fixed: Removed various compiler warnings.
Location:
Common
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • Common

    • Property svn:ignore

      •  

        old new  
        11lib
        22backup
         3*.lrj

  • Common/UPersistentForm.pas

    r491 r510  
    5656  I: Integer;
    5757  WinControl: TWinControl;
    58   Count: Integer;
    5958begin
    6059  if Control is TListView then begin
    … …  
    217216
    218217procedure TPersistentForm.Load(Form: TForm; DefaultMaximized: Boolean = False);
    219 var
    220   LoadDefaults: Boolean;
    221218begin
    222219  Self.Form := Form;
    … …  
    230227
    231228  if not EqualRect(FormNormalSize, FormRestoredSize) or
    232     (LoadDefaults and DefaultMaximized) then begin
     229    DefaultMaximized then begin
    233230    // Restore to maximized state
    234231    Form.WindowState := wsNormal;
Note: See TracChangeset for help on using the changeset viewer.