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

LCL: Fix Canvas.RoundRect with zero radius, wrong size for non-win. Issue #39628

Browse Source
This commit is contained in:
Martin 2022-02-02 14:45:51 +01:00
parent 8c251bbdfb
commit f7f41f0116
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/intfbasewinapi.inc
View File

@ -1933,11 +1933,11 @@ begin
if (X2 - X1 <= 0) or (Y2 - Y1 <= 0) then Exit;
Dec(X2);
Dec(Y2);
if not ((RX <= 0) or (RY <= 0)) then
begin
Dec(X2);
Dec(Y2);
if X2 - X1 < RX then RX := X2 - X1;
if Y2 - Y1 < RY then RY := Y2 - Y1;