Ian Branch

Hi Team, Has anybody brought TPVP into the 21st century? 😉 I have downloaded it from SF and am trying to get it loaded under D11.2. Regards & TIA, Ian

No, never did, then other priorities took over and I forgot about it. Sorry.

Confirmed. I have v 4.9.

Hi Team, I have a table with a blob field that contains jpeg files of approx 256kB size. I want to reduce their size to around 128kB size. Thus reducing the overall table size. Iterating through the table isn't an issue, I need to read the image, reduce its physical size then write it back to the field. Preferably without too much degradation. Thoughts/suggestions appreciated. Regards & TIA, Ian

Anybody know what is happening with Codesight? I have emailed Ray a couple of time for any update on progress.

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

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.

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.