Here is a sample code (function) to get the current language (locale) in Delphi 10Seattle. This simple procedure return the locale language for Windows, Mac and Android.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 |
function GetOSLangID: String; {$IFDEF MACOS} var Languages: NSArray; begin Languages := TNSLocale.OCClass.preferredLanguages; Result := TNSString.Wrap(Languages.objectAtIndex(0)).UTF8String; {$ENDIF} {$IFDEF ANDROID} var LocServ: IFMXLocaleService; begin if TPlatformServices.Current.SupportsPlatformService(IFMXLocaleService, IInterface(LocServ)) then Result := LocServ.GetCurrentLangID; {$ENDIF} {$IFDEF MSWINDOWS} var buffer: MarshaledString; UserLCID: LCID; BufLen: Integer; begin // defaults UserLCID := GetUserDefaultLCID; BufLen := GetLocaleInfo(UserLCID, LOCALE_SISO639LANGNAME, nil, 0); buffer := StrAlloc(BufLen); if GetLocaleInfo(UserLCID, LOCALE_SISO639LANGNAME, buffer, BufLen) <> 0 then Result := buffer else Result := 'en'; StrDispose(buffer); {$ENDIF} end; { code } //See more at: http://codeverge.com/embarcadero.delphi.firemonkey/detect-current-language-on-andr/2001235#sthash.zjLIi2KY.dpuf |
Another update about TeamLab is available on google play store. This new version adds : 1 ) management of orders 2 ) display of the list of activities ( todo list) 3 ) and solves several problems of the previous version. TeamLab Mobile allows you to have all the data of TeamLab web always with…
Leggi tutto
Hi developers! We’ve just released a new tool called Remode. Remode allows you to have a full remote control of your PC and/or Mac. When Remode Manager is up and running on your PC or Mac, you can use a simple browser or our Android App (Ios work in progress) to give commands. Android App…
Leggi tutto
Questo post da stack overflow è veramente veramente utile a risparmiare molto tempo e decine di righe di codice! http://stackoverflow.com/questions/28305745/textview-scrolling-is-resetting-when-i-update-a-different-textview-from-the-same Sostanzialmente la scroll animation su una TextView Android con scroll automatico orizzonatale (ellipsize marquee) viene resettata ogni qual volta cambia qualcosa nel layout in cui sono inserite se è impostata sulla textview una dimensione relativa…
Leggi tutto
Users/ivanrevelli/Downloads/Firebird.app/Contents/MacOS/firebird/ cd Users/ivanrevelli/Downloads/Firebird.app/Contents/MacOS/ Users/ivanrevelli/Downloads/Firebird.app/Contents/MacOS/firebird/libfbembed.dylib
Per inviare in background la propria applicazione Delphi su Android è sufficiente chiamare il metodo moveTasktoBackGround della classe mainActivity definita nella libreria FMX.Platform.Android. Se si volesse fare quest’operazione in fase di startup dell’applicazione sul form prinncipale è consigliabile utilizzare un oggetto timer, in modo da permettere al main form di renderizzarsi in modo completo prima…
Leggi tutto
