Changeset 20 for trunk/Forms

Timestamp:

Nov 15, 2012, 8:59:57 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Modul, který bude obsahovat implementaci komunikace s přístupovými terminály firmy Chiyu.

File:

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

trunk/Forms/UFormList.pas

@@ -11 +11 @@
 
 type
+  TColumnControlType = (ctText, ctReference, ctBoolean);
+
   TDbColumn = class
     Caption: string;
@@ -16 +18 @@
     Visible: Boolean;
     Width: Integer;
+    ControlType: TColumnControlType;
+    ReferencedTable: string;
   end;
 
@@ -21 +25 @@
 
   TListDbColumn = class(TListObject)
-    procedure AddItem(Caption, Name: string; Visible: Boolean; Width: Integer);
+    function AddItem(Caption, Name: string; Visible: Boolean; Width: Integer): TDbColumn;
   end;
 
@@ -128 +132 @@
 { TListColumns }
 
-procedure TListDbColumn.AddItem(Caption, Name: string; Visible: Boolean;
-  Width: Integer);
-var
-  NewItem: TDbColumn;
-begin
-  NewItem := TDbColumn.Create;
-  NewItem.Caption := Caption;
-  NewItem.Name := Name;
-  NewItem.Visible := Visible;
-  NewItem.Width := Width;
-  Add(NewItem);
+function TListDbColumn.AddItem(Caption, Name: string; Visible: Boolean;
+  Width: Integer): TDbColumn;
+begin
+  Result := TDbColumn.Create;
+  Result.Caption := Caption;
+  Result.Name := Name;
+  Result.Visible := Visible;
+  Result.Width := Width;
+  Add(Result);
 end;