From 27ef199c269397f1b8d5b9b2d500eb7e090b3c54 Mon Sep 17 00:00:00 2001 From: sekelsenmat Date: Tue, 2 Dec 2008 13:50:11 +0000 Subject: [PATCH] Workaround for gettext bug in windows ce git-svn-id: trunk@17661 - --- lcl/forms.pp | 5 +++-- lcl/include/application.inc | 4 ++++ 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lcl/forms.pp b/lcl/forms.pp index 3a71868233..c074e9d671 100644 --- a/lcl/forms.pp +++ b/lcl/forms.pp @@ -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; diff --git a/lcl/include/application.inc b/lcl/include/application.inc index c8a51cbb05..83e4f788c9 100644 --- a/lcl/include/application.inc +++ b/lcl/include/application.inc @@ -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;