paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 12:39:23 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/treeview.inc
View File

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