Issue 2288 – Tree indentation does not scale correctly

https://winscp.net/tracker/2288 Source commit: 043b0ba3da5deb0eeafb5e2f082680459142f338
winscp · May 7, 2024 · 363f3e3 · 363f3e3
1 parent 23b48e9
commit 363f3e3
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/source/windows/VCLCommon.cpp b/source/windows/VCLCommon.cpp
@@ -496,6 +496,11 @@ friend void __fastcall ShowAsModal(TForm * Form, void *& Storage, bool BringToFr
 friend void __fastcall HideAsModal(TForm * Form, void *& Storage);
 friend void __fastcall ShowFormNoActivate(TForm * Form);
 };
+//---------------------------------------------------------------------
+class TPublicTreeView : public TCustomTreeView
+{
+friend void __fastcall ChangeControlScale(TControl * Control, int M, int D);
+};
 //---------------------------------------------------------------------------
 void __fastcall RealignControl(TControl * Control)
 {
@@ -568,6 +573,13 @@ static void __fastcall ChangeControlScale(TControl * Control, int M, int D)
     }
   }
 
+  TCustomTreeView * CustomTreeView = dynamic_cast<TCustomTreeView *>(Control);
+  if (CustomTreeView != NULL)
+  {
+    TPublicTreeView * PublicTreeView = static_cast<TPublicTreeView *>(CustomTreeView);
+    PublicTreeView->Indent = MulDiv(PublicTreeView->Indent, M, D);
+  }
+
   TCustomCombo * CustomCombo = dynamic_cast<TCustomCombo *>(Control);
   if (CustomCombo != NULL)
   {