Ian Branch

Hi Guys, Thanks to all for your input. I am out of my league here but this is what I have att from Dr Google. ;-). private { Private declarations } DataToBeSaved: Boolean; procedure WMQueryEndSession(var Msg: TWMQueryEndSession); message WM_QueryEndSession; // detect Windows shutdown message procedure SaveData; // routine to save data to disk Then.. procedure TMainForm.WMQueryEndSession(var Msg: TWMQueryEndSession); begin if DataToBeSaved then if MessageDlg('Windows is shutting down! First save data changes?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin Msg.Result := 0; // disallow Windows from shutting down beep; SaveData; end; Msg.Result := 1; // allow Windows shutdown end; // Set DataToBeSaved to False after saving data procedure TMainForm.SaveData; begin // Save data to disk files // ... DataToBeSaved := False; end; ..... ..... procedure TMainForm.FormCreate(Sender: TObject); begin // DataToBeSaved := True; // .... .... In my Win 10 dev PC, when I tell windows to shutdown it goes straight to the green Shutting Down screen. I never see the MessageDlg prompt. 😞 Am I missing some other nuance? I noted David's comments and reference. I need this to work on my Win 10 PC as well as the Customer's Win 7, later I hope to be Win 10, PCs. Again, thoughts, suggestions, code appreciated. Regards & TIA, Ian

Thank you for your continued commitment and support to make a great tool even better.

