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

LCL: make TShape.Shape = stSquaredDiamond different from stDiamond. Issue #20290, patch from Anton

Browse Source 
git-svn-id: trunk@32427 -
This commit is contained in:
juha 2011-09-19 21:04:42 +00:00
parent 517f95cae4
commit 8e3740b555
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/include/shape.inc
View File

@ -70,16 +70,16 @@ begin
Ellipse(PaintRect);
stSquaredDiamond, stDiamond:
begin
with Self do
with PaintRect do
begin
P[0].x := PenInc;
P[0].y := (Height - 1) div 2;
P[1].x := (Width - 1) div 2;
P[1].y := PenInc;
P[2].x := Width - PenInc - 1;
P[0].x := Left;
P[0].y := (Top + Bottom) div 2;
P[1].x := (Left + Right) div 2;
P[1].y := Top;
P[2].x := Right - 1;
P[2].y := P[0].y;
P[3].x := P[1].x;
P[3].y := Height - PenInc - 1;
P[3].y := Bottom - 1;
Polygon(P);
end;
end;
@ -97,7 +97,7 @@ begin
P[3].y := P[0].y;
Polygon(P);
end;
end;
end;
end;
end;
// to fire OnPaint event