Changeset 24 for trunk/Forms

Timestamp:

Nov 19, 2012, 12:31:19 PM (12 years ago)

Author:

chronos

Message:

• Opraveno: Ladění komunikačního protokolu s terminálem BF-630.

Location:

trunk/Forms

Files:

• UFormEdit.lfm (modified) (4 diffs)
• UFormEdit.pas (modified) (1 diff)
• UFormList.lfm (modified) (1 diff)
• UFormList.pas (modified) (2 diffs)
• UFormMain.lfm (modified) (1 diff)
• UFormMain.lrt (modified) (1 diff)
• UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormEdit.lfm

@@ -1 +1 @@
 object FormEdit: TFormEdit
-  Left = 368
-  Height = 341
-  Top = 172
-  Width = 553
+  Left = 297
+  Height = 368
+  Top = 145
+  Width = 664
   Caption = 'Edit item'
-  ClientHeight = 341
-  ClientWidth = 553
+  ClientHeight = 368
+  ClientWidth = 664
   OnCreate = FormCreate
   OnDestroy = FormDestroy
   LCLVersion = '1.1'
   object ButtonOk: TButton
-    Left = 471
+    Left = 582
     Height = 25
-    Top = 305
+    Top = 291
     Width = 75
     Anchors = [akRight, akBottom]
@@ -21 +21 @@
   end
   object ButtonCancel: TButton
-    Left = 383
+    Left = 582
     Height = 25
-    Top = 305
+    Top = 251
     Width = 75
     Anchors = [akRight, akBottom]
@@ -30 +30 @@
     TabOrder = 1
   end
-  object Bevel1: TBevel
-    Left = 8
-    Height = 2
-    Top = 297
-    Width = 538
-    Anchors = [akLeft, akRight, akBottom]
-  end
   object PanelControls: TPanel
     Left = 8
-    Height = 282
+    Height = 308
     Top = 8
-    Width = 537
-    Align = alTop
+    Width = 567
+    Align = alLeft
     Anchors = [akTop, akLeft, akRight, akBottom]
     BorderSpacing.Around = 8
@@ -48 +41 @@
     TabOrder = 2
   end
+  object ToolBarActions: TToolBar
+    Left = 0
+    Height = 44
+    Top = 324
+    Width = 664
+    Align = alBottom
+    ButtonHeight = 40
+    ButtonWidth = 44
+    Images = FormMain.ImageList1
+    ParentShowHint = False
+    ShowCaptions = True
+    ShowHint = True
+    TabOrder = 3
+  end
 end

trunk/Forms/UFormEdit.pas

@@ -46 +46 @@
 
   TFormEdit = class(TForm)
-    Bevel1: TBevel;
     ButtonOk: TButton;
     ButtonCancel: TButton;
     PanelControls: TPanel;
+    ToolBarActions: TToolBar;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);

trunk/Forms/UFormList.lfm

@@ -345 +345 @@
   object PrintPreview1: TPrintPreview
     Zoom = 1
+    OnPrint = PrintPreview1Print
     left = 240
     top = 112

trunk/Forms/UFormList.pas

@@ -82 +82 @@
     procedure ListView1SelectItem(Sender: TObject; Item: TListItem;
       Selected: Boolean);
+    procedure PrintPreview1Print(Sender: TObject);
   private
     FView: TDataViewList;
@@ -249 +250 @@
 end;
 
+procedure TFormList.PrintPreview1Print(Sender: TObject);
+begin
+
+end;
+
 procedure TFormList.SetView(AValue: TDataViewList);
 begin

trunk/Forms/UFormMain.lfm

@@ -276 +276 @@
       end
     end
+    object MenuItem10: TMenuItem
+      Caption = 'Test'
+      object MenuItem11: TMenuItem
+        Action = DataModuleAttendance.AReadFromTerminal
+      end
+    end
     object MenuItem7: TMenuItem
       Caption = 'Help'

trunk/Forms/UFormMain.lrt

@@ -3 +3 @@
 TFORMMAIN.MENUITEM3.CAPTION=Database
 TFORMMAIN.MENUITEM6.CAPTION=View
+TFORMMAIN.MENUITEM10.CAPTION=Test
 TFORMMAIN.MENUITEM7.CAPTION=Help
 TFORMMAIN.AEXIT.CAPTION=Exit

trunk/Forms/UFormMain.pas

@@ -25 +25 @@
     MainMenu1: TMainMenu;
     MenuItem1: TMenuItem;
+    MenuItem10: TMenuItem;
+    MenuItem11: TMenuItem;
     MenuItem3: TMenuItem;
     MenuItem4: TMenuItem;
@@ -155 +157 @@
 procedure TFormMain.FormShow(Sender: TObject);
 begin
+  Core.CoolTranslator1.TranslateComponentRecursive(Application);
   UpdateInterface;
   AConnect.Execute;