paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-05 09:18:02 +02:00
Code Issues Packages Projects Releases Wiki Activity

VirtualTreeView: Fix header paint issue in gtk2.

Browse Source
This commit is contained in:
wp_xyz 2024-10-08 13:38:30 +02:00
parent 7e274a48e7
commit 8b9b6cd85d
3 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/virtualtreeview/laz.virtualtrees.pas
View File

@ -294,6 +294,12 @@ var // Clipboard format IDs used in OLE drag'n drop and clipboard transfers.
UtilityImageSize: Integer = cUtilityImageSize;
{$ifdef gtk}
// Workaround LCL bug 8553
var
pf32bit: TPixelFormat = pfDevice;
{$endif}
type
// The exception used by the trees.
EVirtualTreeError = class(Exception);

2
examples/virtualtreeview/vst_advanced/DrawTreeDemo.lfm
View File

@ -7,7 +7,7 @@ object DrawTreeForm: TDrawTreeForm
Caption = 'DrawTreeForm'
ClientHeight = 453
ClientWidth = 710
LCLVersion = '3.99.0.0'
LCLVersion = '4.99.0.0'
OnCreate = FormCreate
object Label7: TLabel
Left = 8

5
examples/virtualtreeview/vst_advanced/DrawTreeDemo.pas
View File

@ -387,8 +387,9 @@ begin
Data.Properties := Data.Properties + ', 64K colors';
pf24bit:
Data.Properties := Data.Properties + ', 16M colors';
pf32bit:
Data.Properties := Data.Properties + ', 16M+ colors';
else
if Picture.Bitmap.PixelFormat = pf32bit then
Data.Properties := Data.Properties + ', 16M+ colors';
end;
if Cardinal(Data.Image.Height) + 4 > TLazVirtualDrawTree(Sender).DefaultNodeHeight then
Sender.NodeHeight[Node] := Data.Image.Height + 4;