Changeset 17 for trunk/Application/UDataTypes.pas

Timestamp:

Jun 13, 2011, 2:35:01 PM (13 years ago)

Author:

george

Message:

• Fixed: Loading content of RelationMany sublist in item view.

File:

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

trunk/Application/UDataTypes.pas

@@ -86 +86 @@
     ObjectId: Integer;
     PropertyID: Integer;
+    PropertyName: string;
     SelectedItemName: string;
     function CreateControl(Owner: TComponent): TWinControl; override;
     procedure SetupControl(Control: TWinControl); override;
     procedure Load(CellValue: string); override;
+    procedure LoadDef(ACustomType: Integer); override;
   end;
 
@@ -185 +187 @@
 end;
 
+procedure TDataTypeRelationMany.LoadDef(ACustomType: Integer);
+var
+  DbRows: TDbRows;
+  BaseType: Integer;
+begin
+  try
+    DbRows := TDbRows.Create;
+    Core.System.Database.Select(DbRows, TypeRelationMany, '*', 'CustomType=' + IntToStr(ACustomType));
+    PropertyID := StrToInt(DbRows[0].Values['ObjectProperty']);
+  finally
+    DbRows.Free;
+  end;
+  try
+    DbRows := TDbRows.Create;
+    Core.System.Database.Select(DbRows, PropertyTable, '*', 'Id=' + IntToStr(PropertyID));
+    ObjectId := StrToInt(DbRows[0].Values['Object']);
+    PropertyName := DbRows[0].Values['ColumnName'];
+  finally
+    DbRows.Free;
+  end;
+end;
+
 { TDataTypeRelationOne }