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/UFormRule.pas

    r129 r167  
    2626    TabSheet2: TTabSheet;
    2727    TabSheetUsedBy: TTabSheet;
     28    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    2829    procedure FormCreate(Sender: TObject);
    2930    procedure FormDestroy(Sender: TObject);
    … …  
    4849{$R *.lfm}
    4950
     51uses
     52  UCore;
     53
    5054{ TFormRule }
    5155
    … …  
    5458  EditName.SetFocus;
    5559  PageControl1.TabIndex := 0;  // Select first tab by default
     60  Core.PersistentForm1.Load(Self);
    5661end;
    5762
    … …  
    8590end;
    8691
     92procedure TFormRule.FormClose(Sender: TObject; var CloseAction: TCloseAction);
     93begin
     94  Core.PersistentForm1.Save(Self);
     95end;
     96
    8797procedure TFormRule.FormDestroy(Sender: TObject);
    8898begin
Note: See TracChangeset for help on using the changeset viewer.