Changeset 10 for trunk/Forms/UFormEdit.pas

Timestamp:

Nov 14, 2012, 10:12:02 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Zobrazení ovládacího prvku pro určování odkazů do jiných tabulek.

Location:

trunk

Files:

• . (modified) (1 prop)
• Forms/UFormEdit.pas (modified) (6 diffs)

trunk

@@ -4 +4 @@
 heaptrclog.trc
 lib
+Dochazka

@@ -4 +4 @@
 heaptrclog.trc
 lib
+Dochazka

trunk/Forms/UFormEdit.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Buttons, ExtCtrls, Spin, SpecializedList, SpecializedDictionary, UDataView,
-  USqlDatabase;
+  Buttons, ExtCtrls, Spin, ComCtrls, EditBtn, SpecializedList,
+  SpecializedDictionary, UDataView, USqlDatabase;
 
 type
-  TControlType = (ctLabel, ctCheckBox, ctEdit, ctMemo, ctDate, ctTime,
+  TControlType = (ctLabel, ctCheckBox, ctEdit, ctMemo, ctDate, ctTime, ctDateTime,
     ctComboBox, ctSpinEdit, ctReference);
 
@@ -21 +21 @@
     ControlType: TControlType;
     TitlePlacement: TAlign;
+    ReferencedTable: string;
   end;
 
@@ -50 +51 @@
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
+    procedure SpeedButton1Click(Sender: TObject);
   private
     FView: TDataViewForm;
@@ -68 +70 @@
 
 uses
-  UCore;
+  UCore, UFormMain;
 
 { TDataViewForm }
@@ -112 +114 @@
   Values.Free;
   RuntimeControls.Free;
+end;
+
+procedure TFormEdit.SpeedButton1Click(Sender: TObject);
+begin
+
 end;
 
@@ -233 +240 @@
        (Rect.Right - Rect.Left) * W, (Rect.Bottom - Rect.Top) * H);
       NewControl.Show;
+    end else
+    if ControlType = ctDate then begin
+      NewControl := TDateEdit.Create(Self);
+      NewControl.Parent := PanelControls;
+      TDateEdit(NewControl).Date := MySQLStrToFloat(Values.Values[Name]);
+      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
+       (Rect.Right - Rect.Left) * W - 28, (Rect.Bottom - Rect.Top) * H);
+      NewControl.Show;
+    end else
+    if ControlType = ctTime then begin
+      NewControl := TEdit.Create(Self);
+      NewControl.Parent := PanelControls;
+      TEdit(NewControl).Text := TimeToStr(MySQLStrToFloat(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 = ctReference then begin
+      NewControl := TEdit.Create(Self);
+      NewControl.Parent := PanelControls;
+      TEdit(NewControl).Text := Values.Values[Name];
+      NewControl.SetBounds(Rect.Left * W, Rect.Top * H,
+       (Rect.Right - Rect.Left) * W - 28, (Rect.Bottom - Rect.Top) * H);
+      NewControl.Show;
+      NewControl := TBitBtn.Create(Self);
+      NewControl.Parent := PanelControls;
+      TBitBtn(NewControl).Caption := '';
+      NewControl.SetBounds(Rect.Right * W - 28, Rect.Top * H, 24, 24);
+      FormMain.ImageList1.GetBitmap(4, TBitBtn(NewControl).Glyph);
+      NewControl.Show;
     end;
   end;

@@ -4 +4 @@
 heaptrclog.trc
 lib
+Dochazka