paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-11 13:19:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, implemented grid option goFixedColSizing

Browse Source 
git-svn-id: trunk@31521 -
This commit is contained in:
jesus 2011-07-03 03:18:21 +00:00
parent e92ce4ee6c
commit 714becaee7
1 changed files with 31 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
lcl/grids.pas
View File

@ -102,7 +102,8 @@ type
goScrollKeepVisible, // keeps focused cell visible while scrolling
goHeaderHotTracking, // Header cells change look when mouse is over them
goHeaderPushedLook, // Header cells looks pushed when clicked
goSelectionActive // Setting grid.Selection moves also cell cursor
goSelectionActive, // Setting grid.Selection moves also cell cursor
goFixedColSizing
);
TGridOptions = set of TGridOption;
@ -2486,7 +2487,10 @@ begin
//DeltaOff := OffEnd - FGCache.ClickMouse.X;
DeltaOff := 0;
result := (Index>=FixedCols);
if goFixedColSizing in Options then
result := (Index>=0)
else
result := (Index>=FixedCols);
end;
end;
@ -5061,9 +5065,9 @@ begin
HeaderSizing(true, Index, X - OffIni + DeltaOff);
exit(true);
end else
if (fGridState=gsNormal) and (ColCount>FixedCols) and
if (fGridState=gsNormal) and
((Y<FGCache.FixedHeight) or (FExtendedColSizing and (Y<FGCache.MaxClientXY.Y))) and
(FlipX(X)>FGCache.FixedWidth)
((goFixedColSizing in Options) or ((ColCount>FixedCols) and (FlipX(X)>FGCache.FixedWidth)))
then begin
// find closest cell and cell boundaries
@ -5085,15 +5089,21 @@ begin
FindPrevColumn;
end;
// check if it's not fixed col and if cursor is close enough to sel boundary
if (Index>=FFixedCols)and(Abs(Offset-x)<=2) then begin
// start resizing
if Cursor<>crHSplit then begin
PrevLine := false;
PrevOffset := -1;
ChangeCursor(crHSplit);
// check if cursor is near boundary and it's a valid column
if (Abs(Offset-x)<=2) then begin
if goFixedColSizing in Options then
Offset := 0
else
Offset := FFixedCols;
if Index>=Offset then begin
// start resizing
if Cursor<>crHSplit then begin
PrevLine := false;
PrevOffset := -1;
ChangeCursor(crHSplit);
end;
exit(true);
end;
exit(true);
end;
end;
@ -5690,10 +5700,15 @@ begin
gzFixedCells:
begin
FGridState := gsHeaderClicking;
if ((goHeaderPushedLook in Options) and
(FGCache.HotGridZone in FHeaderPushZones)) then
DoPushCell;
if (goColSizing in Options) and (goFixedColSizing in Options) and
(Cursor=crHSplit) then
fGridState:= gsColSizing
else begin
FGridState := gsHeaderClicking;
if ((goHeaderPushedLook in Options) and
(FGCache.HotGridZone in FHeaderPushZones)) then
DoPushCell;
end;
end;
gzFixedCols: