Changeset 4 for trunk/Forms/UItemEdit.pas

Timestamp:

Jun 3, 2010, 5:25:10 PM (14 years ago)

Author:

george

Message:

• Přidáno: Knihovna pro uchování stavu rozevření stromu.
• Přidáno: Ikonky stromu skupin.

File:

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

trunk/Forms/UItemEdit.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
-  StdCtrls, USqlDatabase;
+  StdCtrls, Spin, EditBtn, USqlDatabase;
 
 type
@@ -70 +70 @@
   Column: Integer;
   ObjectInfo: TDbRows;
+  ValueType: Integer;
 const
   ColumnCount = 2;
@@ -95 +96 @@
       TLabel(NewControl).Caption := Properties[I].Values['Name'] + ':';
 
-      NewControl := TEdit.Create(Panel1);
-      NewControl.Parent := Panel1;
-      NewControl.Top := LastTop;
-      NewControl.Left := Column * Width div ColumnCount + (Width div ColumnCount) div 2;
-      TEdit(NewControl).Text := Values[0].Values[Properties[I].Values['ColumnName']];
-      TEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
+      ValueType := StrToInt(Properties[I].Values['Type']);
+      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(Values[0].Values[Properties[I].Values['ColumnName']]);
+        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(Values[0].Values[Properties[I].Values['ColumnName']]);
+        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(Values[0].Values[Properties[I].Values['ColumnName']]);
+        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 := Values[0].Values[Properties[I].Values['ColumnName']];
+        TEdit(NewControl).Width := (Width div ColumnCount) div 2 - 20;
+      end;
 
       Column := (Column + 1) mod 2;