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

LCL: Fix difference between rectangle fill and border when drawn by TLazCanvas.Rectangle().

Browse Source
This commit is contained in:
wp_xyz 2023-05-24 18:25:19 +02:00
parent 6e38c6564c
commit 3685317e2b
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/lazcanvas.pas
View File

@ -296,6 +296,8 @@ var
begin begin
b := Bounds; b := Bounds;
SortRect (b); SortRect (b);
dec(b.Right);
dec(b.Bottom);
// Optimize when filling everything // Optimize when filling everything
if (b.Left = 0) and (b.Top = 0) and (b.Right = Width) and (b.Bottom = Height) if (b.Left = 0) and (b.Top = 0) and (b.Right = Width) and (b.Bottom = Height)