Package form cosmetics

Villavu · Jun 6, 2024 · 22a27bc · 22a27bc
1 parent 57e7808
commit 22a27bc
Show file tree

Hide file tree

Showing 6 changed files with 141 additions and 152 deletions.
diff --git a/Source/ide/simba.form_main.pas b/Source/ide/simba.form_main.pas
@@ -280,7 +280,7 @@ implementation
   simba.ide_tab,
   simba.aca, simba.dtmeditor, simba.env, simba.ide_dockinghelpers, simba.nativeinterface,
   simba.ide_simpleformatter, simba.ide_theme,
-  simba.threading, simba.ide_editor, simba.vartype_string;
+  simba.threading, simba.ide_editor, simba.vartype_string, simba.misc;
 
 procedure TSimbaMainForm.HandleException(Sender: TObject; E: Exception);
 
@@ -349,9 +349,11 @@ procedure TSimbaMainForm.SetCustomFontSize(Value: Integer);
 var
   I: Integer;
 begin
-  HandleNeeded();
   for I := 0 to Screen.CustomFormCount - 1 do
+  begin
+    Screen.CustomForms[I].HandleNeeded();
     Screen.CustomForms[I].Font.Size := Value;
+  end;
 end;
 
 procedure TSimbaMainForm.SetLayoutLocked(Value: Boolean);

diff --git a/Source/ide/simba.form_package.lfm b/Source/ide/simba.form_package.lfm
@@ -1,53 +1,58 @@
 object SimbaPackageForm: TSimbaPackageForm
-  Left = -1009
-  Height = 550
-  Top = 489
-  Width = 782
+  Left = -1860
+  Height = 688
+  Top = 325
+  Width = 978
   Caption = 'Simba Packages'
-  ClientHeight = 550
-  ClientWidth = 782
-  Constraints.MinHeight = 250
-  Constraints.MinWidth = 250
+  ClientHeight = 688
+  ClientWidth = 978
+  Constraints.MinHeight = 312
+  Constraints.MinWidth = 312
+  DesignTimePPI = 120
   OnShow = FormShow
   Position = poMainFormCenter
   ShowInTaskBar = stAlways
   LCLVersion = '3.4.0.0'
   object Notebook1: TNotebook
     Left = 0
-    Height = 477
+    Height = 607
     Top = 0
-    Width = 782
+    Width = 978
     PageIndex = 0
     Align = alClient
     TabOrder = 0
     object MainPage: TPage
       object ListPanel: TPanel
         Left = 0
-        Height = 314
+        Height = 392
         Top = 0
-        Width = 782
+        Width = 978
         Align = alTop
         BevelOuter = bvNone
         TabOrder = 0
       end
       object BottomNotebook: TNotebook
         Left = 0
-        Height = 158
-        Top = 319
-        Width = 782
+        Height = 209
+        Top = 398
+        Width = 978
         PageIndex = 0
         Align = alClient
         TabOrder = 1
         object PageVersions: TPage
           object ScrollBox1: TScrollBox
             Left = 0
-            Height = 158
+            Height = 209
             Top = 0
-            Width = 782
+            Width = 978
+            HorzScrollBar.Increment = 1
             HorzScrollBar.Page = 1
+            HorzScrollBar.Smooth = True
+            HorzScrollBar.Tracking = True
             VertScrollBar.Increment = 1
             VertScrollBar.Page = 1
             VertScrollBar.Smooth = True
+            VertScrollBar.Tracking = True
             Align = alClient
             BorderStyle = bsNone
             Color = clDefault
@@ -62,16 +67,16 @@ object SimbaPackageForm: TSimbaPackageForm
             Top = 12
             Width = 954
             Align = alClient
-            BorderSpacing.Around = 10
-            Font.Height = -10
+            BorderSpacing.Around = 12
+            Font.Height = -13
             Font.Name = 'Courier New'
             Font.Pitch = fpFixed
             Font.Quality = fqCleartypeNatural
             ParentColor = False
             ParentFont = False
             TabOrder = 0
             Gutter.Visible = False
-            Gutter.Width = 53
+            Gutter.Width = 64
             Gutter.MouseActions = <>
             RightGutter.Width = 0
             RightGutter.MouseActions = <>
@@ -114,11 +119,11 @@ object SimbaPackageForm: TSimbaPackageForm
             LineHighlightColor.Foreground = clNone
             inline SynLeftGutterPartList1: TSynGutterPartList
               object SynGutterMarks1: TSynGutterMarks
-                Width = 24
+                Width = 30
                 MouseActions = <>
               end
               object SynGutterLineNumber1: TSynGutterLineNumber
-                Width = 13
+                Width = 17
                 MouseActions = <>
                 MarkupInfo.Background = clBtnFace
                 MarkupInfo.Foreground = clNone
@@ -128,18 +133,19 @@ object SimbaPackageForm: TSimbaPackageForm
                 LeadingZeros = False
               end
               object SynGutterChanges1: TSynGutterChanges
