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

LCL, grids, fixes incomplete border drawing when flat=true

Browse Source 
git-svn-id: trunk@11889 -
This commit is contained in:
jesus 2007-08-30 20:43:37 +00:00
parent a032f88b32
commit ee74499bcf
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/grids.pas
View File

@ -2868,11 +2868,7 @@ var
R: TRect;
begin
if InternalNeedBorder then begin
{$ifdef sbars}
R := Rect(0,0,Width-1,Height-1);
{$else}
R := Rect(0,0,FGCache.ClientWidth, FGCache.Clientheight);
{$endif}
R := Rect(0,0,ClientWidth-1, Clientheight-1);
with R, Canvas do begin
Pen.Color := fBorderColor;
Pen.Width := 1;
@ -2881,7 +2877,6 @@ begin
LineTo(Right, Bottom);
LineTo(Right, 0);
LineTo(0,0);
Pixels[Right, Bottom] := fBorderColor; // workaround
end;
end;
end;