Jump to content

Ian Branch

Members
  • Content Count

    1274
  • Joined

  • Last visited

  • Days Won

    3

Everything posted by Ian Branch

  1. Ian Branch

    ANN: Skia4Delphi v3.4.0

    Cheers & Tks.
  2. Ian Branch

    Survey of Delphi Versions in use??

    Tke Uwe, SwiftExpat. Which would be the most appropriate area to put it under??
  3. Ian Branch

    ANN: Skia4Delphi v3.4.0

    Hi Team, I build exclusively Win 32bit Apps. Primarily database Apps with support utilities. Nothing fancy, no whizz-bang graphics etc. My Customers are still mired in Win 7 OS & Hardware. They access their apps via their local LAN, RDP into a Win 2012 Server and the web into the same Server via Cybele's ThinFinity. The only 'Graphics' involved, aside from the nor Icons, are the saving/showing of images of equipment, currently in .jpg format. Whilst I am intrigued by Skia4Delphi, I am curious if incorporating it in my Apps would provide any benefit to/for the end Users? Regards & TIA, Ian
  4. Ian Branch

    GExperts Replace Components..

    That is because they have no sub components.
  5. Ian Branch

    GExperts Replace Components..

    I get this message when a replace is attempted in D11.1. 😞
  6. Ian Branch

    GExperts Replace Components..

    Is OTAPI still an issue for the GExperts Replace Components functionality in the latest Delphi??
  7. Ian Branch

    So here's my challemge...

    Hi Team, I need a mechanism/code where a 3 letter Company code is combined with an autoinc number, but, the autoinc number is related to the Company code. The combined are to fit in a 10 char field. These are to be individual Company Asset Numbers to go on to QRCode labels and into the table. To clarify: Let's say there are 3 companies, there will be lots more in practice, with Company codes of ABC, DEF, and GHI. I need to be able to generate as/when required, and sequentially, ABC0000001 to ABC9999999, and DEF0000001 to DEF9999999, and GHI0000001 to GHI9999999, etc, on an as needed basis. Thoughts/suggestions appreciated. Regards & TIA, Ian
  8. Ian Branch

    So here's my challemge...

    Hi Lars, Thank you for your input. In reality the maintenance (editing/adding) of assets is vested in one person, the Storeperson, so there won't be any clash. Security is not a big issue in this environment. The action of my code above is almost instantaneous however I am still considering if I should put it in a transaction, or not. Just for the added peace of mind. Ian
  9. Ian Branch

    So here's my challemge...

    Hi Team, Thank you for your inputs. I have slept on it and come up with using an AssetKeys table. Two fields - CoyCode - Char 3 and AssetNo - Integer. The Char field will hold the Company code and the Integer field will hold the next Asset # to use. The CoyCode field will have a unique index. When a new Company is added the AssetKeys table will have the new Coy code added and the AssetNo field set/used. The AssetKeys table will be linked to the Assets table via the CoyCode. When a new asset is added the, current AssetNo will be retrieved and then incremented in AssetKeys. The CoyCode and retrieved AssetNo will then be manipulated to give a 10 char Asset # per my examples above. Here is my preliminary code in the BeforePost Event.. // // Get current Asset # for the Relevant Company based on the Coy Code. AssetKeys.Open; if AssetKeys.eof then AssetKeys.AppendRecord([CoyAssets.FieldByName('CoyCode').AsString]); // AssetKeys.AssetNo defaults to 1 on a new record. iAssetNo := AssetKeys.FieldByName('AssetNo').AsInteger; AssetKeys.Edit; AssetKeys.FieldByName('AssetNo').AsInteger := AssetKeys.FieldByName('AssetNo').AsInteger + 1; AssetKeys.Post; AssetKeys.Close; // // Now create the actual Assset #. sAssetNo := IntToStr(iAssetNo); sAssetNo := sAssetNo.PadLeft(7, '0'); sAssetNo := CoyAssets.FieldByName('CoyCode').AsString + sAssetNo; // // set the CoyAssets Asset #. CoyAssets.FieldByName('AssetNo').AsString := sAssetNo; // Ian
  10. Ian Branch

    Windows has broken it - again.

    Hi Team, Windows 11 64bit. Latest Dev update. Just downloaded and tried to install GE rev 3826 for D2007. Got this... Following the link, thanks Thomas, it looks like Windows has struck again.. Will follow the instructions and see how it goes. Ian
  11. Ian Branch

    Windows has broken it - again.

    Ahhh Yes. Senior's moments.... 😉 I'm noticing more of them lately... ;-(
  12. Ian Branch

    So here's my challemge...

    Hi FPiette, I haven't decided which way to go yet. Still considering options/alternatives. Ian
  13. Ian Branch

    Windows has broken it - again.

    Success! The build for D2007 now works. Per the instructions, I copied the files here... "D:\GExperts\buildtools\dotNET2007" into here.. "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727" HTH someone else.
  14. Ian Branch

    Deputy IDE Expert

    Done. All good now. No etch-a-sketch lines at start-up of my Delphi 11.1 Thank you. Ian
  15. Ian Branch

    Deputy IDE Expert

    Fair comment. All I know is that if I disable GExperts or Deputy the Delphi Opening effect disappears. I have seen no operational impact as yet.
  16. Ian Branch

    Deputy IDE Expert

    There appears to be a conflict with GExperts. I am running Windows 11, 4k screen, D11.1, GExperts rev 3823, Deputy rev 2.4.1 via Getit. This occurs after the Deputy install and Delphi is restarting. Further, as D11.1 is starting I see this... If I disable GExperts this disappears.
  17. Hi Team, I seem to have misplaced my Code Format menu option in my D11.1.. Any thoughts on where it may have gone?? I disabled all IDE experts to no avail. It was there yesterday.. Ctrl-D still formats the unit OK. Regards & TIA, Ian
  18. Ian Branch

    Lost Code Format Menu option....

    Done.. https://quality.embarcadero.com/browse/RSP-37837
  19. Ian Branch

    Lost Code Format Menu option....

    Ah Ha! So I wasn't going mad. So, it is Format Project Sources in the Project Menu that has gone missing. 😞 I can do this - Projects Window | right-click a project file | Format Project Sources but I prefer the menu option.. 🙂
  20. Ian Branch

    Lost Code Format Menu option....

    Thanks Pat. Uwe, Thank you. I am 99.9% certain I have been using Format Source, or maybe it was a Format Project, from the Project Menu right up until today... I'm sure when selected it advised about formatting the entire project. It would then go and format all the units. Something has definitely changed. Ian
  21. According to David & Jim on the Webinar - They are coming. No time frame but the inference was 'soon'.
  22. Ian Branch

    Parnassus Bookmarks for Delphi 11 Alexandria?

    The question was asked repeatedly on the Webinar. It is coming...
  23. Ian Branch

    Delphi 11.1 is available

    Downloaded and installed via the Web Installer. No Issues. Had to rebuild a couple of 3rd Party libraries. Observations thus far.. 1. All add-ins except GetIt add-ins, preserved. 2. Don't mind the coloured background in the welcome page. 3. Backward step - I rebuilt 21 projects. Moving from D10.4.2 to D11, all projects were physically smaller. From D11 to D11.1, all projects are larger. Not a biggie but a little surprised. 4. Getting some access violation errors in vcl280.bpl when exiting - This could be due to other 3rd party libraries att. 5. Build for the 21 projects took approx 3m 35s in D11. Approx 3m 49s in D11.1. This includes EurekaLog processing. I continue to play/investigate. Still hoping for WUPPDI & Bookmarks. 🙂 Ian
  24. Hi Team, D11. I am playing with TFDMemTable. I have the following line of code... FDMemTable1.CopyDataSet(Company, [coStructure, coAppend]); Company is previously filtered so there is only one record 'visible'. How can I tell how much memory has been used as a result of just this code/action please? Regards & TIA, Ian
  25. Hi Team, I am cleaning up some exception handling in some old code. The code goes something like the following.. if E:ErrorCode = xx then doshomething else if E:ErrorCode = yy then dosomethingelse ... .. else TaskMessageDlg('Errormessage!', E.Message, mtError, [mbOK], 0); If using MadExcept or EurekaLog, is the following proper/acceptable?? if E:ErrorCode = xx then doshomething else if E:ErrorCode = yy then dosomethingelse ... .. else raise; to let MadExcept or EurekaLog process the unhandled exception(s)?? Regards & TIA, Ian
×