Posts - Synaptica srl

2015 Merry Christmas!!!!

by Ivan Revelli
in Uncategorized
on December 25, 2015

0

BestWishesfor a happyXmas and a 2016full of ideas and projects! TeamSynaptica

Delphi 10Seattle – Get current device language

by Ivan Revelli
in Android, Apple iOS, Delphi
on December 21, 2015

0

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.

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

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

Remode Manager… more than a simple remote controller

by Ivan Revelli
in Uncategorized
on December 7, 2015

0

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…
Read more

Avoid scrolling reset (marquee ellipsize) on Android TextView

by federico
in Uncategorized
on May 9, 2015

0

This post taken from stack overflow is very very useful to save a lot of time and coding! http://stackoverflow.com/questions/28305745/textview-scrolling-is-resetting-when-i-update-a-different-textview-from-the-same The problem is that the horizontal scroll animation on an Android TextView in mode ellipsize marquee is reset every time in the containing layout something changes when a relative size is set on the TextView (MATCH_PARENT…
Read more

Firebird embedded on mac-osx

by federico
in databases, Firebird SQL, Programmazione
on April 15, 2015

0

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

Send android application in background

by Ivan Revelli
in Posts, Posts, Posts, Posts, Posts, Posts
on February 14, 2015

0

To send in background your Delphi application on Android you can simply call the moveTasktoBackGround method of the mainActivity class defined in the FMX.Platform.Android library. To do this task during the application startup phase on the main form we suggest to use a timer object so that the main form can completely render before going…
Read more

Category: Posts