Changeset 9 for trunk/Forms/UFormEdit.pas

Timestamp:

Nov 14, 2012, 4:08:53 PM (12 years ago)

Author:

chronos

Message:

• Upraveno: Zprovozněno zobrazování formulářového pohledu pro uživatele.

File:

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

trunk/Forms/UFormEdit.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Buttons, ExtCtrls, SpecializedList, SpecializedDictionary;
+  Buttons, ExtCtrls, Spin, SpecializedList, SpecializedDictionary, UDataView,
+  USqlDatabase;
 
 type
   TControlType = (ctLabel, ctCheckBox, ctEdit, ctMemo, ctDate, ctTime,
-    ctComboBox);
+    ctComboBox, ctSpinEdit, ctReference);
 
   TFormItem = class
@@ -26 +27 @@
   TFormItems = class(TListObject)
     function AddItem(Caption, Name: string; ControlType: TControlType;
-      Visible: Boolean; Rect: TRect): TFormItem;
+      Visible: Boolean; Rect: TRect; TextPlacement: TAlign = alLeft): TFormItem;
+  end;
+
+  { TDataViewForm }
+
+  TDataViewForm = class(TDataView)
+    Name: string;
+    Caption: string;
+    ImageIndex: Integer;
+    Items: TFormItems;
+    constructor Create;
+    destructor Destroy; override;
   end;
 
@@ -35 +47 @@
     ButtonOk: TButton;
     ButtonCancel: TButton;
+    PanelControls: TPanel;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
   private
+    FView: TDataViewForm;
+    procedure SetView(AValue: TDataViewForm);
     { private declarations }
   public
     RuntimeControls: TListObject;
-    FormItems: TFormItems;
     Values: TDictionaryStringString;
-    procedure Update;
+    ItemId: Integer;
+    property View: TDataViewForm read FView write SetView;
+    procedure UpdateData;
   end;
 
@@ -51 +67 @@
 implementation
 
+uses
+  UCore;
+
+{ TDataViewForm }
+
+constructor TDataViewForm.Create;
+begin
+  Items := TFormItems.Create;
+end;
+
+destructor TDataViewForm.Destroy;
+begin
+  Items.Free;
+  inherited Destroy;
+end;
+
 { TFormItems }
 
 function TFormItems.AddItem(Caption, Name: string; ControlType: TControlType;
-  Visible: Boolean; Rect: TRect): TFormItem;
+  Visible: Boolean; Rect: TRect; TextPlacement: TAlign = alLeft): TFormItem;
 begin
   Result := TFormItem.Create;
@@ -62 +94 @@
   Result.Rect := Rect;
   Result.ControlType := ControlType;
+  Result.TitlePlacement := TextPlacement;
   Add(Result);
 end;
@@ -71 +104 @@
 procedure TFormEdit.FormCreate(Sender: TObject);
 begin
-  FormItems := TFormItems.Create;
   Values := TDictionaryStringString.Create;
   RuntimeControls := TListObject.Create;
@@ -80 +112 @@
   Values.Free;
   RuntimeControls.Free;
-  FormItems.Free;
-end;
-
-procedure TFormEdit.Update;
+end;
+
+procedure TFormEdit.SetView(AValue: TDataViewForm);
+begin
+  if FView=AValue then Exit;
+  FView := AValue;
+  if Assigned(AValue) then UpdateData
+    else begin
+      Values.Clear;
+      RuntimeControls.Clear;
+    end;
+end;
+
+procedure TFormEdit.UpdateData;
 var
   NewControl: TControl;
   I: Integer;
   TitleRect: TRect;
-const
-  W = 50;
-  H = 32;
-begin
+  DbRows: TDbRows;
+  W: Integer;
+  H: Integer;
+begin
+  W := 130;
+  H := 24;
+  try
+    DbRows := TDbRows.Create;
+    Core.Database.Query(DbRows, 'SELECT * FROM ' + View.Name + ' WHERE Id=' +
+      IntToStr(ItemId));
+    if DbRows.Count > 0 then Values.Assign(DbRows[0])
+      else begin
+        Values.Free;
+        Exit;
+      end;
+  finally
+    DbRows.Free;
+  end;
+
   RuntimeControls.Clear;
