Changeset 14 for trunk/Forms/UItemEdit.pas

Timestamp:

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

Author:

george

Message:

• Added: Classes for base data types.

File:

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

trunk/Forms/UItemEdit.pas

@@ -36 +36 @@
 
 uses
-  UMainForm;
+  UMainForm, UDataTypes, UCore;
 
 {$R *.lfm}
@@ -63 +63 @@
 begin
   Report := TReport.Create;
-  Report.Base := MainForm.System;
+  Report.Base := Core.System;
 end;
 
@@ -80 +80 @@
 var
   Values: TDbRows;
-  NewControl: TControl;
   LastTop: Integer;
   I: Integer;
   Column: Integer;
-  ValueType: Integer;
+  DataType: TDataType;
+  NewControl: TWinControl;
+  NewLabel: TLabel;
 const
   ColumnCount = 2;
@@ -100 +101 @@
     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.Load(TReportLine(Report[0]).Items[I]);
+      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).Value := StrToInt(TReportLine(Report[0]).Items[I]);
-        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).Date := StrToDate(TReportLine(Report[0]).Items[I]);
-        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).Value := StrToFloat(TReportLine(Report[0]).Items[I]);
-        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).Text := TReportLine(Report[0]).Items[I];
-        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;
-        TCheckBox(NewControl).Checked := Boolean(StrToInt(TReportLine(Report[0]).Items[I]));
-      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;
-        TEdit(NewControl).Text := TReportLine(Report[0]).Items[I];
-      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;