LordJonas

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.

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. 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 ?

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

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....

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:

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.