Changeset 14 for trunk/Forms/UItemAdd.pas

Timestamp:

Jun 10, 2011, 2:16:52 PM (13 years ago)

Author:

george

Message:

• Added: Classes for base data types.

File:

• trunk/Forms/UItemAdd.pas (modified) (4 diffs)

trunk/Forms/UItemAdd.pas

@@ -36 +36 @@
 
 uses
-  UMainForm;
+  UMainForm, UDataTypes, UCore;
 
 {$R *.lfm}
@@ -61 +61 @@
 begin
   Report := TReport.Create;
-  Report.Base := MainForm.System;
+  Report.Base := Core.System;
 end;
 
@@ -77 +77 @@
 procedure TItemAddForm.BuildControls;
 var
-  NewControl: TControl;
+  NewControl: TWinControl;
   LastTop: Integer;
   I: Integer;
   Column: Integer;
   ValueType: Integer;
+  NewLabel: TLabel;
+  DataType: TDataType;
 const
   ColumnCount = 2;
@@ -97 +99 @@
     for I := 0 to Report.Columns.Count - 1 do
     if TReportColumn(Report.Columns[I]).ColumnName <> 'Id' then begin
-      NewControl := TLabel.Create(Panel1);
+      NewLabel := TLabel.Create(Panel1);
+      NewLabel.Parent := Panel1;
+      NewLabel.Top := LastTop;
+      NewLabel.Left := Column * Width div ColumnCount + 10;
+      NewLabel.Caption := TReportColumn(Report.Columns[I]).Caption + ':';
+
+      DataType := TReportColumn(Report.Columns[I]).CustomType;
+      NewControl := DataType.CreateControl(Panel1);
+      DataType.SetDefault;
+      DataType.SetupControl(NewControl);
       NewControl.Parent := Panel1;
       NewControl.Top := LastTop;
-      NewControl.Left := Column * Width div ColumnCount + 10;
-      TLabel(NewControl).Caption := TReportColumn(Report.Columns[I]).Caption + ':';
-
-      ValueType := TReportColumn(Report.Columns[I]).TypeDef.TypeIndex;
-      if ValueType = Integer(vtInteger) then begin
-        NewControl := TSpinEdit.Create(Panel1);
-        NewControl.Parent := Panel1;
-        NewControl.Top := LastTop;
-        NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
-        TSpinEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
-      end else
-      if ValueType = Integer(vtDate) then begin
-        NewControl := TDateEdit.Create(Panel1);
-        NewControl.Parent := Panel1;
-        NewControl.Top := LastTop;
-        NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
-        TDateEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
-      end else
-      if ValueType = Integer(vtFloat) then begin
-        NewControl := TFloatSpinEdit.Create(Panel1);
-        NewControl.Parent := Panel1;
-        NewControl.Top := LastTop;
-        NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
-        TFloatSpinEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
-      end else
-      if ValueType = Integer(vtString) then begin
-        NewControl := TEdit.Create(Panel1);
-        NewControl.Parent := Panel1;
-        NewControl.Top := LastTop;
-        NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
-        TEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
-      end else
-      if ValueType = Integer(vtPassword) then begin
-        NewControl := TMaskEdit.Create(Panel1);
-        NewControl.Parent := Panel1;
-        NewControl.Top := LastTop;
-        NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
-        TMaskEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
-      end else
-      if ValueType = Integer(vtBoolean) then begin
-        NewControl := TCheckBox.Create(Panel1);
-        NewControl.Parent := Panel1;
-        NewControl.Top := LastTop;
-        NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
-      end else begin
-        NewControl := TEdit.Create(Panel1);
-        NewControl.Parent := Panel1;
-        NewControl.Top := LastTop;
-        NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
-        TEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
-      end;
+      NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
+      NewControl.Width := (Width div ColumnCount) div 2 - 20;
 
       Column := (Column + 1) mod 2;