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

Grids: use out parameters in MouseToCell and OffsetToColRow. Issue #0038847.

Browse Source 
git-svn-id: trunk@65087 -
This commit is contained in:
bart 2021-05-05 16:00:16 +00:00
parent 890c02fb72
commit 4b9ae7f263
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/grids.pas
View File

@ -1130,7 +1130,7 @@ type
function MoveNextSelectable(Relative:Boolean; DCol, DRow: Integer): Boolean; virtual; function MoveNextSelectable(Relative:Boolean; DCol, DRow: Integer): Boolean; virtual;
procedure MoveSelection; virtual; procedure MoveSelection; virtual;
function OffsetToColRow(IsCol,Fisical:Boolean; Offset:Integer; function OffsetToColRow(IsCol,Fisical:Boolean; Offset:Integer;
var Index,Rest:Integer): boolean; out Index,Rest:Integer): boolean;
procedure Paint; override; procedure Paint; override;
procedure PickListItemSelected(Sender: TObject); procedure PickListItemSelected(Sender: TObject);
procedure PrepareCanvas(aCol,aRow: Integer; aState:TGridDrawState); virtual; procedure PrepareCanvas(aCol,aRow: Integer; aState:TGridDrawState); virtual;
@ -1333,7 +1333,7 @@ type
procedure LoadFromStream(AStream: TStream); virtual; procedure LoadFromStream(AStream: TStream); virtual;
function MouseCoord(X,Y: Integer): TGridCoord; function MouseCoord(X,Y: Integer): TGridCoord;
function MouseToCell(const Mouse: TPoint): TPoint; overload; function MouseToCell(const Mouse: TPoint): TPoint; overload;
procedure MouseToCell(X,Y: Integer; var ACol,ARow: Longint); overload; procedure MouseToCell(X,Y: Integer; out ACol,ARow: Longint); overload;
function MouseToLogcell(Mouse: TPoint): TPoint; function MouseToLogcell(Mouse: TPoint): TPoint;
function MouseToGridZone(X,Y: Integer): TGridZone; function MouseToGridZone(X,Y: Integer): TGridZone;
procedure SaveToFile(FileName: string); virtual; procedure SaveToFile(FileName: string); virtual;
@ -6179,7 +6179,7 @@ end;
function TCustomGrid.OffsetToColRow(IsCol, Fisical: Boolean; Offset: Integer; function TCustomGrid.OffsetToColRow(IsCol, Fisical: Boolean; Offset: Integer;
var Index, Rest: Integer): boolean; out Index, Rest: Integer): boolean;
begin begin
Index:=0; Index:=0;
Rest:=0; Rest:=0;
@ -7681,7 +7681,7 @@ begin
MouseToCell(Mouse.X, Mouse.Y, Result.X, Result.Y); MouseToCell(Mouse.X, Mouse.Y, Result.X, Result.Y);
end; end;
procedure TCustomGrid.MouseToCell(X, Y: Integer; var ACol, ARow: Longint); procedure TCustomGrid.MouseToCell(X, Y: Integer; out ACol, ARow: Longint);
var var
dummy: Integer; dummy: Integer;
begin begin