programmerdelphi2k

having "Debug + Release" inheriting... <PropertyGroup Condition="'$(Config)'=='Debug' And '$(Platform)'=='Win32'"> <PreBuildEvent/> <PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode> <PreLinkEvent/> <PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode> <PostBuildEvent>MyForm.exe</PostBuildEvent> <PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode> </PropertyGroup> <PropertyGroup Condition="'$(Config)'=='Release' And '$(Platform)'=='Win32'"> <PreBuildEvent/> <PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode> <PreLinkEvent/> <PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode> <PostBuildEvent>MyForm.exe</PostBuildEvent> <PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode> </PropertyGroup> </Project>

in my test I have just one definition "inherited" (to Debug, but dont to Release)... but my definition is in "All configuration option on tree" just one setup is defined on DPROJ = "release"!!! but dont "debug" <PropertyGroup Condition="'$(Base_Win32)'!=''"> <DCC_UsePackage>vclwinx;DataSnapServer;bdertl;fmx;emshosting;vclie;DbxCommonDriver;bindengine;IndyIPCommon;VCLRESTComponents;DBXMSSQLDriver;FireDACCommonODBC;emsclient;FireDACCommonDriver;appanalytics;IndyProtocols;vclx;IndyIPClient;dbxcds;vcledge;bindcompvclwinx;FmxTeeUI;emsedge;bindcompfmx;DBXFirebirdDriver;inetdb;ibmonitor;FireDACSqliteDriver;DbxClientDriver;FireDACASADriver;Tee;soapmidas;vclactnband;TeeUI;fmxFireDAC;dbexpress;FireDACInfxDriver;DBXMySQLDriver;VclSmp;inet;DataSnapCommon;vcltouch;fmxase;DBXOdbcDriver;dbrtl;FireDACDBXDriver;FireDACOracleDriver;fmxdae;TeeDB;FireDACMSAccDriver;CustomIPTransport;FireDACMSSQLDriver;AzureCloud;DataSnapIndy10ServerTransport;DataSnapConnectors;vcldsnap;DBXInterBaseDriver;FireDACMongoDBDriver;IndySystem;FireDACTDataDriver;vcldb;ibxbindings;inetdbbde;vclFireDAC;office2K;bindcomp;FireDACCommon;DataSnapServerMidas;FireDACODBCDriver;emsserverresource;IndyCore;RESTBackendComponents;bindcompdbx;rtl;FireDACMySQLDriver;FireDACADSDriver;RESTComponents;DBXSqliteDriver;vcl;IndyIPServer;dsnapxml;dsnapcon;DataSnapClient;DataSnapProviderClient;adortl;DBXSybaseASEDriver;DBXDb2Driver;vclimg;DataSnapFireDAC;emsclientfiredac;FireDACPgDriver;FireDAC;FireDACDSDriver;inetdbxpress;xmlrtl;tethering;ibxpress;bindcompvcl;dsnap;CloudService;DBXSybaseASADriver;DBXOracleDriver;FireDACDb2Driver;DBXInformixDriver;vclib;fmxobj;bindcompvclsmp;DataSnapNativeClient;FMXTee;DatasnapConnectorsFreePascal;soaprtl;vcldbx;soapserver;FireDACIBDriver;$(DCC_UsePackage)</DCC_UsePackage> <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> <BT_BuildType>Debug</BT_BuildType> <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> <VerInfo_Locale>1033</VerInfo_Locale> <Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File> <PostBuildEvent><![CDATA[MyForm.exe]]></PostBuildEvent> <AppDPIAwarenessMode>none</AppDPIAwarenessMode> </PropertyGroup> ... </ProjectExtensions> <Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/> <Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/> <Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/> <PropertyGroup Condition="'$(Config)'=='Release' And '$(Platform)'=='Win32'"> <PreBuildEvent/> <PreBuildEventIgnoreExitCode>False</PreBuildEventIgnoreExitCode> <PreLinkEvent/> <PreLinkEventIgnoreExitCode>False</PreLinkEventIgnoreExitCode> <PostBuildEvent>MyForm.exe</PostBuildEvent> <PostBuildEventIgnoreExitCode>False</PostBuildEventIgnoreExitCode> </PropertyGroup> </Project>

