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

LCL: Fix parameter for OnDrawArrow. Cleanup. Issue #27472, patch from Alexey Torgashin.

Browse Source 
git-svn-id: trunk@47878 -
This commit is contained in:
juha 2015-02-18 12:24:52 +00:00
parent 2d425eb707
commit f9ff80e5b5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/treeview.inc
View File

@ -4704,8 +4704,8 @@ var
const
cShiftHorzArrow = 2; //paint horz arrow N pixels upper than MidY
begin
HalfSize := FExpandSignSize shr 1;
if ((FExpandSignSize and 1) = 0) then
HalfSize := FExpandSignSize div 2;
if not Odd(FExpandSignSize) then
Dec(HalfSize);
ALeft := MidX - HalfSize;
ATop := MidY - HalfSize;
@ -4714,7 +4714,7 @@ var
if Assigned(FOnCustomDrawArrow) then
begin
FOnCustomDrawArrow(Self, Rect(ALeft, ATop, ARight, ABottom), CollapseSign);
FOnCustomDrawArrow(Self, Rect(ALeft, ATop, ARight, ABottom), not CollapseSign);
Exit
end;