From 083fce06efeeef57cae2dcc5e1848cd5ad480658 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Fri, 5 Jun 2009 16:05:36 +0000
Subject: [PATCH] Fixed Exception when sorting grid with no free columns or no
 free rows.

git-svn-id: trunk@20443 -
---
 lcl/grids.pas | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/lcl/grids.pas b/lcl/grids.pas
index 23471d6f7f..041fb4e09d 100644
--- a/lcl/grids.pas
+++ b/lcl/grids.pas
@@ -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,