Jump to content

Ian Branch

Members
  • Content Count

    1431
  • Joined

  • Last visited

  • Days Won

    3

Ian Branch last won the day on May 1 2023

Ian Branch had the most liked content!

Community Reputation

135 Excellent

1 Follower

Technical Information

  • Delphi-Version
    Delphi 12 Athens

Recent Profile Visitors

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

  1. Ian Branch

    Rapid.Generics revamp

    Confirmed. Tks.
  2. Ian Branch

    Rapid.Generics revamp

    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'
  3. Ian Branch

    Is this a change in 12.3??

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

    Is this a change in 12.3??

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

    Is this a change in 12.3??

    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.
  6. Ian Branch

    Is this a change in 12.3??

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

    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.
  8. Ian Branch

    Is this a change in 12.3??

    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
  9. Ian Branch

    Range check error...

    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.
  10. COBOL - Completely Obfuscated Business Orientated Language... 😉
  11. Ian Branch

    Range check error...

    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...
  12. Ian Branch

    Range check error...

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

    Range check error...

    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
  14. Ian Branch

    wuppdi Welcome Page for Delphi 11 Alexandria?

    OK. Operational with B36 after installing VirtualTree. Tks.
  15. Ian Branch

    wuppdi Welcome Page for Delphi 11 Alexandria?

    🙂
×