try my sample: Form2 with a TLabel for receive the text... uses Unit2; procedure TForm1.Button1Click(Sender: TObject); function HowManyLinesOnText(const MaxWidth: integer; const ATextLen: integer): integer; begin result := (ATextLen div MaxWidth); // if (ATextLen mod MaxWidth) <> 0 then result := result + 1; end; var MyText : string; LCharWidth : integer; LCharHeigth : integer; LTextLen : integer; LNewLabelHeight: integer; begin for var i: integer := 1 to 10 do MyText := MyText + Format('%dx a long text to show on my custom dialog to user!', [i]); Form2 := TForm2.Create(nil); try // LTextLen := Length(MyText); LCharWidth := Form2.Canvas.TextWidth('W'); LCharHeigth := Form2.Canvas.TextHeight('W'); // LNewLabelHeight := HowManyLinesOnText(Form2.Width, LCharWidth * LTextLen); // Form2.Width := 300; Form2.Height := LNewLabelHeight * LCharHeigth; // Form2.Top := (Screen.Height div 2) - (Form2.Height div 2); Form2.Left := (Screen.Width div 2) - (Form2.Width div 2); // Form2.Label1.Top := 0; Form2.Label1.Autosize := false; Form2.Label1.WordWrap := true; // Form2.Label1.Left := 0; Form2.Label1.Width := (Form2.Width - LCharWidth); Form2.Label1.Height := LNewLabelHeight * LCharHeigth; // Form2.Label1.Caption := MyText; // Form2.ShowModal; finally FreeAndNil(Form2); end; end;

just unchecking "Inherit" (on Event) does not works?

Is it working now?

try found "Androidapi.JNI.Support.pas" or if exists "JProvider.JAVA" files ... add it in your project or Library tree!

sometimes the Breakpoint dont works if "final-line char" it's not those expected!

Cesar em inglês por favor: Good Morning !! Please can someone help me, I have a similar situation described above, but I couldn't solve it, my application was working opening a pdf file in Delphi 10.4, but when migrating to Delphi 11 the following message appears: Java Type JFileProvider could not be found... Thank you for your attention... try: on Project Manager: right-click on "Target Platform"-Configuration-Library" and "Rever system File to default" try compile it

try show all "hide chars" on editor: Tools-User Interface-Editor-Language... options "show"

ok! try "check" RELEASE to DEBUG and else and re-save projects... sometimes IDE can be confused!

ok, then it's just DEBUG ... search PATH to (LIBRARY = dcus / BROWSER =pas / DEBUG = dcu) it's ok on project?

I once had a problem with a ".pas" not compiling, and, after much thought, the problem was that the file had been changed, for some reason, to a "UNICODE" where control characters (ghosts) had been found (however, they were not visible to the human eye, naturally)... Solution: I had to redo the file, because even copying it to a non-unicode editor didn't work at all!

Any changes to validate file contents? If you found garbage in the ".DPROJ", then other files could be contaminated as well.... Was there any strange situation when copying the files? Just lingering on about possible issues with the source files... Remembering the old D.O.S./Windows 3.1, don't laugh, it was very easy to get a corrupt disk block and have our files buggy, and sometimes unreadable forever...

testing many online-Validator (to avoid myself intervention), Each one points in one direction: some points an error at position 22 -> "}" others, points out the error in the first quote: "bar others simply say: JSON invalid the more experts fix the JSON by adding "escapes" and accept the new JSON! of course, causing a feeling of "all right, by processing", which can lead to a bigger error, further down the line! So we can see that it's a matter of perspective who is in control and who is not! In general, if you don't have a tool with expertise, a simple "Exception" would already be indicated to prevent the procedure from proceeding, or even the task as a whole!

about doubts of license usage it's better contact Embarcadero. I think that your installations will be checked by internet when your IDE is loaded. Each license has a "number" of stations for use.

try delete your "Android64" folder .. .or your "Manifest" file!!!

JSONBuddy excellent tools offline!!!

bug known! you can try close project, and open again! ( I always do it) kill the LSP : run this command as Admin: taskkill.exe /F /IM delphilsp.exe

I think that "MySQL" installer already install all DLL from MVC runtime! because it is part from software!

you can try define your setup using "FDConn" in mode "temporary", using "PARAMS" to assign your values! instead "PERMANT" using FDDrivers.ini

you can use "PHYS" same than that using same folder EXE: you need it!

do you try this, too? "FDDrivers.ini " NOT EMPTY!!!

Tip 1: Don't skimp on letters when naming things! be explicit! Tip 2: Do not exaggerate! everything has a limit! In Delphi, 31 chars it's ok for names! but you can use so much more these days!

look into your "EXE / RES", search for "manifest" ... see if any "condition" specific to folders in use? => Notepad++ is good for that!