Changeset 114 for branches/generator/Forms/UFormMain.pas

Timestamp:

Nov 27, 2017, 9:08:54 AM (7 years ago)

Author:

chronos

Message:

• Added: Common and TemplateGenerics packages.
• Added: Remember main and rules form dimensions.

Location:

branches/generator

Files:

• . (modified) (1 prop)
• Forms/UFormMain.pas (modified) (4 diffs)

branches/generator/Forms/UFormMain.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Menus, ActnList;
+  Menus, ActnList, ComCtrls, UPersistentForm;
 
 type
@@ -19 +19 @@
     ARules: TAction;
     ActionList1: TActionList;
+    CoolBar1: TCoolBar;
     MainMenu1: TMainMenu;
     MemoBNF: TMemo;
@@ -30 +31 @@
     OpenDialog1: TOpenDialog;
     SaveDialog1: TSaveDialog;
+    ToolBar1: TToolBar;
+    ToolButton1: TToolButton;
     procedure AExitExecute(Sender: TObject);
     procedure AOpenExecute(Sender: TObject);
     procedure ARulesExecute(Sender: TObject);
     procedure ASaveAsExecute(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormShow(Sender: TObject);
   private
@@ -69 +73 @@
 end;
 
+procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
+begin
+  Core.PersistentForm1.Save(Self);
+end;
+
 procedure TFormMain.FormShow(Sender: TObject);
 begin
+  Core.PersistentForm1.Load(Self, True);
   MemoBNF.Lines.Text := Core.Grammer.GetBNF;
 end;