Ignore:
Timestamp:
Aug 9, 2018, 3:43:27 PM (6 years ago)
Author:
chronos
Message:
  • Modified: Update Common package.
  • Fixed: Remember forms dimensions after application restart.
Location:
branches/generator/Forms
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/generator/Forms

    • Property svn:ignore

      •  

        old new  
        11*.lrj
         2*.lrt

  • branches/generator/Forms/UFormLookupTable.pas

    r137 r167  
    1818    EditName: TEdit;
    1919    Label1: TLabel;
     20    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     21    procedure FormShow(Sender: TObject);
    2022  private
    2123
    … …  
    3234{$R *.lfm}
    3335
     36uses
     37  UCore;
     38
    3439{ TFormLookupTable }
     40
     41procedure TFormLookupTable.FormClose(Sender: TObject;
     42  var CloseAction: TCloseAction);
     43begin
     44  Core.PersistentForm1.Save(Self);
     45end;
     46
     47procedure TFormLookupTable.FormShow(Sender: TObject);
     48begin
     49  Core.PersistentForm1.Load(Self);
     50end;
    3551
    3652procedure TFormLookupTable.LoadData(LookupTable: TLookupTable);
Note: See TracChangeset for help on using the changeset viewer.