Changeset 166 for trunk/Forms/UFormMain.pas

Timestamp:

Jan 19, 2018, 10:32:39 AM (6 years ago)

Author:

chronos

Message:

• Fixed: Main toolbar DPI scaling.

Location:

trunk/Forms

Files:

• . (modified) (1 prop)
• UFormMain.pas (modified) (2 diffs)

trunk/Forms/UFormMain.pas

@@ -80 +80 @@
     SaveDialog1: TSaveDialog;
     StatusBar1: TStatusBar;
-    ToolBar1: TToolBar;
-    ToolBar2: TToolBar;
-    ToolBar3: TToolBar;
-    ToolBar4: TToolBar;
+    ToolBarFile: TToolBar;
+    ToolBarManage: TToolBar;
+    ToolBarOther: TToolBar;
+    ToolBarFilter: TToolBar;
     ToolButton1: TToolButton;
     ToolButton11: TToolButton;
@@ -189 +189 @@
   I: Integer;
 begin
-  for I := 0 to ToolBar1.ButtonCount - 1 do
-    ToolBar1.Buttons[I].Hint := ToolBar1.Buttons[I].Caption;
-  for I := 0 to ToolBar2.ButtonCount - 1 do
-    ToolBar2.Buttons[I].Hint := ToolBar2.Buttons[I].Caption;
-  for I := 0 to ToolBar3.ButtonCount - 1 do
-    ToolBar3.Buttons[I].Hint := ToolBar3.Buttons[I].Caption;
-  for I := 0 to ToolBar4.ButtonCount - 1 do
-    ToolBar4.Buttons[I].Hint := ToolBar4.Buttons[I].Caption;
+  for I := 0 to ToolBarFile.ButtonCount - 1 do
+    ToolBarFile.Buttons[I].Hint := ToolBarFile.Buttons[I].Caption;
+  for I := 0 to ToolBarManage.ButtonCount - 1 do
+    ToolBarManage.Buttons[I].Hint := ToolBarManage.Buttons[I].Caption;
+  for I := 0 to ToolBarOther.ButtonCount - 1 do
+    ToolBarOther.Buttons[I].Hint := ToolBarOther.Buttons[I].Caption;
+  for I := 0 to ToolBarFilter.ButtonCount - 1 do
+    ToolBarFilter.Buttons[I].Hint := ToolBarFilter.Buttons[I].Caption;
   PanelMain.ControlStyle := PanelMain.ControlStyle + [csOpaque];
   PanelParam.ControlStyle := PanelParam.ControlStyle + [csOpaque];