LordJonas
Members-
Content Count
11 -
Joined
-
Last visited
Community Reputation
0 NeutralRecent Profile Visitors
The recent visitors block is disabled and is not being shown to other users.
-
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....
- 3 replies
-
- alexandria
- linux
-
(and 1 more)
Tagged with:
-
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 ?
- 3 replies
-
- alexandria
- linux
-
(and 1 more)
Tagged with:
-
problem upgrading to Delphi 11.1 Patch 1
LordJonas replied to Dave Novo's topic in Delphi IDE and APIs
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.... -
problem upgrading to Delphi 11.1 Patch 1
LordJonas replied to Dave Novo's topic in Delphi IDE and APIs
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: