Version 2.5.10

SilverpointDev · Sep 18, 2023 · 45d4300 · 45d4300
1 parent 888ee87
commit 45d4300
Show file tree

Hide file tree

Showing 19 changed files with 155 additions and 113 deletions.
diff --git a/Readme.txt → Readme.md b/Readme.txt → Readme.md
@@ -22,39 +22,39 @@ SpTBXLib is an add on package for TB2K components, it adds the following feature
 - Form Popup components
 - Skin Editor
 
-For more info go to:
-http://www.silverpointdevelopment.com
+For more info go to:  
+www.silverpointdevelopment.com
 
-# License
+## License
 
-Use and/or distribution of the files requires compliance with the
-SpTBXLib License, found in SpTBXLib-LICENSE.txt or at:
+Use and/or distribution of the files requires compliance with the SpTBXLib License, found in SpTBXLib-LICENSE.txt or at:
 
-  http://www.silverpointdevelopment.com/sptbxlib/SpTBXLib-LICENSE.htm
+www.silverpointdevelopment.com/sptbxlib/SpTBXLib-LICENSE.htm
 
-Alternatively, at your option, the files may be used and/or distributed under
-the terms of the Mozilla Public License Version 1.1, found in MPL-LICENSE.txt or at:
+Alternatively, at your option, the files may be used and/or distributed under the terms of the Mozilla Public License Version 1.1, found in MPL-LICENSE.txt or at:
 
-  http://www.mozilla.org/MPL
+www.mozilla.org/MPL
 
-# Installation
+## Installation
 
 ### Requirements:
 - RAD Studio XE2 or newer:
-- Jordan Russell's Toolbar 2000
-  http://www.jrsoftware.org
+- Jordan Russell's Toolbar 2000 (www.jrsoftware.org)
 
-### Installing with Silverpoint MultiInstaller (http://www.silverpointdevelopment.com/multiinstaller/index.htm):
+### Installing with Silverpoint MultiInstaller (www.silverpointdevelopment.com/multiinstaller/index.htm):
 - Create a new folder for the installation.
 - Download all the component zips to a folder: SpTBXLib + TB2K
 - Download Silverpoint MultiInstaller and the Setup.Ini, extract them to the folder:
 
-The installation folder will end up with this files: 
+The installation folder will end up with this files:
+
+```
 C:\MyInstall
        |-  SpTBXLib.zip
        |-  tb2k-2.2.2.zip
        |-  MultiInstaller.exe
-       |-  Setup.ini 
+       |-  Setup.ini
+```
 
 You are ready to install the component packages, just run MultiInstaller, select the destination folder, and all the components will be unziped, patched, compiled and installed on the Delphi IDE.
 
