Changeset 22 for trunk/Application/UDataTypes.pas

Timestamp:

Jun 16, 2011, 12:18:21 PM (13 years ago)

Author:

george

Message:

• Modified: Optimalized reloading of columns list in item list.
• Fixed: Add and modify function.

File:

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

trunk/Application/UDataTypes.pas

@@ -81 +81 @@
     function CreateControl(Owner: TComponent): TWinControl; override;
     procedure SetupControl(Control: TWinControl); override;
+    function GetControlValue(Control: TWinControl): string; override;
     procedure Load(CellValue: string); override;
     procedure LoadDef(ACustomType: Integer); override;
@@ -270 +271 @@
 end;
 
+function TDataTypeRelationOne.GetControlValue(Control: TWinControl): string;
+begin
+  Result := TEditButton(Control).Text;
+end;
+
 procedure TDataTypeRelationOne.Load(CellValue: string);
 begin