Changeset 12 for trunk/USystem.pas

Timestamp:

Jun 9, 2011, 1:04:45 PM (13 years ago)

Author:

george

Message:

• Fixed: Display edit controls according property type.
• Added: Interface language translation.

File:

• trunk/USystem.pas (modified) (7 diffs)

trunk/USystem.pas

@@ -35 +35 @@
   TReportColumn = class
     Caption: string;
-    TypeId: Integer;
     TypeDef: TChronisType;
     ColumnName: string;
@@ -76 +75 @@
   end;
 
+  { TChronisTypeList }
+
+  TChronisTypeList = class(TListObject)
+    function FindById(Id: Integer): TChronisType;
+    function FindByTypeIndex(Id: Integer): TChronisType;
+  end;
+
   { TChronisBase }
 
   TChronisBase = class
-    Types: TListObject;  // TList<TChronisType>
+    Types: TChronisTypeList;
     Database: TSQLDatabase;
     function AddType(Name, DataType: string; TypeIndex: TDbValueType): Integer;
@@ -85 +91 @@
     function AddProperty(ObjectId: Integer; Name, ColumnName: string; DataType: Integer): Integer;
     function AddObjectGroup(Name: string): Integer;
+    procedure LoadTypes;
     constructor Create;
     destructor Destroy; override;
@@ -92 +99 @@
 
 implementation
+
+{ TChronisTypeList }
+
+function TChronisTypeList.FindById(Id: Integer): TChronisType;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (TChronisType(Items[I]).Id <> Id) do Inc(I);
+  if I < Count then Result := TChronisType(Items[I])
+    else Result := nil;
+end;
+
+function TChronisTypeList.FindByTypeIndex(Id: Integer): TChronisType;
+var
+  I: Integer;
+begin
+  I := 0;
+  while (I < Count) and (TChronisType(Items[I]).TypeIndex <> Id) do Inc(I);
+  if I < Count then Result := TChronisType(Items[I])
+    else Result := nil;
+end;
 
 { TReportLine }
@@ -128 +157 @@
       NewColumn.Caption := 'Id';
       NewColumn.ColumnName := 'Id';
-      NewColumn.TypeId := Integer(vtInteger);
+      NewColumn.TypeDef := Base.Types.FindByTypeIndex(Integer(vtInteger));
       for I := 0 to Properties.Count - 1 do
       if Properties[I].Values['Type'] <> IntToStr(20) then begin
@@ -135 +164 @@
         NewColumn.Caption := Properties[I].Values['Name'];
         NewColumn.ColumnName := Properties[I].Values['ColumnName'];;
-        NewColumn.TypeId := StrToInt(Properties[I].Values['Type']);
+        NewColumn.TypeDef := Base.Types.FindById(StrToInt(Properties[I].Values['Type']));
       end;
 
@@ -241 +270 @@
 end;
 
+procedure TChronisBase.LoadTypes;
+var
+  DbRows: TDbRows;
+  I: Integer;
+begin
+  try
+    DbRows := TDbRows.Create;
+    Types.Clear;
+    Database.Select(DbRows, PropertyTypeTable);
+    for I := 0 to DbRows.Count - 1 do begin
+      with TChronisType(Types.AddNew(TChronisType.Create)) do
+      with DbRows[I] do begin
+        Id := StrToInt(Values['Id']);
+        TypeIndex := StrToInt(Values['TypeIndex']);
+        DbType := Values['DbType'];
+        //Parent := StrToInt(Values['Parent']);
+      end;
+    end;
+  finally
+    DbRows.Free;
+  end;
+end;
+
 constructor TChronisBase.Create;
 begin
   Database := TSqlDatabase.Create;
-  Types := TListObject.Create;
+  Types := TChronisTypeList.Create;
 end;