Ignore:
Timestamp:
Aug 9, 2018, 3:43:27 PM (7 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/UFormGrammer.pas

    r136 r167  
    2020    Label1: TLabel;
    2121    Label2: TLabel;
     22    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    2223    procedure FormShow(Sender: TObject);
    2324  private
    … …  
    3637{$R *.lfm}
    3738
     39uses
     40  UCore;
     41
    3842{ TFormGrammer }
    3943
    4044procedure TFormGrammer.FormShow(Sender: TObject);
    4145begin
     46  Core.PersistentForm1.Load(Self);
     47end;
     48
     49procedure TFormGrammer.FormClose(Sender: TObject; var CloseAction: TCloseAction
     50  );
     51begin
     52  Core.PersistentForm1.Save(Self);
    4253end;
    4354
Note: See TracChangeset for help on using the changeset viewer.