Hi Team, I have Indy10 installed with my D10.3.3. No problem. Works fine. When I installed Indy10 I removed the generic Indy libraries. Turns out that was a mistake. :-( For reasons of comparability another 3rd Party library I need to reinstall the generic Indy that came with D10.3.3. Whilst retaining Indy10. Can anybody advise where/how I might do that please? Regards & TIA, Ian

Hi Remy, Thanks for the reply/info. I used the term 'generic' as it didn't have any '260' in the .bpl file names as opposed to the 'Indy10' I have installed from GitHub. I'm not going to play with the Registry. 😉 Modifying the source for the 3rd party library will obviously be required each time there is an update. Not the most desirable thing to deal with. I shall consider my options further. Regards & Tks again, Ian.

Well done on your patience and persistence.

Thaks Kas. I'll stick with it then. Ian

Hi Team, Please pardon my ignorance here, I have never done anything with Threading and I have no idea if any of the 3rd Party stuff I use does. I suspect not but it is possible I suppose. So, to my Question.. Given my non-threaded environment, aside from the Debugging aspects, I use EurekaLog, does FastMM5 provide any benefit over the native Delphi (10.3.3) memory manager? Regards & TIA, Ian

Hi Team, D10.3.3, Windows 10, Canon printers. I switched to the IDE Dark mode a little while ago to see if I could get used to it. It's growing on me. I went to print a section of code from a project with Use color & Syntax print on. I could hardly read it. The colors weren't right. I immediately blamed the ink cartridge(s). After replacing all of them I still had the same issue. :-( I was now starting to suspect the printer so I printed a picture from a separate app. All good! OK. I know it used to be OK and the only thing I could think was different was IDE Light v Dark mode. I switched back to Light mode. Viola! All was good again, with the printing colors all good and legible. So - Is this a configuration issue with my Delphi? If so where? Or, is it a bug? Sticking with Light mode for now. Regards & TIA, Ian

I'm a little confused. This thread says 6.4.5 released. Your Home|News|April 4 - says NextSuite (VCL) v6.5.0 released Neither appear in my downloads area :-( Ian

Hi Team, I don't even know if this is practical or possible but it probably is given the capability of Delphi. I have a Multi-User Customer who is more than a little negligent in setting up his workstations with the correct Language/Region settings. :-( In their Customer Table is a field called Country. In it is the Company's Country name. e.g. Australia, India, Fiji, Angola, etc. What I would like to do is to read that name and based on it retrieve from somewhere the relevant Language/Regional settings and set Delphi's Settings accordingly, such that no matter what the Workstation settings are, the Delphi App is working with and according to the Country parameters. Thoughts/suggestions appreciated. Regards, Ian

Hi Team, Some time in the not too distant past I sought a method for minimizing the main form but not any open sub forms. I 'sourced' the technique from somewhere but cannot for the life of me remember what was required, nor, as I have the source code of the relevant App it is working in, can I divine what I did to make it work. 😞 It is going to be something simple but I just can't see it. 😞 Appreciate any thoughts/suggestions on the minimizing. Don't need comments on my memory. 😉 Regards & TIA, Ian

Hmm. Where does that happen? If it is with this code " TGenreTypesForm.Create(Self).ShowModal" then this works in the Working App.

Hi Lars, Yes I have seen that technique but it isn't what I have working here. This is so frustrating. 😞 Ian

Hi Lars, You would then need to put something in the Sub forms to make the Mainform visible again. I don't have that. Ian

Database Dates are always as datetime. Where it falls down is when creating a filter. e.g. '13-Mar-20' is not a valid date. This is from a Calendar component picking up the PCs short date format. '13/03/2020' is a valid date. So, my objective is to force the, dates in this case, to the same format as required. I get the same issue with Currency symbols, etc.

Actually Language I can live with, it is the date and currency differences between the database and their PC that is causing the grief. e.g. The Database is expecting dd/mm/yyyy and their PC is set for dd-MMM-yy. They are English in any case. Ian

Hi Team, D10.3.3, 32Bit Apps. I have written a couple of native Windows Apps for a Company that is now making them available to their Customers via ThinFinity from Cybele Software. https://www.cybelesoft.com/ Some of their Field Techs are now using it to log and complete tasks in the field via the browser on their Company iPads. Everything works as designed, no issue. What they, the Company, have now asked is if I can add the ability for their Customer to Sign the iPad against the Task signifying their acceptance that the Task is finished to their satisfaction. The Company expects the Signature to be recorded against the database Task record. Given the configuration.. Application running on a Win 2012 Server via Thinfinity and the Web to the browser on the iPad. Is it even possible to capture the signature through this means? I can certainly add a field in the database and Tasking interface to present a Memo field of some sort but I don't know that it is possible for the application to capture a signature via the iPad hardware/software. Does anybody have any experience/thoughts along these lines? Regards & TIA, Ian

Hi Team, Update - I received and tested on an Android tablet today. Same outcome as the iPad. Ian

HI Rollo, I understand your point but it's not my call. The Customer has asked for it. Ian

Atilla, On the iPad, I did find that when I clicked the button and moved the mouse/pointer down to the TImage, the first press of the screen left a dot but wouldn't track. It is a relatively old 9.7" iPad, don't know if that has any bearing. Might see if I can find someone with an iPad stylus to try. Thanks for all your help. Regards, Ian

Atilla, This is via Thinfinity. Haven't sussed out the saving yet but at least I can write. It doesn't work on my iPad though. 😞 Probably needs the stylus. Ian

Atilla, Ah Ha! Thank you. Will advise. Ian

Ah Ha! Bingo! Thank you very much. If I enable fSigno.OnChange := OnChangeSigNo; I get an undeclared identifier when building. It doesn't know about OnChangeSigNo. I also deleted the imgSigno:TImage; declaration. Ian

Yes, it is a VCL App. The TImage is on the form. I just created a new app too. unit Unit23; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls; type TForm23 = class(TForm) Image1: TImage; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } imgSigno:TImage; end; var Form23: TForm23; implementation uses Signature; {$R *.dfm} procedure TForm23.Button1Click(Sender: TObject); var fSigNo:TSigNo; begin fSigno := TSigno.Create(imgSigno); //fSigno.OnChange := OnChangeSigNo; end; end. Same error on the Create. 😞 Ian

Hi Atilla, Thank you very much. Unfortunately my skills don't match yours. 😞 I have the following.. procedure TShowRecordForm.Button1Click(Sender: TObject); var fSigNo:TSigNo; begin fSigno := TSigno.Create(imgSigno); //fSigno.OnChange := OnChangeSigNo; .... .... When I run the App and click the button I get an Access violation for the TSigNo.Create(imgSigNo) line. 😞 Signature is included in the uses and I have imgSigno:TImage; in the public area. Ian