Browse Source

Slightly higher status bars

Standard TStatusBar were always too low (comparing to the TBX bars). And now with larger font, it became even more prominent.

Source commit: d98d45493eaebd102db8db484319c3528235f8a9
Martin Prikryl 9 months ago
parent
commit
c5090df9d2
2 changed files with 8 additions and 8 deletions
  1. 3 3
      source/forms/FileFind.dfm
  2. 5 5
      source/forms/SynchronizeChecklist.dfm

+ 3 - 3
source/forms/FileFind.dfm

@@ -5,7 +5,7 @@ object FileFindDialog: TFileFindDialog
   HelpKeyword = 'ui_find'
   BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
   Caption = 'FindX'
-  ClientHeight = 417
+  ClientHeight = 419
   ClientWidth = 562
   Color = clBtnFace
   Constraints.MinHeight = 240
@@ -1365,7 +1365,7 @@ object FileFindDialog: TFileFindDialog
   OnShow = FormShow
   DesignSize = (
     562
-    417)
+    419)
   TextHeight = 15
   object FilterGroup: TGroupBox
     Left = 8
@@ -1520,7 +1520,7 @@ object FileFindDialog: TFileFindDialog
     Left = 0
     Top = 398
     Width = 562
-    Height = 19
+    Height = 21
     Panels = <>
     SimplePanel = True
   end

+ 5 - 5
source/forms/SynchronizeChecklist.dfm

@@ -1363,14 +1363,14 @@ object SynchronizeChecklistDialog: TSynchronizeChecklistDialog
     Left = 562
     Top = 0
     Width = 133
-    Height = 501
+    Height = 500
     Align = alRight
     BevelOuter = bvNone
     Constraints.MinHeight = 350
     TabOrder = 1
     DesignSize = (
       133
-      501)
+      500)
     object OkButton: TButton
       Left = 6
       Top = 8
@@ -1484,7 +1484,7 @@ object SynchronizeChecklistDialog: TSynchronizeChecklistDialog
     Left = 0
     Top = 0
     Width = 562
-    Height = 501
+    Height = 500
     OnRecreate = ListViewRecreate
     Align = alClient
     Checkboxes = True
@@ -1561,9 +1561,9 @@ object SynchronizeChecklistDialog: TSynchronizeChecklistDialog
   end
   object StatusBar: TStatusBar
     Left = 0
-    Top = 501
+    Top = 500
     Width = 695
-    Height = 20
+    Height = 21
     Hint = 'Click to select all actions of this type'
     Panels = <
       item