diff --git a/components/virtualtreeview-unstable/VirtualTrees.pas b/components/virtualtreeview-unstable/VirtualTrees.pas index 502fd92a1..5160a7c02 100644 --- a/components/virtualtreeview-unstable/VirtualTrees.pas +++ b/components/virtualtreeview-unstable/VirtualTrees.pas @@ -4764,6 +4764,7 @@ begin else Images.Handle := LoadBitmap(FindClassHInstance(TBaseVirtualTree), PChar(ImageName)); } + Images.TransparentColor := clNone; Images.LoadFromLazarusResource(ImageName); Logger.SendBitmap([lcCheck],ImageName,Images); try @@ -13702,8 +13703,7 @@ begin if NeedLines then begin - //Workaround till LCL gets fixed - {$ifdef Windows} + //WARNING: It requires a patched LCL if FDottedBrush <> 0 then DeleteObject(FDottedBrush); @@ -13719,9 +13719,6 @@ begin PatternBitmap := CreateBitmap(8, 8, 1, 1, Bits); FDottedBrush := CreatePatternBrush(PatternBitmap); DeleteObject(PatternBitmap); - {$else} - FDottedBrush := CreatePatternBrush(0); - {$endif} end; end; diff --git a/components/virtualtreeview-unstable/demos/images/images.lpi b/components/virtualtreeview-unstable/demos/images/images.lpi index 53d063726..d33ffa3c9 100644 --- a/components/virtualtreeview-unstable/demos/images/images.lpi +++ b/components/virtualtreeview-unstable/demos/images/images.lpi @@ -17,7 +17,6 @@ - diff --git a/components/virtualtreeview-unstable/demos/mininal/minimal_lcl.lpi b/components/virtualtreeview-unstable/demos/mininal/minimal_lcl.lpi index 13ccd0eba..97358a693 100644 --- a/components/virtualtreeview-unstable/demos/mininal/minimal_lcl.lpi +++ b/components/virtualtreeview-unstable/demos/mininal/minimal_lcl.lpi @@ -64,6 +64,9 @@ + + +