FIX: Access violation when sorting empty column field

This commit is contained in:
Alexander Koblov 2015-03-16 18:31:12 +00:00
commit 4e26bce9f1

View file

@ -322,6 +322,7 @@ begin
begin
NewSorting := Sorting;
SortFunctions := Column.GetColumnFunctions;
if Length(SortFunctions) = 0 then Exit;
ShiftState := GetKeyShiftStateEx;
if [ssShift, ssCtrl] * ShiftState = [] then
begin