-  for I := 0 to FormItems.Count - 1 do
-  with TFormItem(FormItems[I]) do begin
+  for I := 0 to View.Items.Count - 1 do
+  with TFormItem(View.Items[I]) do begin
     if TitlePlacement <> alNone then begin
       NewControl := TLabel.Create(Self);
-      NewControl.Parent := Self;
+      NewControl.Parent := PanelControls;
       NewControl.Caption := Caption;
+      NewControl.AutoSize := False;
       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;
+        alLeft: begin
+          TitleRect.Left := TitleRect.Left - 1;
+          TitleRect.Right := TitleRect.Right - 1;
+          TLabel(NewControl).Alignment := taRightJustify;
+        end;
+        alRight: begin
+          TitleRect.Left := TitleRect.Left + 1;
+          TitleRect.Right := TitleRect.Right + 1;
+          TLabel(NewControl).Alignment := taLeftJustify;
+        end;
+        alTop: begin
+          TitleRect.Top := TitleRect.Top - 1;
+          TitleRect.Bottom := TitleRect.Bottom - 1;
+          TLabel(NewControl).Alignment := taLeftJustify;
+        end;
+        alBottom: begin
+          TitleRect.Top := TitleRect.Top + 1;
+          TitleRect.Bottom := TitleRect.Bottom + 1;
+          TLabel(NewControl).Alignment := taLeftJustify;
+        end;
       end;
-      NewControl.SetBounds(TitleRect.Left * W, TitleRect.Top * H,
-        (TitleRect.Right - TitleRect.Left) * W, (TitleRect.Bottom - TitleRect.Top) * H);
+      NewControl.SetBounds(TitleRect.Left * W + 4, TitleRect.Top * H + 2,
+        (TitleRect.Right - TitleRect.Left) * W - 8,
+        (TitleRect.Bottom - TitleRect.Top) * H - 4);
       NewControl.Show;
     end;
     if ControlType = ctLabel then begin
       NewControl := TLabel.Create(Self);
-      NewControl.Parent := Self;
+      NewControl.Parent := PanelControls;
       NewControl.Caption := Values.Values[Name];
       NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
@@ -122 +197 @@
       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.Parent := PanelControls;
+      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
+       (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
+      NewControl.Show;
+    end else
+    if ControlType = ctMemo then begin
       NewControl := TMemo.Create(Self);
-      NewControl.Parent := Self;
+      NewControl.Parent := PanelControls;
       TMemo(NewControl).Lines.Text := Values.Values[Name];
-      NewControl.SetBounds((Rect.Left + 1) * W, Rect.Top * H,
+      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
        (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
       NewControl.Show;
@@ -137 +212 @@
     if ControlType = ctCheckBox then begin
       NewControl := TCheckBox.Create(Self);
-      NewControl.Parent := Self;
+      NewControl.Parent := PanelControls;
       TCheckBox(NewControl).Enabled :=  Values.Values[Name] = '1';
-      NewControl.SetBounds((Rect.Left + 1) * W, Rect.Top * H,
+      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
        (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
       NewControl.Show;
@@ -145 +220 @@
     if ControlType = ctComboBox then begin
       NewControl := TComboBox.Create(Self);
-      NewControl.Parent := Self;
+      NewControl.Parent := PanelControls;
       TComboBox(NewControl).Text := Values.Values[Name];
-      NewControl.SetBounds((Rect.Left + 1) * W, Rect.Top * H,
+      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
+       (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
+      NewControl.Show;
+    end else
+    if ControlType = ctSpinEdit then begin
+      NewControl := TSpinEdit.Create(Self);
+      NewControl.Parent := PanelControls;
+      TSpinEdit(NewControl).Value := StrToInt(Values.Values[Name]);
+      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
        (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
       NewControl.Show;