@@ -76,5 +76,5 @@ Compile and install the components
 - Open the TB2K design package corresponding to the IDE version (tb2kdsgn_d12), press Compile and then press Install, close the package window (don't save the changes).
 - Open the SpTBXLib design package corresponding to the IDE version (SpTBXLibDsgn_*.dpk), press Compile and then press Install, close the package window (don't save the changes).
 
-For more info go to:
-http://www.silverpointdevelopment.com/sptbxlib/support/index.htm
+For more info go to:  
+www.silverpointdevelopment.com/sptbxlib/support/index.htm
diff --git a/Release History.txt b/Release History.txt
@@ -1,3 +1,21 @@
+18 September 2023 - version 2.5.10
+  - Updated TB2K patch, removed VirtualImageList scaling on 
+    TB2Common.SpGetScaledVirtualImageListSize.
+  - Added ActiveTabVisibleOnResize property to SpTBXTabSet and TSpTBXTabControl, 
+    when set to true the active tab will always be visible when resizing.
+  - Added mouse wheel scrolling to SpTBXTabSet and TSpTBXTabControl.
+  - Fixed #106, scaling back from a very high DPI causes the toolbar items to be 
+    shrinked to 0
+  - Fixed #105, ActiveTab goes out of view when restoring from a minimized state
+  - Fixed Tabs painting on High DPIs, corrected border scaling.
+  - Fixed TabSet and TabControl background painting on the default Windows theme.
+  - Updated TB2K patch, fixed #107: TTBCustomAccObject.Destroy is called after the 
+    critical section is deleted. MSAA client still holds acc. object references.
+  - Added tcbOnHotTrack to TabCloseButton property, the close button will be visible 
+    when the tab is hottracked or if it's the active tab.
+  - Fixed #108: incorrect TSpTBXCustomizer DPI scaling
+  - Fixed #108: TVirtualImageList.Assign doesn't set Width and Height
+
 18 January 2022 - version 2.5.9
   - Added Rad Studio 11 Alexandria support.
   - Added 24x24 images to SpTBXReg.DCR to fix a Rad Studio 11 bug: the IDE doesn't 

diff --git a/Source/SpTBXColorPickerForm.dfm b/Source/SpTBXColorPickerForm.dfm
@@ -1,8 +1,8 @@
 object SpTBXColorPickerForm: TSpTBXColorPickerForm
   Left = 156
   Top = 89
-  ClientHeight = 193
-  ClientWidth = 213
+  ClientHeight = 192
+  ClientWidth = 209
   Color = clBtnFace
   Constraints.MinHeight = 211
   Constraints.MinWidth = 217
@@ -16,17 +16,18 @@ object SpTBXColorPickerForm: TSpTBXColorPickerForm
   OnDestroy = FormDestroy
   OnResize = FormResize
   OnShow = FormShow
-  PixelsPerInch = 96
   TextHeight = 13
   object SpTBXTabControl1: TSpTBXTabControl
     Left = 0
     Top = 26
-    Width = 213
-    Height = 167
+    Width = 209
+    Height = 166
     Align = alClient
     ActiveTabIndex = 0
     Images = ImageList1
     OnActiveTabChange = SpTBXTabControl1ActiveTabChange
+    ExplicitWidth = 213
+    ExplicitHeight = 167
     HiddenItems = <>
     object SpTBXTabItem1: TSpTBXTabItem
       Checked = True
@@ -46,14 +47,14 @@ object SpTBXColorPickerForm: TSpTBXColorPickerForm
       Caption = ''
       ImageIndex = 3
       DesignSize = (
-        213
-        141)
+        209
+        140)
       TabItem = 'SpTBXTabItem2'
       object SpTBXColorListBox1: TSpTBXColorListBox
         Left = 5
         Top = 5
-        Width = 200
-        Height = 127
+        Width = 192
+        Height = 126
         Style = [clbsSystemColors, clbsIncludeNone, clbsIncludeDefault, clbsPrettyNames, clbsNoneAsTransparent]
         Anchors = [akLeft, akTop, akRight, akBottom]
         TabOrder = 0
@@ -64,24 +65,28 @@ object SpTBXColorPickerForm: TSpTBXColorPickerForm
     object SpTBXTabSheet3: TSpTBXTabSheet
       Left = 0
       Top = 26
-      Width = 213
-      Height = 141
+      Width = 209
+      Height = 140
       Caption = ''
       ImageIndex = 4
+      ExplicitWidth = 213
+      ExplicitHeight = 141
       DesignSize = (
-        213
-        141)
+        209
+        140)
       TabItem = 'SpTBXTabItem3'
       object imgColorPicker: TImage
         Left = 2
         Top = 0
-        Width = 207
-        Height = 137
+        Width = 203
+        Height = 136
         Align = alClient
         Visible = False
+        ExplicitWidth = 207
+        ExplicitHeight = 137
       end
       object btnColorPicker: TSpTBXSpeedButton
-        Left = 48
+        Left = 44
         Top = 58
         Width = 113
         Height = 22
@@ -90,15 +95,18 @@ object SpTBXColorPickerForm: TSpTBXColorPickerForm
         DragMode = dmAutomatic
         OnEndDrag = btnColorPickerEndDrag
         OnStartDrag = btnColorPickerStartDrag
+        ExplicitLeft = 48
       end
     end
     object SpTBXTabSheet1: TSpTBXTabSheet
       Left = 0
       Top = 26
