Ian Branch

Confirmed. Tks.

D12.3, latest Git release of Rapid Generics 2, 64-bit testing using RapidGenericsTestSuite: [dcc64 Error] uListTest.pas(2225): E2532 Couldn't infer generic type argument from different argument types for method 'AreEqual'

Hi Team, I may have beem wrong from the beginning but... In a calling form I have created a Sub Form then set some parameters for the form. In the sub form I had this: private const iWidth = 865; var { Private Declarations } FiQty: Integer; FsFileName: string; FsQuery: string; FsTitle: string; public { Public Declarations } property iQty: Integer read FiQty write FiQty; property sFileName: string read FsFileName write FsFileName; property sQuery: string read FsQuery write FsQuery; property sTitle: string read FsTitle write FsTitle; end; In the form's type. I then had this in the Form Create: procedure TStatsGridForm.FormCreate(Sender: TObject); begin // Caption := sTitle + ' - Total records..' + IntToStr(iQty); JobTickets.SessionName := dmC.DBC1.SessionName; JobTickets.SQL.Clear; JobTickets.SQL.Add(sQuery); JobTickets.Prepare; JobTickets.Open; // .... .... D12.3 doesn't seem to like this as it says that there is no SQL Query when being created. But it's been working for years. Any way, I moved the code to OnShOw and it is now happy and working: procedure TStatsGridForm.FormShow(Sender: TObject); begin // Caption := sTitle + ' - Total records..' + IntToStr(iQty); // JobTickets.SQL.Clear; JobTickets.SQL.Add(sQuery); JobTickets.Prepare; JobTickets.Open; // end So, to the question. Was the original way allways wrong and I was just lucky, or, has there been a change?? I use this technique in several areas so I may need to re-visit them all.. 😞 Ian

Agreed, one of the many things to do in this old code..

In retrospect,me either. But, I have it right now. 🙂 Thank you for your feedback. Appreciated.

Hi David, I had a feeling that was the case, but yes, it has been working for years. I shall have to address other implementations like this. No biggie, just a pain in the proverbial.

Hmmm... Title should read: Is this a change in 12.3??

No. The calling form creates it just before setting the parameters. Here is the calling form's code: procedure TStatsForm.edtTotalInClick(Sender: TObject); begin // if edtTotalIn.AsInteger = 0 then Exit; // var sStartDate := FormatDateTime('yyyy-mm-dd', edtStartDate.AsDate); var sFinishDate := FormatDateTime('yyyy-mm-dd', edtFinishDate.AsDate); var sJobType := Trim(edtJobType.Text); if sJobType.IsEmpty then sJobType := '%'; var StatsGridForm := TStatsGridForm.create(nil); // StatsGridForm.sFileName := 'JTsInRaised'; StatsGridForm.sTitle := 'Job Tickets In/Raised..'; StatsGridForm.sQuery := Format(''' Select JobNo, CustomerRef, Manufacturer, Model, AccountCode, JobType, JobStatus, DateIn, DateRepaired, DateOut, DateInvoiced, Hours, RepairCode, Deposit, Charge from JobTickets where BusCode = %s and DateIn Between date %s and date %s and jobType Like %s ''',[QuotedStr(AUD.BusCode), QuotedStr(sStartDate), QuotedStr(sFinishDate), QuotedStr(sJobType)]); StatsGridForm.iQty := edtTotalIn.AsInteger; // try StatsGridForm.ShowModal; finally StatsGridForm.Free; end; // end; StatsGridForm being the sub form.

Hi Team, D12.3, 64-bit App. An Application is reporting this issue: Range check error at (0000000001B5E842{DBiWorkflow.exe}) [00000000027FE842] ad3WinAPIParser.TWinAPIControlParser.GetSelectionScreenPosition (Line 510, "ad3WinAPIParser.pas") + $44. Line 510 is: NextLinePos := SendMessage(FHandle, EM_LINEINDEX, FY + 1, 0); FY is a LongInt. The PC it is being generated on is a Windows 10 64-bit PC. Screen resolution is 1600 x 900. I have had a look at m$oft's EM_LINEINDEX but I am non the wiser. It doesn't happen all the time. Any thoughts/suggestions appreciated. Regards & TIA, Ian

I have done this as a starting point. I will have to wait for the Customer to have/experience the issue so I get the Error Report & Log.

COBOL - Completely Obfuscated Business Orientated Language... 😉

Hmm. I see where you are coming from but there multiple cases sof LongInt variables in multiple Units that will need to be changed. I will give it some thought. Hmmm. If I going that far, perhaps I could use NativeInt...

A little rude but...There was no blame assigned to anywhere except myself for not understanding.

Do the DevExpress VCL components play nicely with VCL Styles? If not, can they be made to? Regards & TIA, Ian

OK. Operational with B36 after installing VirtualTree. Tks.

🙂

Here... WP.gksoftPlugin290.bplx86.rar WP.gksoftPlugin290.bpl.x64.rar

It won't load in my D12.3 I went back to B33 and it loads fine.

Hi Team, I am now using Delphi 12.3 but the issue existing when using previous Delphi versions. I have a 3rd Party component installed. No names, no pack-drill. 🙂 With v 1.xx the Apps built in a normal acceptable time. With its replacement, v 1.yy, the Apps build at about 50% slower. You can see the line counter clicking over. If the same, or any other App is withing a Project Group, the Apps build at normal speed. I have eliminated having the 1.50 component being recompiled every time by isolating its .pas file so only the .dcu is visible/available. The .bpl & .dcp are in the correct places and only one of each exists. Any thoughts on why the speed discrepancy when building just the single project/App? If I swap back to v 1.xx, build speed is restored. Regards & TIA, Ian

Gabriel, Uwe, Yes, it works. I have never played with the .dproj file so I was unsure. FWIW, I have added my support for the idea in the RSS.

Is it valid to do this?? <DCC_ResourcePath>..\lib\Source;D:\MyLib\Source;$(DCC_ResourcePath)</DCC_ResourcePath> To have multiple Resource paths?

Hi Team, During development/rework I often need to select a full procedure or function for delection or replacement. Delphi doesn't seem to have the ability. Is there an IDE plug-in that will allow me to select the current procedure in total? I found in 'Select Current Methody Body' in CnPack but it literally only selects the body of the method. Regards & TIA, Ian

Don't know if it is related but my Delphi 12.3 now opens like this instead of full screen on my 4k monitor. 😞 P.S. I restored 4462 and Delphi is back to normal full scren when opening. P.P.S. FYI, I am running two 4k monitors.

Hi Uwe, I tend to leave the method there in its original place but commented out so that if the test replacement method doesn't work out it is a 'simple' matter to delete the new and uncomment the old. The annoyance being selecting the entire method for some action.

Hi Stano, If I collapse it and the ctrl-/ it comments the first line and opens the rest.