Changeset 8 for trunk/UFormAcronym.pas

Timestamp:

Apr 21, 2016, 1:12:45 PM (8 years ago)

Author:

chronos

Message:

• Added: Also allow to edit acronym detailed description.
• Added: Import from CSV file.

File:

• trunk/UFormAcronym.pas (modified) (4 diffs)

trunk/UFormAcronym.pas

@@ -20 +20 @@
     Label1: TLabel;
     Label2: TLabel;
+    Label3: TLabel;
+    MemoDescription: TMemo;
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
+    procedure FormShow(Sender: TObject);
   private
     { private declarations }
@@ -35 +39 @@
 {$R *.lfm}
 
+uses
+  UFormMain;
+
 { TFormAcronym }
 
@@ -44 +51 @@
 end;
 
+procedure TFormAcronym.FormClose(Sender: TObject; var CloseAction: TCloseAction
+  );
+begin
+  FormMain.PersistentForm1.Save(Self);
+end;
+
+procedure TFormAcronym.FormShow(Sender: TObject);
+begin
+  FormMain.PersistentForm1.Load(Self);
+end;
+
 procedure TFormAcronym.Load(Entry: TAcronymEntry);
 begin
   EditAcronym.Text := Entry.Name;
   EditMeaning.Text := Entry.Meaning;
+  MemoDescription.Text := Entry.Description;
 end;
 
@@ -54 +73 @@
   Entry.Name := EditAcronym.Text;
   Entry.Meaning := EditMeaning.Text;
+  Entry.Description := MemoDescription.Text;
 end;