Ian Branch

Hi Team, My solution has been running all day, multiple Apps, multiple Users, no issues seen or reported. :-) I did a test message this morning and got a response from everybody. :-) Thank you all for your input. Regards, Ian

FWIW my issue is still present in D10.4.2 in MMX 15.0.45.2476. With CnWizards v 1.2.0.1050 enabled I got an extra error.. This would seem to be a CnWizards issue. Disabling CnWizards in D10.4.2 eliminated the extra error but I still had my original errors. I also initially had an issue with MMX 15.0.45.2476 in D11 but if I disabled CnWizards v 1.2.0.1050 all was fine. Regards, Ian

Hi Thomas, Win 11, D11, GE rev 3612. 4k monitor (3840 x 2160 - 150%) Understanding that it is still a work in progress, this is purely FYI. D2007 build fails with.. C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Borland.Delphi.Targets(113,3): error : D:\GExperts\source\ReplaceComponents\GX_ReplaceCompMapDets.pas(9) Fatal: F1026 File not found: 'System. Actions.dcu' D:\GExperts\source\ReplaceComponents\GX_ReplaceCompMapDets.pas(9) Fatal: F1026 File not found: 'System.Actions.dcu' Done building target "CoreCompile" in project "GExpertsDelphi2007.dproj" -- FAILED. Done building project "GExpertsDelphi2007.dproj" -- FAILED. Build FAILED. C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\Borland.Delphi.Targets(113,3): error : D:\GExperts\source\ReplaceComponents\GX_ReplaceCompMapDets.pas(9) Fatal: F1026 File not found: 'System.Acti ons.dcu' 0 Warning(s) 1 Error(s) Time Elapsed 00:00:02.61 done building GExpertsDelphi2007.dproj D10.4.2 Builds and looks/runs fine. D11 builds with the following warning.. D:\GExperts\externalsource\abbrevia\AbDfEnc.pas(814): Hint warning H2077: Value assigned to 'Deflate' never used [D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj] 472479 lines, 2.78 seconds, 2980984 bytes code, 41188 bytes data. Done Building Project "D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj" (rebuild target(s)). Build succeeded. "D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj" (rebuild target) (1) -> (_PasCoreCompile target) -> D:\GExperts\externalsource\abbrevia\AbDfEnc.pas(814): Hint warning H2077: Value assigned to 'Deflate' never used [D:\GExperts\Projects\DelphiXx110Alexandria\GExpertsRS110.dproj] 1 Warning(s) 0 Error(s) Time Elapsed 00:00:03.96 done building GExpertsRS110.dproj Seems to run OK but looks terrible. Thank you for your commitment to this. Regards, Ian

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

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

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

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

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

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.

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

Tested and verified. Thanks Uwe.

😀

Thanks Uwe. Appreciated. Ian

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

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

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

Ah Ha! Done. Thanks Uwe. Regards, Ian

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

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

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

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

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

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

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

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