Changeset 6 for trunk/Forms/UFormSetting.pas

Timestamp:

Nov 14, 2012, 10:35:10 AM (12 years ago)

Author:

chronos

Message:

• Přidáno: Zobrazení seznamu položek dle zadání struktury tabulky pomocí definice sloupců seznamu.
• Přidáno: Pamatování si pozice a velikosti okna.
• Přidáno: Překlad rozhraní do češtiny.

File:

• trunk/Forms/UFormSetting.pas (modified) (2 diffs)

trunk/Forms/UFormSetting.pas

@@ -13 +13 @@
 
   TFormSetting = class(TForm)
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
     { private declarations }
@@ -26 +30 @@
 {$R *.lfm}
 
+uses
+  UCore;
+
+{ TFormSetting }
+
+procedure TFormSetting.FormClose(Sender: TObject; var CloseAction: TCloseAction
+  );
+begin
+end;
+
+procedure TFormSetting.FormCreate(Sender: TObject);
+begin
+  Core.PersistentForm.Load(Self);
+end;
+
+procedure TFormSetting.FormDestroy(Sender: TObject);
+begin
+  Core.PersistentForm.Save(Self);
+end;
+
+procedure TFormSetting.FormShow(Sender: TObject);
+begin
+end;
+
 end.