Changeset 7 for trunk/Forms/UFormContact.pas

Timestamp:

Jan 31, 2018, 11:38:07 PM (7 years ago)

Author:

chronos

Message:

• Fixed: Use correct translation files. Translate contact edit form.
• Fixed: Build deb file.

File:

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

trunk/Forms/UFormContact.pas

@@ -33 +33 @@
     TabSheetDetails: TTabSheet;
     TabSheetAll: TTabSheet;
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
 
@@ -47 +50 @@
 {$R *.lfm}
 
+uses
+  UCore;
+
 { TFormContact }
+
+procedure TFormContact.FormShow(Sender: TObject);
+begin
+  Core.PersistentForm1.Load(Self);
+end;
+
+procedure TFormContact.FormClose(Sender: TObject; var CloseAction: TCloseAction
+  );
+begin
+  Core.PersistentForm1.Save(Self);
+end;
+
+procedure TFormContact.FormCreate(Sender: TObject);
+begin
+  Core.CoolTranslator1.TranslateComponentRecursive(Self);
+end;
 
 procedure TFormContact.LoadData(Contact: TContact);