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

Merged revision(s) 65320 #5ae03bd920 from trunk:

Browse Source 
Fix spelling errors in grids.pas. Patch by Don Siders. Issue #0039093.
........

git-svn-id: branches/fixes_2_2@65324 -
This commit is contained in:
maxim 2021-06-28 23:25:40 +00:00
parent 52f34a4894
commit 65164490ea
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/grids.pas
View File

@ -1129,8 +1129,8 @@ type
function MoveNextAuto(const Inverse: boolean): boolean; function MoveNextAuto(const Inverse: boolean): boolean;
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, Physical: Boolean; Offset: Integer;
out 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;
@ -6178,8 +6178,8 @@ begin
end; end;
function TCustomGrid.OffsetToColRow(IsCol, Fisical: Boolean; Offset: Integer; function TCustomGrid.OffsetToColRow(IsCol, Physical: Boolean; Offset: Integer;
out Index, Rest: Integer): boolean; out Index, Rest: Integer): Boolean;
begin begin
Index:=0; Index:=0;
Rest:=0; Rest:=0;
@ -6192,7 +6192,7 @@ begin
with FGCache do begin with FGCache do begin
if IsCol then begin if IsCol then begin
// begin to count Cols from 0 but ... // begin to count Cols from 0 but ...
if Fisical and (Offset>FixedWidth-1) then begin if Physical and (Offset>FixedWidth-1) then begin
Index := FTopLeft.X; // In scrolled view, then begin from FTopLeft col Index := FTopLeft.X; // In scrolled view, then begin from FTopLeft col
if IsColumnIndexValid(Index) then begin if IsColumnIndexValid(Index) then begin
Offset:=Offset-FixedWidth+AccumWidth[Index]; Offset:=Offset-FixedWidth+AccumWidth[Index];
@ -6225,8 +6225,8 @@ begin
end else begin end else begin
//DebugLn('TCustomGrid.OffsetToColRow ',DbgSName(Self),' Fisical=',dbgs(Fisical),' Offset=',dbgs(Offset),' FixedHeight=',dbgs(FixedHeight),' FTopLeft=',dbgs(FTopLeft),' RowCount=',dbgs(RowCount),' TLRowOff=',dbgs(TLRowOff)); //DebugLn('TCustomGrid.OffsetToColRow ',DbgSName(Self),' Physical=',dbgs(Physical),' Offset=',dbgs(Offset),' FixedHeight=',dbgs(FixedHeight),' FTopLeft=',dbgs(FTopLeft),' RowCount=',dbgs(RowCount),' TLRowOff=',dbgs(TLRowOff));
if Fisical and (Offset>FixedHeight-1) then begin if Physical and (Offset>FixedHeight-1) then begin
Index:=FTopLeft.Y; Index:=FTopLeft.Y;
if IsRowIndexValid(Index) then if IsRowIndexValid(Index) then
Offset:=Offset-FixedHeight+AccumHeight[Index]+TLRowOff; Offset:=Offset-FixedHeight+AccumHeight[Index]+TLRowOff;
@ -7675,7 +7675,7 @@ begin
end; end;
end; end;
{ Convert a fisical Mouse coordinate into fisical a cell coordinate } { Convert a physical Mouse coordinate into a physical cell coordinate }
function TCustomGrid.MouseToCell(const Mouse: TPoint): TPoint; function TCustomGrid.MouseToCell(const Mouse: TPoint): TPoint;
begin begin
MouseToCell(Mouse.X, Mouse.Y, Result.X, Result.Y); MouseToCell(Mouse.X, Mouse.Y, Result.X, Result.Y);