LordJonas

Hi.

Thanks to @Dmitry Arefiev i solved the question.

Indeed the "Enable VCL Styles" are the culprit... The funny part is that i never enabled this option, so it seems that it's enabled by the patch.

Nope... 

In runtime works fine...

Yes... I confirm that's reproduceable....

Hi.

Just installed patch 1 from Embarcadero and when i reopen my project i noticed some strange behavior with VCL.... The panels colours aren't show in IDE anymore... 

if you press the mouse in any component the colour appears....

I'm considering uninstall the patch.

SOLVED

I was using the private IP when I should be using the public IP....

Hi.

I just created a Amazon Linux 2 virtual machine for development and testing. I'm able to connect via SSH, i installed PAServer and it's running normal. However, it's not possible for Delphi to connect to PAServer, even with all the information entered correct.

Any clues ?

Well, I can confirm that using the "override method" (manually copying the files from the zip file to the installation folder) does not work, like i told i got the error described, but using the installation script from Embarcadero does work. It seems that for some reason the PatchTool.exe uses some kind of magic....

I've installed the patch manually and got the same error. I've tried the solution indicated by Microsoft but without sucess....

Thanks @Pat Foley, you're absolutely right.... altought the message leads to another interpretation....

unit SIGR.Front.View.Principal;

interface

uses
  Winapi.Windows,
  Winapi.Messages,
  System.SysUtils,
  System.Variants,
  System.Classes,
  Vcl.Graphics,
  Vcl.Controls,
  Vcl.Forms,
  Vcl.Dialogs,
  Vcl.Imaging.jpeg,
  Vcl.ExtCtrls,
  Vcl.Imaging.pngimage;

type
  TfrmViewMain = class(TForm)
    pnlViewMain: TPanel;
    imgBack: TImage;
    pnlViewMainTopo: TPanel;
    pnlViewMainBottom: TPanel;
    pnlViewMainLateral: TPanel;
    pnlViewMainCliente: TPanel;
    pnlViewMainLogo: TPanel;
    imgLogo: TImage;
    pnlViewMainTopoClient: TPanel;
    pnlViewMainTopoLinha: TPanel;
    pnlViewMainSair: TPanel;
    pnlViewMainConfig: TPanel;
    pnlViewMainUtils: TPanel;
    pnlViewMainTbls: TPanel;
    pnlViewMainOper: TPanel;
    pnlViewMainResid: TPanel;
    pnlViewMainGest: TPanel;
    pnlViewMainEmpr: TPanel;
    shpLinhaTopo: TShape;
    procedure pnlViewMainSairClick(Sender: TObject);
    procedure pnlViewMainEmprClick(Sender: TObject);
    procedure pnlViewMainGestClick(Sender: TObject);
    procedure pnlViewMainResidClick(Sender: TObject);
    procedure pnlViewMainOperClick(Sender: TObject);
    procedure pnlViewMainTblsClick(Sender: TObject);
    procedure pnlViewMainUtilsClick(Sender: TObject);
    procedure pnlViewMainConfigClick(Sender: TObject);
  private
    { Private declarations }
    procedure MoveShapeItem(Value: TPanel);
  public
    { Public declarations }
  end;

var
  frmViewMain: TfrmViewMain;

implementation

{$R *.dfm}

procedure TfrmViewMain.MoveShapeItem(Value: TPanel);
begin
  TThread.CreateAnonymousThread(
  procedure
  begin
    while shpLinhaTopo.Left <> Value.Left do
    begin
      if shpLinhaTopo.Left > Value.Left then
         shpLinhaTopo.Left := shpLinhaTopo.Left - 1
      else
         shpLinhaTopo := shpLinhaTopo.Left + 1;
    end;
  end
  ).Start;
end;

procedure TfrmViewMain.pnlViewMainConfigClick(Sender: TObject);
begin
  MoveShapeItem(TPanel(Sender));
end;

procedure TfrmViewMain.pnlViewMainEmprClick(Sender: TObject);
begin
  MoveShapeItem(TPanel(Sender));
end;

procedure TfrmViewMain.pnlViewMainGestClick(Sender: TObject);
begin
  MoveShapeItem(TPanel(Sender));
end;

procedure TfrmViewMain.pnlViewMainOperClick(Sender: TObject);
begin
  MoveShapeItem(TPanel(Sender));
end;

procedure TfrmViewMain.pnlViewMainResidClick(Sender: TObject);
begin
  MoveShapeItem(TPanel(Sender));
end;

procedure TfrmViewMain.pnlViewMainSairClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmViewMain.pnlViewMainTblsClick(Sender: TObject);
begin
  MoveShapeItem(TPanel(Sender));
end;

procedure TfrmViewMain.pnlViewMainUtilsClick(Sender: TObject);
begin
  MoveShapeItem(TPanel(Sender));
end;

end.

I think i've just found a bug in Delphi 11.1....

In this piece of code i'm getting the error "E2010 Incompatible types: 'TShape' and 'Integer'"

but if we take a closer look both types are Integer: