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

LCL, grids bidi fixes: autoadvance

Browse Source 
git-svn-id: trunk@31448 -
This commit is contained in:
jesus 2011-06-29 00:29:34 +00:00
parent ab611393ae
commit ddcae0f6ae
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/grids.pas
View File

@ -7609,11 +7609,19 @@ var
DeltaCol := 0;
DeltaRow := 0;
// invert direction if necessary
//
aa := FAutoAdvance;
if Inverse then
if UseRightToLeftAlignment then
case FAutoAdvance of
aaLeftUp: aa := aaRightUp;
aaLeftDown: aa := aaRightDown;
aaLeft: aa := aaRight;
aaRightUp: aa := aaLeftUp;
aaRightDown: aa := aaLeftDown;
aaRight: aa := aaLeft;
end;
// invert direction if necessary
if Inverse then
case aa of
aaRight: aa := aaLeft;
aaLeft: aa := aaRight;
aaRightDown: aa := aaLeftUp;