Changeset 22 for trunk/Application

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.

Location:

trunk/Application

Files:

• UApplicationInfo.pas (modified) (1 diff)
• UDataTypes.pas (modified) (2 diffs)

trunk/Application/UApplicationInfo.pas

@@ -50 +50 @@
   Name := 'ChronIS';
   Identification := 1;
-  ReleaseDate := '14.6.2011';
+  ReleaseDate := '16.6.2011';
   MajorVersion := 0;
   MinorVersion := 1;

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