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

LCL: Improve the column sort feature of TStringGrid. User defined glyphs are retained after sorting.

Browse Source 
git-svn-id: trunk@30645 -
This commit is contained in:
juha 2011-05-09 19:49:46 +00:00
parent bf205acf8a
commit 16c323b485
1 changed files with 15 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lcl/grids.pas
View File

@ -365,6 +365,7 @@ type
FAlignment: ^TAlignment;
FFont: TFont;
FImageIndex: Integer;
FOldImageIndex: Integer;
FImageLayout: TButtonLayout;
FIsDefaultTitleFont: boolean;
FLayout: ^TTextLayout;
@ -3249,21 +3250,27 @@ begin
end;
end
else begin
FSortOrder := soAscending; // Ascending order to start with.
FSortOrder := soAscending; // Ascending order to start with.
// Remove glyph from previous column.
ColOfs := FSortColumn - FFixedCols;
if (ColOfs > -1) and (ColOfs < FColumns.Count ) then
FColumns[ColOfs].Title.ImageIndex := -1;
with FColumns[ColOfs].Title do
ImageIndex := FOldImageIndex;
end;
FSortColumn := index;
ColOfs := index - FFixedCols; // For accessing FColumns[].
// Show the right sort glyph.
// Show the sort glyph only if clicked column has a TGridColumn defined.
ColOfs := index - FFixedCols;
if (ColOfs > -1) and (ColOfs < FColumns.Count)
and (FAscImgInd < TitleImageList.Count)
and (FDescImgInd < TitleImageList.Count) then
case FSortOrder of
soAscending: FColumns[ColOfs].Title.ImageIndex := FAscImgInd;
soDescending: FColumns[ColOfs].Title.ImageIndex := FDescImgInd;
with FColumns[ColOfs].Title do begin
// Save previous ImageIndex of the clicked column.
if (ImageIndex <> FAscImgInd) and (ImageIndex <> FDescImgInd) then
FOldImageIndex := ImageIndex;
case FSortOrder of // Show the right sort glyph.
soAscending: ImageIndex := FAscImgInd;
soDescending: ImageIndex := FDescImgInd;
end;
end;
Sort(True, index, FFixedRows, RowCount-1);
end;
@ -10064,6 +10071,7 @@ begin
FillTitleDefaultFont;
FFont.OnChange := @FontChanged;
FImageIndex := -1;
FOldImageIndex := -1;
FImageLayout := blGlyphRight;
end;