-      Width = 213
-      Height = 141
+      Width = 209
+      Height = 140
       Caption = ''
       ImageIndex = 2
+      ExplicitWidth = 213
+      ExplicitHeight = 141
       TabItem = 'SpTBXTabItem1'
       object imgPalette: TImage
         Left = 5
@@ -2687,17 +2695,18 @@ object SpTBXColorPickerForm: TSpTBXColorPickerForm
   object SpTBXPanel1: TSpTBXPanel
     Left = 0
     Top = 0
-    Width = 213
+    Width = 209
     Height = 26
     Caption = 'SpTBXPanel1'
     Align = alTop
     TabOrder = 1
     OnDrawBackground = SpTBXPanel1DrawBackground
+    ExplicitWidth = 213
     DesignSize = (
-      213
+      209
       26)
     object btnColorNone: TSpTBXSpeedButton
-      Left = 170
+      Left = 162
       Top = 3
       Width = 20
       Height = 20
@@ -2708,9 +2717,10 @@ object SpTBXColorPickerForm: TSpTBXColorPickerForm
       Images = ImageList1
       ImageIndex = 1
       OnDraw = btnColorDialogDraw
+      ExplicitLeft = 170
     end
     object btnColorDialog: TSpTBXSpeedButton
-      Left = 190
+      Left = 182
       Top = 3
       Width = 20
       Height = 20
@@ -2721,6 +2731,7 @@ object SpTBXColorPickerForm: TSpTBXColorPickerForm
       Images = ImageList1
       ImageIndex = 0
       OnDraw = btnColorDialogDraw
+      ExplicitLeft = 190
     end
     object btnColor: TSpTBXSpeedButton
       Left = 2

diff --git a/Source/SpTBXColorPickerForm.pas b/Source/SpTBXColorPickerForm.pas
@@ -40,7 +40,7 @@ interface
 
 {$BOOLEVAL OFF}   // Unit depends on short-circuit boolean evaluation
 {$IF CompilerVersion >= 25} // for Delphi XE4 and up
-  {$LEGACYIFEND ON} // requires $IF to be terminated with $ENDIF instead of $IFEND
+  {$LEGACYIFEND ON} // requires $IF to be terminated by $IFEND (XE4+ allows both $ENDIF and $IFEND)
 {$IFEND}
 
 uses

diff --git a/Source/SpTBXControls.pas b/Source/SpTBXControls.pas
@@ -1,7 +1,7 @@
 unit SpTBXControls;
 
 {==============================================================================
-Version 2.5.9
+Version 2.5.10
 
 The contents of this file are subject to the SpTBXLib License; you may
 not use or distribute this file except in compliance with the
@@ -41,7 +41,7 @@ interface
 
 {$BOOLEVAL OFF}   // Unit depends on short-circuit boolean evaluation
 {$IF CompilerVersion >= 25} // for Delphi XE4 and up
-  {$LEGACYIFEND ON} // requires $IF to be terminated with $ENDIF instead of $IFEND
+  {$LEGACYIFEND ON} // requires $IF to be terminated by $IFEND (XE4+ allows both $ENDIF and $IFEND)
 {$IFEND}
 
 uses

diff --git a/Source/SpTBXCustomizer.pas b/Source/SpTBXCustomizer.pas
@@ -1,7 +1,7 @@
 unit SpTBXCustomizer;
 
 {==============================================================================
-Version 2.5.9
+Version 2.5.10
 
 The contents of this file are subject to the SpTBXLib License; you may
 not use or distribute this file except in compliance with the
@@ -38,7 +38,7 @@ interface
 
 {$BOOLEVAL OFF}   // Unit depends on short-circuit boolean evaluation
 {$IF CompilerVersion >= 25} // for Delphi XE4 and up
-  {$LEGACYIFEND ON} // requires $IF to be terminated with $ENDIF instead of $IFEND
+  {$LEGACYIFEND ON} // requires $IF to be terminated by $IFEND (XE4+ allows both $ENDIF and $IFEND)
 {$IFEND}
 
 uses