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

grids: fast resizing of columns wider than visible area

Browse Source 
git-svn-id: trunk@10636 -
This commit is contained in:
jesus 2007-02-13 21:56:55 +00:00
parent 64e579272e
commit 677185a3bf
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/grids.pas
View File

@ -3742,6 +3742,11 @@ begin
if OffsetToColRow(True, True, X, FSplitter.X, Loc) then begin if OffsetToColRow(True, True, X, FSplitter.X, Loc) then begin
R:=CellRect(FSplitter.x, FSplitter.y); R:=CellRect(FSplitter.x, FSplitter.y);
FSplitter.y:=X; // Resizing X reference FSplitter.y:=X; // Resizing X reference
// if resizing column is partially visible, take the visible boundary.
if R.Right>FGCache.ClientWidth then
Loc:=FGCache.Clientwidth
else
if (R.Right-X)<(X-R.Left) then if (R.Right-X)<(X-R.Left) then
Loc:=R.Right Loc:=R.Right
else begin else begin