In Firemonkey you can manage the virtualkeyboard on your mobile applications. if you need that the keyboard not autoshow in your application when a text box is selected you can add this code:
|
1 2 3 4 |
// uses FMX.Types // you can set TVKAutoShowMode = (DefinedBySystem, Never, Always); FMX.Types.VKAutoShowMode :=TVKAutoShowMode.vkasNever; |
obviusly to enable the virtual keyboard:
|
1 2 3 4 |
// uses FMX.Types // you can set TVKAutoShowMode = (DefinedBySystem, Never, Always); FMX.Types.VKAutoShowMode :=TVKAutoShowMode.DefinedBySystem; |
so if you have the virtualkeyboard enabled and you want to hide when and…
Read more
Assuming that you know how to make a web server with TidHttpServer, but now you need to put your server in HTTPS, so to do that you need to add to your application the TIdServerIOHandlerSSLOpenSSL and set it as the IOHandler of your TidHTTpServer. IMG IOHANDLER Now you need a valid and unique certificate, to…
Read more
Today i do some test about TBluetooth LE component on Delphi Seattle on different devices. Device BT LE as Client BT LE as Server (pheriferial mode) Mac Book Pro OSX 10.11.6 Yes Yes iPhone 6s iOS 9.3 Yes Yes Samsung S4 Android lollipop Yes No: raise an axeception on phheriferial mode?!?! PC Windows 10…
Read more
I was on testing our app remode on a Raspberry PI3 with Android 6.0 Marshmallow… so i need debug and i foud that can be done via lan simply using the command ADB “command” like:
|
1 |
adb connect "device ipaddress" |
Maybe most of you already heard the latest news, RAD Studio 10.1 Berlin shipped. There are a lot of good news in this version… and a lot of library are already able to be used with it. The official of embarcadero about Berlin is http://community.embarcadero.com/article/news/16226-embarcadero-announces-release-updates-for-rad-studio-c-builder-and-delphi usefull libraries already available for Berlin are: The turbopack libraries…
Read more
To check with Delphi / Firemonkey if the screen is in Landscape or Portrait mode i use the FMXPlatform library as in the example:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 |
uses FMXPlatform; ... procedure TForm2.FormResize(Sender: TObject); var ScreenService: IFMXScreenService; begin if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, IInterface(ScreenService)) then begin if ScreenService.GetScreenOrientation in [TScreenOrientation.soPortrait, TScreenOrientation.soInvertedPortrait] then ShowMessage('Portrait Orientation') else Begin ShowMessage('Landscape Orientation'); End; end; end; |
