Changeset 27 for trunk/Forms

Timestamp:

Sep 10, 2022, 8:13:14 PM (20 months ago)

Author:

chronos

Message:

• Fixed: Updated Czech translation.
• Fixed: Main tool bar hints.

Location:

trunk/Forms

Files:

• UFormConnect.lfm (modified) (1 diff)
• UFormConnect.lrj (modified) (1 diff)
• UFormMain.lfm (modified) (4 diffs)
• UFormMain.lrj (modified) (1 diff)
• UFormMain.pas (modified) (3 diffs)
• UFormRecord.lfm (modified) (3 diffs)
• UFormRecord.lrj (modified) (1 diff)

trunk/Forms/UFormConnect.lfm

@@ -139 +139 @@
     end
     object TabSheetSqlite: TTabSheet
-      Caption = 'TabSheetSqlite'
     end
     object TabSheetRegistry: TTabSheet
-      Caption = 'TabSheetRegistry'
     end
   end

trunk/Forms/UFormConnect.lrj

@@ -8 +8 @@
 {"hash":77164181,"name":"tformconnect.buttonxmlbrowse.caption","sourcebytes":[66,114,111,119,115,101],"value":"Browse"},
 {"hash":5204602,"name":"tformconnect.label4.caption","sourcebytes":[72,111,115,116,58],"value":"Host:"},
-{"hash":5728634,"name":"tformconnect.label5.caption","sourcebytes":[80,111,114,116,58],"value":"Port:"},
-{"hash":249552581,"name":"tformconnect.tabsheetsqlite.caption","sourcebytes":[84,97,98,83,104,101,101,116,83,113,108,105,116,101],"value":"TabSheetSqlite"},
-{"hash":38716777,"name":"tformconnect.tabsheetregistry.caption","sourcebytes":[84,97,98,83,104,101,101,116,82,101,103,105,115,116,114,121],"value":"TabSheetRegistry"}
+{"hash":5728634,"name":"tformconnect.label5.caption","sourcebytes":[80,111,114,116,58],"value":"Port:"}
 ]}

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
   Left = 449
-  Height = 849
-  Top = 278
-  Width = 1250
+  Height = 1274
+  Top = 108
+  Width = 1875
   Caption = 'MyData'
-  ClientHeight = 815
-  ClientWidth = 1250
+  ClientHeight = 1240
+  ClientWidth = 1875
+  DesignTimePPI = 144
   Menu = MainMenu1
   OnActivate = FormActivate
   OnClose = FormClose
   OnShow = FormShow
-  LCLVersion = '1.8.0.4'
+  LCLVersion = '2.2.2.0'
   WindowState = wsMaximized
   object StatusBar1: TStatusBar
     Left = 0
-    Height = 30
-    Top = 785
-    Width = 1250
+    Height = 28
+    Top = 1212
+    Width = 1875
     Panels = <>
   end
   object CoolBar1: TCoolBar
     Left = 0
-    Height = 43
+    Height = 44
     Top = 0
-    Width = 1250
+    Width = 1875
     AutoSize = True
     Bands = <    
@@ -41 +42 @@
       Height = 33
       Top = 5
-      Width = 108
+      Width = 150
       Align = alNone
       BorderSpacing.Left = 22
       BorderSpacing.Top = 3
-      Caption = 'ToolBar1'
       EdgeInner = esNone
       EdgeOuter = esNone
@@ -57 +57 @@
       end
       object ToolButton2: TToolButton
-        Left = 37
+        Left = 36
         Top = 0
         Action = Core.ADatabaseDisconnect
       end
       object ToolButton3: TToolButton
-        Left = 73
+        Left = 71
         Top = 0
         Action = Core.APreferences
@@ -70 +70 @@
   object MainMenu1: TMainMenu
     Images = Core.ImageList1
-    left = 824
-    top = 216
+    Left = 1236
+    Top = 324
     object MenuItem1: TMenuItem
       Caption = 'Database'

trunk/Forms/UFormMain.lrj

@@ -1 +1 @@
 {"version":1,"strings":[
 {"hash":88975521,"name":"tformmain.caption","sourcebytes":[77,121,68,97,116,97],"value":"MyData"},
-{"hash":106991073,"name":"tformmain.toolbar1.caption","sourcebytes":[84,111,111,108,66,97,114,49],"value":"ToolBar1"},
 {"hash":145198133,"name":"tformmain.menuitem1.caption","sourcebytes":[68,97,116,97,98,97,115,101],"value":"Database"},
 {"hash":5989939,"name":"tformmain.menuitempreferences.caption","sourcebytes":[84,111,111,108,115],"value":"Tools"},

trunk/Forms/UFormMain.pas

@@ -31 +31 @@
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormShow(Sender: TObject);
+  private
+    procedure SetToolbarHints;
   public
     procedure DockInit;
@@ -65 +67 @@
 begin
   Core.PersistentForm1.Load(Self, True);
+  SetToolbarHints;
   DockInit;
 end;
@@ -85 +88 @@
 end;
 
+procedure TFormMain.SetToolbarHints;
+var
+  I: Integer;
+  J: Integer;
+  Control: TControl;
+begin
+  for J := 0 to CoolBar1.ControlCount - 1 do begin
+    Control := CoolBar1.Controls[J];
+    if Control is TToolBar then begin
+      for I := 0 to TToolBar(Control).ButtonCount - 1 do begin
+        TToolBar(Control).Buttons[I].ShowHint := True;
+        TToolBar(Control).Buttons[I].Hint := TToolBar(Control).Buttons[I].Caption;
+      end;
+    end;
+  end;
+end;
+
 end.
 

trunk/Forms/UFormRecord.lfm

@@ -12 +12 @@
   OnShow = FormShow
   Position = poMainFormCenter
-  LCLVersion = '1.8.2.0'
+  LCLVersion = '2.2.2.0'
   object Panel1: TPanel
     Left = 4
@@ -37 +37 @@
     Left = 648
     Height = 27
-    Top = 601
+    Top = 603
     Width = 72
     Anchors = [akRight, akBottom]
@@ -46 +46 @@
   object ActionList1: TActionList
     Images = Core.ImageList1
-    left = 423
-    top = 379
+    Left = 423
+    Top = 379
     object ASave: TAction
       Caption = 'Save'

trunk/Forms/UFormRecord.lrj

@@ -1 +1 @@
 {"version":1,"strings":[
-{"hash":42946580,"name":"tformrecord.caption","sourcebytes":[70,111,114,109,82,101,99,111,114,100],"value":"FormRecord"},
+{"hash":93038212,"name":"tformrecord.caption","sourcebytes":[82,101,99,111,114,100],"value":"Record"},
 {"hash":1371,"name":"tformrecord.buttonok.caption","sourcebytes":[79,107],"value":"Ok"},
 {"hash":77089212,"name":"tformrecord.buttoncancel.caption","sourcebytes":[67,97,110,99,101,108],"value":"Cancel"},