Changeset 5 for trunk/Forms/UItemEdit.pas

Timestamp:

Jun 3, 2010, 6:00:52 PM (14 years ago)

Author:

george

Message:

• Přidáno: Formulář pro vkládání položek.

File:

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

trunk/Forms/UItemEdit.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
-  StdCtrls, Spin, EditBtn, USqlDatabase;
+  StdCtrls, Spin, EditBtn, USqlDatabase, MaskEdit;
 
 type
@@ -128 +128 @@
         TEdit(NewControl).Text := Values[0].Values[Properties[I].Values['ColumnName']];
         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(Values[0].Values[Properties[I].Values['ColumnName']]));
+      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 := Values[0].Values[Properties[I].Values['ColumnName']];
       end;