paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-03 22:27:10 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL/Paintbox: Fine-tune position of crossing lines in TPaintbox at design-time. Issue #40198.

Browse Source
This commit is contained in:
wp_xyz 2023-04-13 22:32:41 +02:00
parent f677015596
commit fc2986c741
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/paintbox.inc
View File

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