Fixed issue #1187

JAM-Software · Apr 13, 2023 · ccfb61c · ccfb61c
1 parent d3c0e71
commit ccfb61c
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/Source/VirtualTrees.StyleHooks.pas b/Source/VirtualTrees.StyleHooks.pas
@@ -195,8 +195,6 @@ procedure TVclStyleScrollBarsHook.CalcScrollBarsRect();
 constructor TVclStyleScrollBarsHook.Create(AControl: TWinControl);
 begin
   inherited;
-  InitScrollBars;
-
   {$ifdef NOT_USE_VCL_STYLEHOOK}
   VertSliderState := tsThumbBtnVertNormal;
   VertUpState := tsArrowBtnUpNormal;
@@ -244,6 +242,9 @@ procedure TVclStyleScrollBarsHook.UpdateScroll;
   PaddingSize: Integer;
   BorderSize: Integer;
 begin
+  if VertScrollWnd = nil then
+     InitScrollBars();
+
   HeaderHeight := 0;
   if (hoVisible in TBaseVirtualTree(Control).Header.Options) then
     Inc(HeaderHeight, TBaseVirtualTree(Control).Header.Height);