paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 16:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

do not draw border, interface will draw border: borderstyle = bssingle

Browse Source 
git-svn-id: trunk@5870 -
This commit is contained in:
micha 2004-08-27 09:39:48 +00:00
parent 4d9968925e
commit eb3a62d452
1 changed files with 1 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ideintf/objectinspector.pp
View File

@ -1641,19 +1641,7 @@ begin
Brush.Color:=FBackgroundColor;
FillRect(SpaceRect);
end;
// draw border
Pen.Color:=cl3DDkShadow;
for a:=0 to BorderWidth-1 do begin
MoveTo(a,Self.Height-1-a);
LineTo(a,a);
LineTo(Self.Width-1-a,a);
end;
Pen.Color:=cl3DLight;
for a:=0 to BorderWidth-1 do begin
MoveTo(Self.Width-1-a,a);
LineTo(Self.Width-1-a,Self.Height-1-a);
LineTo(a,Self.Height-1-a);
end;
// don't draw border: borderstyle=bsSingle
end;
end else begin
for a:=0 to FRows.Count-1 do begin