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

lcl: grids: fix backwards compatibility after r52316 #19ab80027c. Issue #30150

Browse Source 
git-svn-id: trunk@52318 -
This commit is contained in:
ondrej 2016-05-17 07:38:52 +00:00
parent 19ab80027c
commit f1bc81b3e8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/grids.pas
View File

@ -846,7 +846,7 @@ type
procedure ResetHotCell; procedure ResetHotCell;
procedure ResetPushedCell(ResetColRow: boolean=True); procedure ResetPushedCell(ResetColRow: boolean=True);
procedure SaveColumns(cfg: TXMLConfig; Version: integer); procedure SaveColumns(cfg: TXMLConfig; Version: integer);
function ScrollToCell(const aCol,aRow: Integer; ForceFullyVisible: Boolean): Boolean; function ScrollToCell(const aCol,aRow: Integer; const ForceFullyVisible: Boolean = True): Boolean;
function ScrollGrid(Relative:Boolean; DCol,DRow: Integer): TPoint; function ScrollGrid(Relative:Boolean; DCol,DRow: Integer): TPoint;
procedure SetCol(AValue: Integer); procedure SetCol(AValue: Integer);
procedure SetColWidths(Acol: Integer; Avalue: Integer); procedure SetColWidths(Acol: Integer; Avalue: Integer);
@ -3312,7 +3312,7 @@ end;
{ Scroll the grid until cell[aCol,aRow] is shown } { Scroll the grid until cell[aCol,aRow] is shown }
function TCustomGrid.ScrollToCell(const aCol, aRow: Integer; function TCustomGrid.ScrollToCell(const aCol, aRow: Integer;
ForceFullyVisible: Boolean): Boolean; const ForceFullyVisible: Boolean): Boolean;
var var
RNew: TRect; RNew: TRect;
OldTopLeft:TPoint; OldTopLeft:TPoint;