-                Width = 4
+                Width = 5
                 MouseActions = <>
                 ModifiedColor = 59900
                 SavedColor = clGreen
               end
               object SynGutterSeparator1: TSynGutterSeparator
-                Width = 2
+                Width = 3
                 MouseActions = <>
                 MarkupInfo.Background = clWhite
                 MarkupInfo.Foreground = clGray
               end
               object SynGutterCodeFolding1: TSynGutterCodeFolding
+                Width = 13
                 MouseActions = <>
                 MarkupInfo.Background = clNone
                 MarkupInfo.Foreground = clGray
@@ -155,9 +161,9 @@ object SimbaPackageForm: TSimbaPackageForm
             Width = 954
             Align = alBottom
             AutoSize = True
-            BorderSpacing.Left = 10
-            BorderSpacing.Right = 10
-            BorderSpacing.Bottom = 10
+            BorderSpacing.Left = 12
+            BorderSpacing.Right = 12
+            BorderSpacing.Bottom = 12
             Caption = 'Installing...'
             TabOrder = 1
             OnClick = InstallingButtonClick
@@ -167,9 +173,9 @@ object SimbaPackageForm: TSimbaPackageForm
       object Splitter1: TSplitter
         Cursor = crVSplit
         Left = 0
-        Height = 5
-        Top = 314
-        Width = 782
+        Height = 6
+        Top = 392
+        Width = 978
         Align = alTop
         ResizeAnchor = akTop
       end
@@ -180,9 +186,9 @@ object SimbaPackageForm: TSimbaPackageForm
         AnchorSideLeft.Side = asrCenter
         AnchorSideTop.Control = LoadingPage
         AnchorSideTop.Side = asrCenter
-        Left = 256
+        Left = 320
         Height = 25
-        Top = 235
+        Top = 294
         Width = 339
         Caption = 'Downloading package list. Please wait...'
         Font.Style = [fsBold]
@@ -193,21 +199,21 @@ object SimbaPackageForm: TSimbaPackageForm
   end
   object PanelBottom: TPanel
     Left = 0
-    Height = 73
-    Top = 477
-    Width = 782
+    Height = 81
+    Top = 607
+    Width = 978
     Align = alBottom
     Anchors = [akLeft, akBottom]
     AutoSize = True
     BevelOuter = bvNone
-    ClientHeight = 73
-    ClientWidth = 782
+    ClientHeight = 81
+    ClientWidth = 978
     TabOrder = 1
     object Bevel3: TBevel
       Left = 0
       Height = 2
       Top = 0
-      Width = 782
+      Width = 978
       Align = alTop
       Shape = bsTopLine
     end
@@ -216,20 +222,20 @@ object SimbaPackageForm: TSimbaPackageForm
       AnchorSideLeft.Side = asrCenter
       AnchorSideTop.Control = Bevel3
       AnchorSideTop.Side = asrBottom
-      Left = 287
-      Height = 71
+      Left = 358
+      Height = 79
       Top = 2
-      Width = 208
+      Width = 262
       AutoSize = True
       BevelOuter = bvNone
-      ClientHeight = 71
-      ClientWidth = 208
+      ClientHeight = 79
+      ClientWidth = 262
       TabOrder = 0
       object ToolBar: TToolBar
         Left = 0
-        Height = 67
+        Height = 75
         Top = 2
-        Width = 208
+        Width = 262
         Align = alBottom
         AutoSize = True
         BorderSpacing.Top = 2
@@ -254,15 +260,15 @@ object SimbaPackageForm: TSimbaPackageForm
           OnClick = ButtonRefreshClick
         end
         object ButtonAddRepository: TToolButton
-          Left = 75
+          Left = 95
           Top = 0
           AutoSize = True
           Caption = 'Add Repository'
           ImageIndex = 0
           OnClick = ButtonAddRepositoryClick
         end
         object ToolButton1: TToolButton
-          Left = 67
+          Left = 85
           Height = 0
           Top = 0
           Caption = 'ToolButton1'
@@ -274,8 +280,8 @@ object SimbaPackageForm: TSimbaPackageForm
   object ImageList36: TImageList
     Height = 36
     Width = 36
-    Left = 32
-    Top = 70
+    Left = 40
+    Top = 88
     Bitmap = {
       4C7A010000002400000024000000600800000000000078DAED987B70D4D515C7
       3710A80F04A90F6CA342AB88D882A88D552A6865C0A90E2D4C41A42204228F52
@@ -350,8 +356,8 @@ object SimbaPackageForm: TSimbaPackageForm
   object ImageList: TImageList
     Height = 32
     Width = 32
-    Left = 32
-    Top = 134
+    Left = 40
+    Top = 168
     Bitmap = {
       4C7A020000002000000020000000980900000000000078DAED98095055E715C7
       BFF79E3C4529221AC749B489D692E8683560A78D1347DCADD1AA89BBB86F0DAE