Jump to content

Ian Branch

Members
  • Content Count

    1431
  • Joined

  • Last visited

  • Days Won

    3

Everything posted by Ian Branch

  1. Ian Branch

    r3588 and Alexandria

    Purely FYI. Attempting to build rev 3598 this morning for D2007, D10.4.2 & D11 gives the following.. "D:\GExperts\source\framework\GX_BaseForm.pas(50): error E2003: Undeclared identifier: 'TemporarilyDisableHighDpi' [D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj] D:\GExperts\source\framework\GX_About.pas(255): error F2063: Could not compile used unit 'GX_BaseForm.pas' [D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj] Done Building Project "D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj" (rebuild target(s)) -- FAILED. Build FAILED. "D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj" (rebuild target) (1) -> (_PasCoreCompile target) -> D:\GExperts\source\framework\GX_BaseForm.pas(50): error E2003: Undeclared identifier: 'TemporarilyDisableHighDpi' [D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj] D:\GExperts\source\framework\GX_About.pas(255): error F2063: Could not compile used unit 'GX_BaseForm.pas' [D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj] 0 Warning(s) 2 Error(s)" Of course, Delphi references depend on the Delphi version. On a Win 11 PC. Regards, Ian
  2. Ian Branch

    Send a message to App users??

    Hi David, I ended up writing a little App to write a 'message.txt' file to the Apps root directory. It deletes it when I exit the App. I then added the following code in a TTimer event.. procedure TMainForm.MessageTimerTimer(Sender: TObject); var sPath, sMessage: string; fMessageFile: TextFile; begin // sPath := ExtractFileDir(ParamStr(0)) + '\Message.txt'; // if FileExists(sPath) then begin AssignFile(fMessageFile, sPath); Reset(fMessageFile); ReadLn(fMessageFile, sMessage); CloseFile(fMessageFile); // with TTaskDialog.Create(self) do try Caption := 'Operations Alert!'; Title := 'Urgent Action Notice!'; Text := sMessage; CommonButtons := [tcbOk]; Execute; finally Free; end; // end; // end; It fires every 60 seconds. I will see on Monday how it does or doesn't affect performance from the User's perspective. They are generally pretty quick to let me know. ;-) Regards, Ian
  3. Ian Branch

    Issue with MMX 15.0.444.2474

    Hi Fred, What are the chances our two issues are related....
  4. Ian Branch

    Issue with MMX 15.0.444.2474

    Hi Uwe, Yes, I am not sure how to assist in tracking it down. It is repeatable. I can't say if it happens in D11 yet as Elevate Software hasn't released their D11 versions yet. I have the latest MMX running fine in D11 ATT. If there is something I can do to assist, let me know pls. Regards, Ian
  5. Ian Branch

    r3588 and Alexandria

    FYI - This is how the two versions are appearing on my PC with a 4k monitor.
  6. Ian Branch

    RAD Studio 11 Alexandria is now available

    I deleted all D11 then used the License Manager in my D10.4.2 to delete the D11 Beta license. Then installed D11 without issue.
  7. Ian Branch

    Send a message to App users??

    Hi David, Thank you for your thoughts. Yes, they are all my Apps. Rebooting is not the issue, it is getting the message to them to exit the Apps so I can. ;-) They are on a LAN with Win 7 PCs and RDP into a Win 2012 Server R2. Regards, Ian
  8. Ian Branch

    Format uses clause

    Tested and verified. Thanks Uwe.
  9. Ian Branch

    Format uses clause

    😀
  10. Ian Branch

    Format uses clause

    Thanks Uwe. Appreciated. Ian
  11. Ian Branch

    Format uses clause

    Hi Uwe, By way of example. This is what I have.. Vcl.Printers, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.DBCtrls, Vcl.ComCtrls, Vcl.StdCtrls, Vcl.Buttons, Vcl.ExtCtrls, Vcl.Menus, vcl.wwdbgrid, Vcl.wwIDlg, Vcl.wwdbdlg, vcl.wwdblook, vcl.wwdbnavigator, vcl.Wwdbedit, vcl.Wwkeycb, vcl.Wwdbcomb, vcl.Wwfltdlg, Vcl.Mask, Vcl.NumberBox, vcl.Wwmemo, Vcl.ImgList, Vcl.Grids, vcl.wwDialog, vcl.Wwdotdot, vcl.wwdbigrd, vcl.wwspeedbutton, vcl.wwclearpanel, This is what I would like to see.. Vcl.Printers, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.DBCtrls, Vcl.ComCtrls, Vcl.StdCtrls, Vcl.Buttons, Vcl.ExtCtrls, Vcl.Menus, Vcl.Mask, Vcl.NumberBox, Vcl.ImgList, Vcl.Grids, vcl.wwdbgrid, Vcl.wwIDlg, Vcl.wwdbdlg, vcl.wwdblook, vcl.wwdbnavigator, vcl.Wwdbedit, vcl.Wwkeycb, vcl.Wwdbcomb, vcl.Wwfltdlg, vcl.Wwmemo, vcl.wwDialog, vcl.Wwdotdot, vcl.wwdbigrd, vcl.wwspeedbutton, vcl.wwclearpanel, Regards, Ian
  12. Ian Branch

    Format uses clause

    Question on a similar frain.. I have the following in the Uses Clause Sorting.. "WinApi;System.Win;System;Data;Vcl;Vcl.ww;LMD*;js*;rz*;pp*;da*;sc*;adv*;edb*;nlh*;id*;esbpcs*" It doesn't seem to respect the Vcl vs Vcl.ww* Should it or is this simply a case of confusion buy the sorter?? Regards & TIA, Ian
  13. Ian Branch

    Bookmark in gutter??

    Hi Guys, D10.4.2, latest MMX. Plus GExperts & Parnassus Bookmarks. While in the Uses clause, if I press Ctrl-Alt-U to order the units in the uses clause, I end up with a 7 in the gutter. How do I stop this please? Regards & TIA, Ian
  14. Ian Branch

    Bookmark in gutter??

    Ah Ha! Done. Thanks Uwe. Regards, Ian
  15. Hi Team, ATT I use this routine in the OnKeyPress of the TDBEdit to limit the data entry to only numbers. // #8 is Backspace if not (Key in [#8, '0'..'9']) then begin MessageBeep(MB_ICONERROR); TaskMessageDlg('Invalid data entry!', 'Only numbers are allowed for the Service #.', mtError, [mbOK], 0); // Discard the key Key := #0; end; // Unfortunately this does not allow cut & paste of a number. How can I facilitate cut & paste a number with leading or trailing spaces, without losing the numeric control? I have tried using MaskEdit but it still allows the pasting of the number with leading or trailing spaces. :-( Regards & TIA, Ian
  16. Hi Team, D10.4.2, ElevateDB, Koonopka Sig VCL controls v 7. I am trying to configure the control to accept a float value at run time but it keeps beeping at me when I go to enter the decimal point. Seemingly it will only accept integers via the keyboard, however I can enter a float via the 'calculator'. What have I missed/am doing wrong please? Regards & TIA, Ian
  17. Ian Branch

    allow cut & paste of numbers only..

    Yup. I have. Hence my other question. Thanks & Cheers. Ian
  18. Ian Branch

    How to enter a float (currency) in TrzDBNumeric??

    Doh!!!! Thank you. I must have looked through the properties a dozen times and didn't see that. "Forest for the Trees.." :-( Thanks again. Ian
  19. Trap for Windows 11 Players. I recently updated to Windows 11. I got the following error when building rev 3572 for D2007. >> D:\GExperts\Projects\Delphi2007\GExpertsDelphi2007.dproj(122,13): error MSB4019: The imported project "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Borland.Delphi.Targets" was not found. Confirm that the path in the <Import> declaration is correct, and that the file exists on disk. << The Address up to "C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727" is present but no 'Borland.Delphi.Targets' :-( I found it in "C:\Windows.old\Windows\Microsoft.NET\Framework\v2.0.50727". Copied to the 'new' directory. 3572 now builds fine for D2007. HTH somebody. Regards, Ian
  20. Ian Branch

    How to get the actual UTC time??

    Hi Guys, Is there a way to retrieve the actual UTC date/time? All the routines I can find work backwards from local date/time. Regards & TIA, Ian
  21. Ian Branch

    How to get the actual UTC time??

    Hi Remy, Thank you for the vey informative response. Appreciated. I have ended up using IdSNTP1.Host := 'time-a.nist.gov'; as it gives me a direct comparison between what the time should be v what the PC says. This I can work with. Regards & Thanks again, Ian
  22. Ian Branch

    How to get the actual UTC time??

    HI Guys, Not to prolong this thread any longer than necessary... This is what I have att. 1. GetSystemTime returns a 'UTC' time but it seems it is derived from the local PC time. - No good to me. 2. IdSNTP1.Host := 'time-a.nist.gov'; returns my local time. - No good to me. 3. IdDayTime1.Host := 'time-a.nist.gov'; returns what appears to be a complete UTC date/time string. - If this is true then it is exactly what I need. I continue to experiment. Regards and again thanks to all for your inputs. Ian
  23. Ian Branch

    How to get the actual UTC time??

    Ahhh. Tks Angus.
  24. Ian Branch

    How to get the actual UTC time??

    All, Nothing like a kick in the right direction. Forest & Trees and all that. Oh so simple using Indy's idDayTime component. IdDayTime1.Host := 'time-a.nist.gov'; Label1.Caption := IdDayTime1.DayTimeStr; My thanks to all for your patience and suggestions. Regards, Ian
  25. Ian Branch

    How to get the actual UTC time??

    Angus, Thank you, correct me if I am wrong but this appears to use the local time as its basis. dummzeuch, Thank you. I am aware of various hardware methods but the End User isn't interested. He has the habit of letting his Server clock 'run free' and after a couple of months it can be 2+ minutes out. He doesn't want to sync with nntp as his Country plays funny with daylight savings. Additionally he is forgetful (did I say lazy) about checking and correcting the server. So, I thought if could detect the time difference between UTC and his Server clock I could overtly flag (remind) him that it needs adjusting. David, Absolutely, that is why I thought of reading a UTC/GMT clock from somewhere. Is it possible to read the date/time form one of those internet time sources? Regards and thanks to all, Ian
×