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

LCL/Grids: Mirror position of sort icon in grid header cells if BiDi is set to right-to-left.

Browse Source 
git-svn-id: trunk@57976 -
This commit is contained in:
wp 2018-05-19 21:21:05 +00:00
parent be91e3f128
commit 3054d073cf
1 changed files with 15 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/grids.pas
View File

@ -4152,10 +4152,15 @@ begin
w := Scale96ToFont(s.cx);
h := Scale96ToFont(s.cy);
Dec(ARect.Right, w);
r.Left := ARect.Right - DEFIMAGEPADDING;
r.Top := ARect.Top + (ARect.Bottom - ARect.Top - h) div 2;
if IsRightToLeft then begin
r.Left := ARect.Left + DEFIMAGEPADDING;
Inc(ARect.Left, w + DEFIMAGEPADDING);
end else begin
Dec(ARect.Right, w + DEFIMAGEPADDING);
r.Left := ARect.Right - DEFIMAGEPADDING;
end;
r.Right := r.Left + w;
r.Top := ARect.Top + (ARect.Bottom - ARect.Top - h) div 2;
r.Bottom := r.Top + h;
ThemeServices.DrawElement(Canvas.Handle, Details, r, nil);
@ -4165,8 +4170,13 @@ begin
w := ImgRes.Width;
h := ImgRes.Height;
Dec(ARect.Right, w);
p.X := ARect.Right - DEFIMAGEPADDING;
if IsRightToLeft then begin
P.X := ARect.Left + DEFIMAGEPADDING;
Inc(ARect.Left, w + DEFIMAGEPADDING);
end else begin
Dec(ARect.Right, w + DEFIMAGEPADDING);
p.X := ARect.Right - DEFIMAGEPADDING;
end;
p.Y := ARect.Top + (ARect.Bottom - ARect.Top - h) div 2;
ImgRes.Draw(Canvas, p.X, p.Y, ImgIndex);