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

LCL: Fix Initial value for Application.BidiMode. Issue #22044, (modified) patch Denis Kozlov

Browse Source 
git-svn-id: trunk@49346 -
This commit is contained in:
juha 2015-06-16 11:32:35 +00:00
parent 913b752bcc
commit 8bbae227d3
2 changed files with 3 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms.pp
View File

@ -1560,6 +1560,8 @@ type
end;
const
DefaultApplicationBiDiMode: TBiDiMode = bdLeftToRight;
DefHintColor = clInfoBk; // default hint window color
DefHintPause = 500; // default pause before hint window displays (ms)
DefHintShortPause = 0; // default reshow pause

12
lcl/include/application.inc
View File

@ -82,8 +82,6 @@ end;
TApplication Constructor
------------------------------------------------------------------------------}
constructor TApplication.Create(AOwner: TComponent);
var
LangDefault, LangFallback: String;
begin
LCLProc.SendApplicationMessageFunction:=@SendApplicationMsg;
@ -116,15 +114,7 @@ begin
FFindGlobalComponentEnabled:=true;
RegisterFindGlobalComponentProc(@FindApplicationComponent);
{$ifndef wince}// remove ifdef when gettext is fixed
LazGetLanguageIDs(LangDefault, LangFallback);
if LangDefault <> '' then
FBidiMode := Direction(LangDefault)
else
FBidiMode := Direction(LangFallback);
{$else}
FBidiMode := bdLeftToRight;
{$endif}
FBidiMode := DefaultApplicationBiDiMode;
FMainFormOnTaskBar := False;