Blog

Detect device orientation change Delphi Firemonkey

by Ivan Revelli
in Posts
on July 28, 2021

0

To detect device orientation change, you can use the following example:

uses System.Messaging, FMX.Platform;

var FId: Integer;

// Subscribe to TOrientationChangedMessage
FId := TMessageManager.DefaultManager.SubscribeToMessage(TOrientationChangedMessage, DoOrientationChanged);

// Write orientation change handler:
procedure TMyForm.DoOrientationChanged(const Sender: TObject; const M: TMessage);
var s: IFMXScreenService;
begin
  if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, s) then begin
    case s.GetScreenOrientation of
      TScreenOrientation.Portrait: ;
      TScreenOrientation.Landscape: ;
      TScreenOrientation.InvertedPortrait: ;
      TScreenOrientation.InvertedLandscape: ;
    end;
  end;
end;

// Unsubscribe the TOrientationChangedMessage
TMessageManager.DefaultManager.Unsubscribe(TOrientationChangedMessage, FId);

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

uses System.Messaging, FMX.Platform;

var FId: Integer;

// Subscribe to TOrientationChangedMessage

FId := TMessageManager.DefaultManager.SubscribeToMessage(TOrientationChangedMessage, DoOrientationChanged);

// Write orientation change handler:

procedure TMyForm.DoOrientationChanged(const Sender: TObject; const M: TMessage);

var s: IFMXScreenService;

begin

if TPlatformServices.Current.SupportsPlatformService(IFMXScreenService, s) then begin

case s.GetScreenOrientation of

TScreenOrientation.Portrait: ;

TScreenOrientation.Landscape: ;

TScreenOrientation.InvertedPortrait: ;

TScreenOrientation.InvertedLandscape: ;

end;

// Unsubscribe the TOrientationChangedMessage

TMessageManager.DefaultManager.Unsubscribe(TOrientationChangedMessage, FId);

Resizing kvm qcow2 disk part 2

by Ivan Revelli
in Posts
on July 5, 2021

0

The evolution of KVM and qemu is constant. To increase the size of a qcow2 disk just follow the steps below: Shut down the virtual machine Resize the image with

qemu-img resize image.qcow2 +SIZE

1 2	qemu-img resize image.qcow2 +SIZE

where SIZE is the size (e.g. 30G for 30 gibibytes). Boot into an external live OS and resize the partition. So if you wanto to extend…
Read more

Xtumble Web Builder 2 for Windows x86 32bit

by Ivan Revelli
in Posts
on June 27, 2021

0

Xtumble Web Builder 2 is the basic tool with which we customize all the WEB experience of the applications built on the brand new cloud business platform Xtumble and with which we have created the e-commerce visible on xtumble.store. To allow developers / designers / web developers to be able to customize the applications published…
Read more

Ubuntu 20.04 manage routing of multiple gateways and interfaces from a single VM

by Ivan Revelli
in Posts
on June 16, 2021

0

With the advent of netplan it is possible to manage the routing for each network interface in a simple way. For example, if we have a VM connected to two separate LANs with two network cards and obviously two gateways we have to manage the routing of packets, because Linux is known to…
Read more

Xtumble Web Builder 2 for Mac OSX 64bit

by Ivan Revelli
in Delphi, Posts, Software, Xtumble
on May 27, 2021

0

Xtumble Web Builder 2 is the basic tool with which we customize all the WEB experience of the applications built on the brand new cloud business platform Xtumble and with which we have created the e-commerce visible on xtumble.store . To allow developers / designers / web developers to be able to customize the applications…
Read more

Delphi macOSX create and deploy application outside Mac App Store

by Ivan Revelli
in Delphi
on May 27, 2021

0

With Delphi you can create your own applications for Mac OSX 64Bit and distribute them both via the Mac App Store and independently using the Developer ID distribution method. In this article we will see how to distribute an app through the “Notarization” procedure of the app to be able to distribute it independently, even…
Read more