Changeset 23 for trunk/Forms

Timestamp:

Jun 17, 2011, 9:52:46 AM (13 years ago)

Author:

george

Message:

• Modified: Selection form set selected item id.

Location:

trunk/Forms

Files:

• UItemEdit.lfm (modified) (1 diff)
• UItemSelect.pas (modified) (4 diffs)
• UMainForm.lfm (modified) (1 diff)

trunk/Forms/UItemEdit.lfm

@@ -1 +1 @@
 object ItemEditForm: TItemEditForm
-  Left = 298
+  Left = 251
   Height = 423
-  Top = 125
+  Top = 92
   Width = 552
   ActiveControl = Panel1

trunk/Forms/UItemSelect.pas

@@ -23 +23 @@
     procedure ListView1Resize(Sender: TObject);
   private
+    function GetSelectedId: Integer;
     { private declarations }
   public
@@ -29 +30 @@
     ListObject: TChronisObject;
     procedure LoadList;
+    property SelectedId: Integer read GetSelectedId;
   end;
 
@@ -50 +52 @@
   with TReportLine(Report[Item.Index]) do begin
     Item.Caption := Items[0];
+    Item.Data := Pointer(Id);
     for I := 1 to Items.Count - 1 do
     if not TReportColumn(Report.Columns[I]).VirtualItem then
@@ -62 +65 @@
   for I := 0 to ListView1.Columns.Count - 1 do
     ListView1.Columns[I].Width := ListView1.Width div ListView1.Columns.Count;
+end;
+
+function TItemSelectForm.GetSelectedId: Integer;
+begin
+  if Assigned(ListView1.Selected) then Result := Integer(ListView1.Selected.Data)
+    else Result := -1;
 end;
 

trunk/Forms/UMainForm.lfm

@@ -1 +1 @@
 object MainForm: TMainForm
   Left = 271
-  Height = 447
+  Height = 446
   Top = 159
   Width = 640