Changeset 41 for trunk/Forms/UItemAdd.pas

Timestamp:

Mar 9, 2012, 9:40:05 AM (12 years ago)

Author:

chronos

Message:

• Fixed: Memory leak in TReportColumn.
• Modified: Main item list is created once on application start instead on every tree item mouse doubleclick.

File:

• trunk/Forms/UItemAdd.pas (modified) (3 diffs)

trunk/Forms/UItemAdd.pas

@@ -23 +23 @@
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure FormKeyPress(Sender: TObject; var Key: char);
     procedure FormShow(Sender: TObject);
   private
@@ -100 +101 @@
 end;
 
+procedure TItemAddForm.FormKeyPress(Sender: TObject; var Key: char);
+begin
+  if Key = #27 then Close;
+end;
+
 procedure TItemAddForm.FormShow(Sender: TObject);
 begin
@@ -124 +130 @@
     Panel1.Controls[I].Free;
 
-  //Report.Load(SelectedObject, SelectedObject.PrimaryKey + ' = ' +
-  //  IntToStr(SelectedItemId));
+  Report.Load(SelectedObject, SelectedObject.PrimaryKey + ' = ' +
+    IntToStr(SelectedItemId));
 
   // Load column names