Changeset 16 for trunk/Application/UDataTypes.pas

Timestamp:

Jun 13, 2011, 12:43:29 PM (13 years ago)

Author:

george

Message:

• Modified: Enhanced handling of RelationOne and RelationMany rdata types.
• Added: Planned/finished feature list.

File:

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

trunk/Application/UDataTypes.pas

@@ -20 +20 @@
     procedure LoadDef(CustomType: Integer); virtual;
     procedure SetDefault; virtual;
+    function GetStringValue: string; virtual;
   end;
 
@@ -74 +75 @@
   TDataTypeRelationOne = class(TDataType)
     ObjectId: Integer;
+    SelectedItemName: string;
+    function CreateControl(Owner: TComponent): TWinControl; override;
+    procedure SetupControl(Control: TWinControl); override;
+    procedure Load(CellValue: string); override;
+  end;
+
+  { TDataTypeRelationMany }
+
+  TDataTypeRelationMany = class(TDataType)
+    ObjectId: Integer;
+    PropertyID: Integer;
+    SelectedItemName: string;
     function CreateControl(Owner: TComponent): TWinControl; override;
     procedure SetupControl(Control: TWinControl); override;
@@ -143 +156 @@
   if BaseType = Integer(vtBoolean) then begin
     Result := TDataTypeBoolean.Create;
+  end else
+  if BaseType = Integer(vtRelationOne) then begin
+    Result := TDataTypeRelationOne.Create;
+  end else
+  if BaseType = Integer(vtRelationMany) then begin
+    Result := TDataTypeRelationMany.Create;
   end else begin
     Result := TDataTypeString.Create;
@@ -149 +168 @@
 end;
 
+{ TDataTypeRelationMany }
+
+function TDataTypeRelationMany.CreateControl(Owner: TComponent): TWinControl;
+begin
+  Result:=inherited CreateControl(Owner);
+end;
+
+procedure TDataTypeRelationMany.SetupControl(Control: TWinControl);
+begin
+  inherited SetupControl(Control);
+end;
+
+procedure TDataTypeRelationMany.Load(CellValue: string);
+begin
+  inherited Load(CellValue);
+end;
+
 { TDataTypeRelationOne }
 
 function TDataTypeRelationOne.CreateControl(Owner: TComponent): TWinControl;
 begin
-  Result:=inherited CreateControl(Owner);
+  Result := TEdit.Create(Owner);
+  TEdit(Result).Enabled := False;
 end;
 
 procedure TDataTypeRelationOne.SetupControl(Control: TWinControl);
 begin
-  inherited SetupControl(Control);
+  TEdit(Control).Text := SelectedItemName;
 end;
 
 procedure TDataTypeRelationOne.Load(CellValue: string);
 begin
-  inherited Load(CellValue);
+  SelectedItemName := CellValue;
 end;
 
@@ -333 +370 @@
 end;
 
+function TDataType.GetStringValue: string;
+begin
+  Result := '';
+end;
+
 end.