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

Workaround for gettext bug in windows ce

Browse Source 
git-svn-id: trunk@17661 -
This commit is contained in:
sekelsenmat 2008-12-02 13:50:11 +00:00
parent 4b344f137a
commit 27ef199c26
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/forms.pp
View File

@ -40,8 +40,9 @@ uses
Classes, SysUtils, Types, TypInfo, Math,
AvgLvlTree, Maps, LCLVersion, LCLStrConsts, LCLType, LCLProc, LCLIntf,
FileUtil, InterfaceBase, LResources, GraphType, Graphics, Menus, LMessages,
CustomTimer, ActnList, ClipBrd, CustApp, HelpIntfs, LCLClasses, Controls,
gettext;
CustomTimer, ActnList, ClipBrd, CustApp, HelpIntfs, LCLClasses, Controls
{$ifndef wince},gettext{$endif}// remove ifdefs when gettext is fixed and a new fpc is released
;
type
TProcedure = procedure;

4
lcl/include/application.inc
View File

@ -125,11 +125,15 @@ begin
FFindGlobalComponentEnabled:=true;
RegisterFindGlobalComponentProc(@FindApplicationComponent);
{$ifndef wince}// remove ifdef when gettext is fixed
GetLanguageIDs(LangDefault, LangFallback);
if LangDefault <> '' then
FBidiMode := BidiModeMap[IsRTLLang(LangDefault)]
else
FBidiMode := BidiModeMap[IsRTLLang(LangFallback)];
{$else}
FBidiMode := bdLeftToRight;
{$endif}
inherited Create(AOwner);
CaptureExceptions:=true;