Wrong Initial value for Application.BidiMode
Original Reporter info from Mantis: zaher
-
Reporter name: Zaher Dirkey
Original Reporter info from Mantis: zaher
- Reporter name: Zaher Dirkey
Description:
To reporduce it, Compile any English only project, for example, lazarus\examples\lazresexplorer
Run that project in any OS set to any RightToLeft language (Arabic, Hebrew)
It is show in RightToLeft alignment while it is English project.
Look at the attachment.
In application.inc at line 128
{$ifndef wince}// remove ifdef when gettext is fixed
LCLGetLanguageIDs(LangDefault, LangFallback);
if LangDefault <> '' then
FBidiMode := Direction(LangDefault)
else
FBidiMode := Direction(LangFallback);
{$else}
FBidiMode := bdLeftToRight;
{$endif}
This takes the BidiMode from the system, if the system desktop is Right To Left, initial value of FBidiMode is bdRightToLeft, and it is wrong
It is not Delphi compatible.
FBidiMode := bdLeftToRight;
Thanks
Mantis conversion info:
- Mantis ID: 22044
- Fixed in revision: r49346 (#8bbae227)
- Monitored by: » zaher (Zaher Dirkey), » luizamerico (Luiz Americo), » dezlov (Denis Kozlov)