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

gtk2: try to draw tree signs with requested size

Browse Source 
git-svn-id: trunk@17233 -
This commit is contained in:
paul 2008-11-05 08:52:31 +00:00
parent 3b57a81d36
commit 2ddbc5600b
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/interfaces/gtk/gtkthemes.pas
View File

@ -455,8 +455,22 @@ begin
{$ifndef gtk1}
if Painter = gptExpander then
begin
Area.width := ExpanderSize;
Area.height := ExpanderSize;
// Better to draw expander with the ExpanderSize, but sometimes it
// will not look very well. The best can we do is to use the same odd/even
// amount of pixels => expand/shrink area.width and area.height a bit
// Area.width := ExpanderSize;
if Odd(Area.width) <> Odd(ExpanderSize) then
if Area.width < ExpanderSize then
inc(Area.width)
else
dec(Area.width);
// Area.height := ExpanderSize;
if Odd(Area.height) <> Odd(ExpanderSize) then
if Area.height < ExpanderSize then
inc(Area.height)
else
dec(Area.height);
end;
{$endif}
case Painter of