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

AJ : fixed drawing designtime right/bottom border

Browse Source 
git-svn-id: trunk@3589 -
This commit is contained in:
lazarus 2002-10-30 20:15:46 +00:00
parent bafb3d7ef3
commit 69aadd346d
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

@ -30,7 +30,7 @@ begin
begin begin
Pen.Style := psDash; Pen.Style := psDash;
Brush.Style := bsClear; Brush.Style := bsClear;
Rectangle(0, 0, Width, Height); Rectangle(0, 0, Width - 1, Height - 1);
end; end;
if Assigned(FOnPaint) then if Assigned(FOnPaint) then
FOnPaint(Self); FOnPaint(Self);