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

LCL, grids, VisibleRowCount and VisibleColCount delphi compatible, issue #10932

Browse Source 
git-svn-id: trunk@14408 -
This commit is contained in:
jesus 2008-03-04 18:47:53 +00:00
parent 58e4529589
commit 2cc82b2869
1 changed files with 18 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
lcl/grids.pas
View File

@ -1597,19 +1597,21 @@ begin
end;
function TCustomGrid.GetVisibleColCount: Integer;
var
R: TRect;
begin
R:=FGCache.VisibleGrid;
Result:=R.Right-R.left+1;
with FGCache do begin
Result := VisibleGrid.Right-VisibleGrid.Left;
if GridWidth<=ClientWidth then
inc(Result)
end;
end;
function TCustomGrid.GetVisibleRowCount: Integer;
var
R: TRect;
begin
R:=FGCache.VisibleGrid;
Result:=r.bottom-r.top+1;
with FGCache do begin
Result:=VisibleGrid.bottom-VisibleGrid.top;
if GridHeight<=ClientHeight then
inc(Result);
end;
end;
procedure TCustomGrid.HeadersMouseMove(const X, Y: Integer);
@ -3662,6 +3664,7 @@ procedure TCustomGrid.UpdateSizes;
begin
Include(FGridFlags, gfVisualChange);
UpdateCachedSizes;
CacheVisibleGrid;
UpdateSBVisibility;
end;
@ -5986,15 +5989,18 @@ procedure TCustomGrid.FixPosition;
procedure FixTopLeft;
var
oldTL: TPoint;
VisCount: Integer;
begin
OldTL:=FTopLeft;
if OldTL.X+VisibleColCount>FCols.Count then begin
OldTL.X := FCols.Count - VisibleColCount;
VisCount := FGCache.VisibleGrid.Right-FGCache.VisibleGrid.Left+1;
if OldTL.X+VisCount>FCols.Count then begin
OldTL.X := FCols.Count - VisCount;
if OldTL.X<FixedCols then
OldTL.X := FixedCols;
end;
if OldTL.Y+VisibleRowCount>FRows.Count then begin
OldTL.Y := FRows.Count - VisiblerowCount;
VisCount := FGCache.VisibleGrid.Bottom-FGCache.VisibleGrid.Top+1;
if OldTL.Y+VisCount>FRows.Count then begin
OldTL.Y := FRows.Count - VisCount;
if OldTL.Y<FixedRows then
OldTL.Y:=FixedRows;
end;