Changeset 23 for trunk/Forms/UItemSelect.pas

Timestamp:

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

Author:

george

Message:

• Modified: Selection form set selected item id.

File:

• trunk/Forms/UItemSelect.pas (modified) (4 diffs)

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;