Jump to content

LordJonas

Members
  • Content Count

    7
  • Joined

  • Last visited

Community Reputation

0 Neutral

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. LordJonas

    Amazon Linux 2

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

    Amazon Linux 2

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

    problem upgrading to Delphi 11.1 Patch 1

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

    problem upgrading to Delphi 11.1 Patch 1

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

    Incompatible types bug in D11.1

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

    Incompatible types bug in D11.1

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

    Incompatible types bug in D11.1

    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:
×