mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Bug []0001857] Infinite loop caused by TCustomGrid (update Lazarus version)

Browse source
This commit is contained in:
Alexander Koblov 2017-12-11 16:08:37 +00:00
commit ac5846ed68
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/fileviews/ucolumnsfileview.pas
View file

@ -40,7 +40,7 @@ type
procedure SetGridVertLine(const AValue: Boolean);
protected
{$IF lcl_fullversion < 1090000}
{$IF lcl_fullversion < 1080003}
function SelectCell(aCol, aRow: Integer): Boolean; override;
{$ENDIF}
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
@ -1986,7 +1986,7 @@ begin
Options := Options - [goVertLine];
end;
{$IF lcl_fullversion < 1090000}
{$IF lcl_fullversion < 1080003}
// Workaround for Lazarus issue 31942.
function TDrawGridEx.SelectCell(aCol, aRow: Integer): Boolean;
begin

4
src/fileviews/ufileviewwithgrid.pas
View file

@ -19,7 +19,7 @@ type
protected
FFileView: TFileViewWithGrid;
protected
{$IF lcl_fullversion < 1090000}
{$IF lcl_fullversion < 1080003}
function SelectCell(aCol, aRow: Integer): Boolean; override;
{$ENDIF}
procedure RowHeightsChanged; override;
@ -186,7 +186,7 @@ begin
inherited KeyDown(Key, Shift);
end;
{$IF lcl_fullversion < 1090000}
{$IF lcl_fullversion < 1080003}
// Workaround for Lazarus issue 31942.
function TFileViewGrid.SelectCell(aCol, aRow: Integer): Boolean;
begin