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

improved tvoAutoItemHeight

Browse Source 
git-svn-id: trunk@4001 -
This commit is contained in:
mattias 2003-04-02 13:37:08 +00:00
parent 02777dd1b5
commit 130452f059
1 changed files with 4 additions and 1 deletions

5
lcl/include/treeview.inc
View File

@ -2833,9 +2833,12 @@ begin
if HandleAllocated and (tvoAutoItemHeight in FOptions) then begin
FDefItemHeight:=
Canvas.TextHeight('ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789|\()^')
+2 // margin
+2 // border
;
if (Images<>nil) and (Images.Height>FDefItemHeight) then
FDefItemHeight:=Images.Height;
if (StateImages<>nil) and (StateImages.Height>FDefItemHeight) then
FDefItemHeight:=StateImages.Height;
end;
end;