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

LCL, grids bidi fixes: sel/cell movement

Browse Source 
git-svn-id: trunk@31435 -
This commit is contained in:
jesus 2011-06-28 18:55:56 +00:00
parent 00841b0993
commit d881cfd685
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/grids.pas
View File

@ -3159,8 +3159,11 @@ begin
(fTopLeft.y<RowCount) do
begin
RNew:=CellRect(aCol,aRow);
RNew.Left := FlipX(RNew.Left);
RNew.Right := FlipX(RNew.Right);
if UseRightToLeftAlignment then begin
XInc := RNew.Right;
RNew.Right := FlipX(RNew.Left);
RNew.Left := FlipX(XInc);
end;
Xinc := 0;
if RNew.Right <= FGCache.FixedWidth+GetBorderWidth then