mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-01 12:55:56 +02:00
LCL/grids: Make special grid cursors changable by user. Add property ColRowDragIndicatorColor. Modified patch by Pavol S. Issue #36138.
git-svn-id: trunk@61995 -
This commit is contained in:
wp
parent
f5493dcc12
commit
77b19309f9
@ -808,7 +808,9 @@ type
|
||||
FHeaderPushZones: TGridZoneSet;
|
||||
FCursorChangeLock: Integer;
|
||||
FCursorState: TGridCursorState;
|
||||
FColRowDragIndicatorColor: TColor;
|
||||
FSavedCursor: TCursor;
|
||||
FSpecialCursors: array[gcsColWidthChanging..gcsDragging] of TCursor;
|
||||
FSizing: TSizingRec;
|
||||
FRowAutoInserted: Boolean;
|
||||
FMouseWheelOption: TMouseWheelOption;
|
||||
@ -873,6 +875,7 @@ type
|
||||
function GetSelectedRange(AIndex: Integer): TGridRect;
|
||||
function GetSelectedRangeCount: Integer;
|
||||
function GetSelection: TGridRect;
|
||||
function GetSpecialCursor(ACursorState: TGridCursorState): TCursor;
|
||||
function GetTopRow: Longint;
|
||||
function GetVisibleColCount: Integer;
|
||||
function GetVisibleGrid: TRect;
|
||||
@ -902,6 +905,7 @@ type
|
||||
procedure SetCol(AValue: Integer);
|
||||
procedure SetColWidths(Acol: Integer; Avalue: Integer);
|
||||
procedure SetColCount(AValue: Integer);
|
||||
procedure SetColRowDragIndicatorColor(const AValue: TColor);
|
||||
procedure SetDefColWidth(AValue: Integer);
|
||||
procedure SetDefRowHeight(AValue: Integer);
|
||||
procedure SetDefaultDrawing(const AValue: Boolean);
|
||||
@ -921,9 +925,10 @@ type
|
||||
procedure SetScrollBars(const AValue: TScrollStyle);
|
||||
procedure SetSelectActive(const AValue: Boolean);
|
||||
procedure SetSelection(const AValue: TGridRect);
|
||||
procedure SetSpecialCursor(ACursorState: TGridCursorState; const AValue: TCursor);
|
||||
procedure SetTopRow(const AValue: Integer);
|
||||
function StartColSizing(const X, Y: Integer): boolean;
|
||||
procedure ChangeCursor(ACursor: TCursor);
|
||||
procedure ChangeCursor(ACursor: TCursor; ASaveCurrentCursor: Boolean = true);
|
||||
function TrySmoothScrollBy(aColDelta, aRowDelta: Integer): Boolean;
|
||||
procedure TryScrollTo(aCol,aRow: Integer; ClearColOff, ClearRowOff: Boolean);
|
||||
procedure UpdateCachedSizes;
|
||||
@ -1188,6 +1193,9 @@ type
|
||||
property Col: Integer read FCol write SetCol;
|
||||
property ColCount: Integer read GetColCount write SetColCount default 5;
|
||||
property ColRow: TPoint read GetQuickColRow write SetQuickColRow;
|
||||
property ColRowDraggingCursor: TCursor index gcsDragging read GetSpecialCursor write SetSpecialCursor default crMultiDrag;
|
||||
property ColRowDragIndicatorColor: TColor read FColRowDragIndicatorColor write SetColRowDragIndicatorColor default clRed;
|
||||
property ColSizingCursor: TCursor index gcsColWidthChanging read GetSpecialCursor write SetSpecialCursor default crHSplit;
|
||||
property ColumnClickSorts: boolean read FColumnClickSorts write SetColumnClickSorts default false;
|
||||
property Columns: TGridColumns read GetColumns write SetColumns stored IsColumnsStored;
|
||||
property ColWidths[aCol: Integer]: Integer read GetColWidths write SetColWidths;
|
||||
@ -1239,6 +1247,7 @@ type
|
||||
property RangeSelectMode: TRangeSelectMode read FRangeSelectMode write SetRangeSelectMode default rsmSingle;
|
||||
property Row: Integer read FRow write SetRow;
|
||||
property RowCount: Integer read GetRowCount write SetRowCount default 5;
|
||||
property RowSizingCursor: TCursor index gcsRowHeightChanging read GetSpecialCursor write SetSpecialCursor default crVSplit;
|
||||
property RowHeights[aRow: Integer]: Integer read GetRowHeights write SetRowHeights;
|
||||
property SaveOptions: TSaveOptions read FsaveOptions write FSaveOptions;
|
||||
property SelectActive: Boolean read FSelectActive write SetSelectActive;
|
||||
@ -1554,6 +1563,9 @@ type
|
||||
// property CellHintPriority;
|
||||
property Color;
|
||||
property ColCount;
|
||||
property ColRowDraggingCursor;
|
||||
property ColRowDragIndicatorColor;
|
||||
property ColSizingCursor;
|
||||
property ColumnClickSorts;
|
||||
property Columns;
|
||||
property Constraints;
|
||||
@ -1587,6 +1599,7 @@ type
|
||||
property PopupMenu;
|
||||
property RangeSelectMode;
|
||||
property RowCount;
|
||||
property RowSizingCursor;
|
||||
property ScrollBars;
|
||||
property ShowHint;
|
||||
property TabAdvance;
|
||||
@ -1792,6 +1805,9 @@ type
|
||||
property CellHintPriority;
|
||||
property Color;
|
||||
property ColCount;
|
||||
property ColRowDraggingCursor;
|
||||
property ColRowDragIndicatorColor;
|
||||
property ColSizingCursor;
|
||||
property ColumnClickSorts;
|
||||
property Columns;
|
||||
property Constraints;
|
||||
@ -1825,6 +1841,7 @@ type
|
||||
property PopupMenu;
|
||||
property RangeSelectMode;
|
||||
property RowCount;
|
||||
property RowSizingCursor;
|
||||
property ScrollBars;
|
||||
property ShowHint;
|
||||
property TabAdvance;
|
||||
@ -2848,11 +2865,13 @@ begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TCustomGrid.ChangeCursor(ACursor: TCursor);
|
||||
procedure TCustomGrid.ChangeCursor(ACursor: TCursor;
|
||||
ASaveCurrentCursor: Boolean = true);
|
||||
begin
|
||||
if FCursorChangeLock = 0 then
|
||||
begin
|
||||
FSavedCursor := Cursor;
|
||||
if ASaveCurrentCursor then
|
||||
FSavedCursor := Cursor;
|
||||
inc(FCursorChangeLock);
|
||||
Cursor := ACursor;
|
||||
dec(FCursorChangeLock);
|
||||
@ -4156,7 +4175,7 @@ begin
|
||||
Canvas.Polygon([Point(x,y+dy),point(x,y-dy),point(x-dx,y), point(x,y+dy)]);
|
||||
{$else}
|
||||
Canvas.Pen.Width:=3;
|
||||
Canvas.Pen.Color:=clRed;
|
||||
Canvas.Pen.Color:=FColRowDragIndicatorColor;
|
||||
Canvas.MoveTo(fMoveLast.y, 0);
|
||||
Canvas.Lineto(fMovelast.y, FGCache.MaxClientXY.Y);
|
||||
Canvas.Pen.Width:=1;
|
||||
@ -5830,11 +5849,24 @@ begin
|
||||
Result:=FRange;
|
||||
end;
|
||||
|
||||
function TCustomGrid.GetSpecialCursor(ACursorState: TGridCursorState): TCursor;
|
||||
begin
|
||||
Result := FSpecialCursors[ACursorState];
|
||||
end;
|
||||
|
||||
function TCustomGrid.GetSmoothScroll(Which: Integer): Boolean;
|
||||
begin
|
||||
Result := goSmoothScroll in Options;
|
||||
end;
|
||||
|
||||
procedure TCustomGrid.SetColRowDragIndicatorColor(const AValue: TColor);
|
||||
begin
|
||||
if FColRowDragIndicatorColor = AValue then exit;
|
||||
FColRowDragIndicatorColor := AValue;
|
||||
if FGridState = gsColMoving then
|
||||
DrawColRowMoving;
|
||||
end;
|
||||
|
||||
procedure TCustomGrid.SetDefaultDrawing(const AValue: Boolean);
|
||||
begin
|
||||
if FDefaultDrawing=AValue then exit;
|
||||
@ -5886,6 +5918,16 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TCustomGrid.SetSpecialCursor(ACursorState: TGridCursorState;
|
||||
const AValue: TCursor);
|
||||
begin
|
||||
if AValue = GetSpecialCursor(ACursorState) then
|
||||
exit;
|
||||
FSpecialCursors[ACursorState] := AValue;
|
||||
if FCursorState <> gcsDefault then
|
||||
ChangeCursor(AValue, false);
|
||||
end;
|
||||
|
||||
function TCustomGrid.doColSizing(X, Y: Integer): Boolean;
|
||||
var
|
||||
Offset: Integer;
|
||||
@ -5970,7 +6012,7 @@ begin
|
||||
if FCursorState<>gcsColWidthChanging then begin
|
||||
PrevLine := false;
|
||||
PrevOffset := -1;
|
||||
ChangeCursor(crHSplit);
|
||||
ChangeCursor(ColSizingCursor);
|
||||
FCursorState := gcsColWidthChanging;
|
||||
end;
|
||||
exit(true);
|
||||
@ -6036,7 +6078,7 @@ begin
|
||||
if (Index>=FFixedRows)and(Abs(Offset-Y)<=varColRowBorderTolerance) then begin
|
||||
// start resizing
|
||||
if FCursorState<>gcsRowHeightChanging then begin
|
||||
ChangeCursor(crVSplit);
|
||||
ChangeCursor(RowSizingCursor);
|
||||
FCursorState := gcsRowHeightChanging;
|
||||
PrevLine := False;
|
||||
PrevOffset := -1;
|
||||
@ -6060,7 +6102,7 @@ begin
|
||||
with FGCache do begin
|
||||
|
||||
if (Abs(ClickMouse.X-X)>FDragDX) and (FCursorState<>gcsDragging) then begin
|
||||
ChangeCursor(crMultiDrag);
|
||||
ChangeCursor(ColRowDraggingCursor);
|
||||
FCursorState := gcsDragging;
|
||||
ResetLastMove;
|
||||
end;
|
||||
@ -6096,7 +6138,7 @@ begin
|
||||
with FGCache do begin
|
||||
|
||||
if (FCursorState<>gcsDragging) and (Abs(ClickMouse.Y-Y)>FDragDX) then begin
|
||||
ChangeCursor(crMultiDrag);
|
||||
ChangeCursor(ColRowDraggingCursor);
|
||||
FCursorState := gcsDragging;
|
||||
ResetLastMove;
|
||||
end;
|
||||
@ -9758,6 +9800,12 @@ begin
|
||||
|
||||
FValidateOnSetSelection := false;
|
||||
|
||||
FColRowDragIndicatorColor := clRed;
|
||||
|
||||
FSpecialCursors[gcsColWidthChanging] := crHSplit;
|
||||
FSpecialCursors[gcsRowHeightChanging] := crVSplit;
|
||||
FSpecialCursors[gcsDragging] := crMultiDrag;
|
||||
|
||||
varRubberSpace := MulDiv(constRubberSpace, Screen.PixelsPerInch, 96);
|
||||
varCellPadding := MulDiv(constCellPadding, Screen.PixelsPerInch, 96);
|
||||
varColRowBorderTolerance := MulDiv(constColRowBorderTolerance, Screen.PixelsPerInch, 96);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user