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

* LCL/Paintbox: Better solution to previous commit (issue #40198).

Browse Source
This commit is contained in:
wp_xyz 2023-04-13 23:26:14 +02:00
parent 39a40b03c7
commit a2cd35663d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/paintbox.inc
View File

@ -35,7 +35,8 @@ begin
Brush.Style := bsClear;
Rectangle(0, 0, Self.Width, Self.Height);
Line(0,0,Self.Width,Self.Height);
Line(Self.Width-1,0,-1,Self.Height);
Line(0,Self.Height-1,Self.Width-1, 0);
// Line(Self.Width-1,0,-1,Self.Height);
end;
exit;
end;