Changeset 23 for trunk/Application/UDataTypes.pas

Timestamp:

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

Author:

george

Message:

• Modified: Selection form set selected item id.

File:

• trunk/Application/UDataTypes.pas (modified) (3 diffs)

trunk/Application/UDataTypes.pas

@@ -14 +14 @@
   TDataType = class
     CustomType: Integer;
+    Control: TWinControl;
     function CreateControl(Owner: TComponent): TWinControl; virtual;
     procedure SetupControl(Control: TWinControl); virtual;
@@ -256 +257 @@
   ItemSelectForm.ObjectId := ObjectId;
   ItemSelectForm.ShowModal;
+  TEditButton(Control).Text := IntToStr(ItemSelectForm.SelectedId)
 end;
 
@@ -264 +266 @@
   TEditButton(Result).Button.Enabled := True;
   TEditButton(Result).Button.OnClick := ButtonClickExecute;
+  Control := Result;
 end;