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

Fixed Exception when sorting grid with no free columns or no free rows.

Browse Source 
git-svn-id: trunk@20443 -
This commit is contained in:
martin 2009-06-05 16:05:36 +00:00
parent 54811dc268
commit 083fce06ef
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/grids.pas
View File

@ -8221,8 +8221,14 @@ end;
procedure TCustomDrawGrid.SortColRow(IsColumn: Boolean; index: Integer);
begin
if IsColumn then Sort(IsColumn, index, FFixedRows, RowCount-1)
else Sort(IsColumn, index, FFixedCols, ColCount-1);
if IsColumn then begin
if (FFixedRows < RowCount) and (RowCount > 0) then
Sort(IsColumn, index, FFixedRows, RowCount-1)
end
else begin
if (FFixedCols < ColCount) and (ColCount > 0) then
Sort(IsColumn, index, FFixedCols, ColCount-1);
end
end;
procedure TCustomDrawGrid.SortColRow(IsColumn: Boolean; Index, FromIndex,