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

LCL, grids, removed check for windows/linux in InternalNeedBorder, using IntersetctRect in BoxRect

Browse Source 
git-svn-id: trunk@19159 -
This commit is contained in:
jesus 2009-03-30 06:13:53 +00:00
parent eff2d6991a
commit 2d20e4ef95
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lcl/grids.pas
View File

@ -1866,11 +1866,7 @@ end;
function TCustomGrid.InternalNeedBorder: boolean;
begin
{$IFDEF WINDOWS}
result := FFlat and (FGridBorderStyle = bsSingle);
{$ELSE}
result := FGridBorderStyle = bsSingle;
{$ENDIF}
end;
procedure TCustomGrid.InternalSetColCount(ACount: Integer);
@ -6052,12 +6048,7 @@ begin
with CellRect(ARight, ABottom) do
Result.BottomRight := BottomRight;
with FGCache.VisibleGrid do begin
Result.Left:=Max(Result.Left, Left);
Result.Right:=Min(Result.Right, Right);
Result.Top:=Max(Result.Top, Top);
Result.Bottom:=Min(Result.Bottom,Bottom);
end;
IntersectRect(Result, Result, FGCache.VisibleGrid);
end;
procedure TCustomGrid.EndUpdate(aRefresh: boolean = true);