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

LCL/grids: Fix position of grid header icons in case of right-to-left mode.

Browse Source 
git-svn-id: trunk@57977 -
This commit is contained in:
wp 2018-05-20 07:46:03 +00:00
parent 3054d073cf
commit d60896d479
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/grids.pas
View File

@ -5408,6 +5408,12 @@ begin
ImgIndex := -1;
ImgLayout := blGlyphRight;
end;
if IsRightToLeft then begin
if ImgLayout = blGlyphRight then
ImgLayout := blGlyphLeft
else if ImgLayout = blGlyphLeft then
ImgLayout := blGlyphRight;
end;
end;
procedure TCustomGrid.GetSortTitleImageInfo(aColumnIndex: Integer; out