Changeset 8 for trunk/Forms/UFormEdit.pas

Timestamp:

Nov 14, 2012, 2:58:35 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Ikony k záložkám jednotlivých tabulek.
• Upraveno: Zobecněn systém pohledů na dynamickou strukturu.

File:

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

trunk/Forms/UFormEdit.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Buttons, ExtCtrls;
+  Buttons, ExtCtrls, SpecializedList, SpecializedDictionary;
 
 type
+  TControlType = (ctLabel, ctCheckBox, ctEdit, ctMemo, ctDate, ctTime,
+    ctComboBox);
+
+  TFormItem = class
+    Caption: string;
+    Name: string;
+    Visible: Boolean;
+    Rect: TRect;
+    ControlType: TControlType;
+    TitlePlacement: TAlign;
+  end;
+
+  { TFormItems }
+
+  TFormItems = class(TListObject)
+    function AddItem(Caption, Name: string; ControlType: TControlType;
+      Visible: Boolean; Rect: TRect): TFormItem;
+  end;
 
   { TFormEdit }
@@ -18 +36 @@
     ButtonCancel: TButton;
     procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
   private
     { private declarations }
   public
-    { public declarations }
+    RuntimeControls: TListObject;
+    FormItems: TFormItems;
+    Values: TDictionaryStringString;
+    procedure Update;
   end;
 
@@ -29 +51 @@
 implementation
 
+{ TFormItems }
+
+function TFormItems.AddItem(Caption, Name: string; ControlType: TControlType;
+  Visible: Boolean; Rect: TRect): TFormItem;
+begin
+  Result := TFormItem.Create;
+  Result.Caption := Caption;
+  Result.Name := Name;
+  Result.Visible := Visible;
+  Result.Rect := Rect;
+  Result.ControlType := ControlType;
+  Add(Result);
+end;
+
 {$R *.lfm}
 
@@ -35 +71 @@
 procedure TFormEdit.FormCreate(Sender: TObject);
 begin
+  FormItems := TFormItems.Create;
+  Values := TDictionaryStringString.Create;
+  RuntimeControls := TListObject.Create;
+end;
 
+procedure TFormEdit.FormDestroy(Sender: TObject);
+begin
+  Values.Free;
+  RuntimeControls.Free;
+  FormItems.Free;
+end;
+
+procedure TFormEdit.Update;
+var
+  NewControl: TControl;
+  I: Integer;
+  TitleRect: TRect;
+const
+  W = 50;
+  H = 32;
+begin
+  RuntimeControls.Clear;
+  for I := 0 to FormItems.Count - 1 do
+  with TFormItem(FormItems[I]) do begin
+    if TitlePlacement <> alNone then begin
+      NewControl := TLabel.Create(Self);
+      NewControl.Parent := Self;
+      NewControl.Caption := Caption;
+      TitleRect := Rect;
+      case TitlePlacement of
+        alLeft: TitleRect.Left := TitleRect.Left - 1;
+        alRight: TitleRect.Left := TitleRect.Left + 1;
+        alTop: TitleRect.Top := TitleRect.Top - 1;
+        alBottom: TitleRect.Top := TitleRect.Top + 1;
+      end;
+      NewControl.SetBounds(TitleRect.Left * W, TitleRect.Top * H,
+        (TitleRect.Right - TitleRect.Left) * W, (TitleRect.Bottom - TitleRect.Top) * H);
+      NewControl.Show;
+    end;
+    if ControlType = ctLabel then begin
+      NewControl := TLabel.Create(Self);
+      NewControl.Parent := Self;
+      NewControl.Caption := Values.Values[Name];
+      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
+        (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
+      NewControl.Show;
+    end else
+    if ControlType = ctEdit then begin
+      NewControl.Show;
+      NewControl := TEdit.Create(Self);
+      TEdit(NewControl).Text := Values.Values[Name];
+      NewControl.Parent := Self;
+      NewControl.SetBounds((Rect.Left + 1) * W, Rect.Top * H,
+       (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
+      NewControl.Show;
+    end else
+    if ControlType = ctEdit then begin
+      NewControl := TMemo.Create(Self);
+      NewControl.Parent := Self;
+      TMemo(NewControl).Lines.Text := Values.Values[Name];
+      NewControl.SetBounds((Rect.Left + 1) * W, Rect.Top * H,
+       (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
+      NewControl.Show;
+    end else
+    if ControlType = ctCheckBox then begin
+      NewControl := TCheckBox.Create(Self);
+      NewControl.Parent := Self;
+      TCheckBox(NewControl).Enabled :=  Values.Values[Name] = '1';
+      NewControl.SetBounds((Rect.Left + 1) * W, Rect.Top * H,
+       (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
+      NewControl.Show;
+    end else
+    if ControlType = ctComboBox then begin
+      NewControl := TComboBox.Create(Self);
+      NewControl.Parent := Self;
+      TComboBox(NewControl).Text := Values.Values[Name];
+      NewControl.SetBounds((Rect.Left + 1) * W, Rect.Top * H,
+       (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
+      NewControl.Show;
+    end;
+  end;
 end;