Jump to content

Ian Branch

Members
  • Content Count

    1435
  • Joined

  • Last visited

  • Days Won

    3

Everything posted by Ian Branch

  1. Ian Branch

    Problem closing forms..

    Hi Team, Thank you for your inputs. Application structure. MainForm => Form1 => Form2. I changed (self) to (nil). Same issue. I don't want Form2 Modal as it needs to show while the User continues in Form1. I created a bare bones app with the same structure. I didn't get the issue when closing Form1 after closing Form2. πŸ™‚ In my main App I created a new, empty Form2. I got the error again when I tried to close the Form1 after closing Form2. 😞 The error still happens if I disable the Action := caFree in Form2, but not if I disable it in Form1. The error generated is per the attached image. 'DBiLogViewer.exe' is the name of the App. Regards, Ian
  2. Ian Branch

    TLabel in a TTitleBarPanel??

    Hi Team, Is it possible to have and display a TLabel in D10.4's TTitleBarPanel? I can put the Label on the panel but it doesn't show. Is there a Demo of the TTitleBarPanel usage anywhere? Regards & TIA, Ian
  3. Ian Branch

    TLabel in a TTitleBarPanel??

    Tks. I did find that example/demo. Your suggestions noted. Regards, Ian P.S. I use BitDefender AV and it flags the App with a TTitleBarPanel 😞 I am confident it is OK so I told BD to ignore it.
  4. Ian Branch

    Help Border icon only?

    Hi Guys, I want to have just the Help border icon, biHelp, visible on a form but it seems to require the SystemMenu icon, biSystemMenu, as well. Is there any way to have just the Help icon? Regards & TIA, Ian
  5. Ian Branch

    Help Border icon only?

    Tks Remy, I half expected that. I did briefly, a while ago, have a look at the Custom Title Bar concept but was not impressed by it. I will have another look. Regards, Ian
  6. Hi Thomas, The issue has returned. Haven't used it for a bit but did today after updating to rev 3236. It occurs in both 10.3.3 & 10.4. Regards, Ian
  7. Ian Branch

    Resize a Form vertically only?

    Hi Team, Can I allow a Form to resize vertically only, not horizontally at all? If so, how please? Regards & TIA, Ian
  8. Ian Branch

    Resize a Form vertically only?

    Ah Ha! Tks haentschman. I have never used constraints. I shall have a play.
  9. Hi Thomas, Now that's an excellent idea. πŸ™‚ I wasn't being picky, just making you aware. Regards, Ian
  10. Hi Thomas, Rev 3209 Builds in D2007, D10.3.3 & S10.4 OK. Got the attached message when I run D10.4. Can't find TFormHotKeysExport.bmp on the PC. Regards, Ian
  11. Oh Dear! D2007, D10.3.3 & D10.4. GExperts svn rev 3201. Get similar as the Attached error on all three Delphis when building. The D2007 has a slightly different error report. Happens on either an svn update or a fresh full svn pull. Hmmm. Is Delphis the plural of Delphi?? Or is it Delphies?? Regards, Ian
  12. Ian Branch

    IDE Fixpack Sydney

    Agreed. I'd suggest putting him on the IDE development staff but he may end up in a black hole. πŸ˜‰
  13. Ian Branch

    ParnassusCoreEditor.dll AccessViolation

    I have the same issue. 😞 Moving into D10.4 so I deleted BM from D10.3.3. Still rather have it in both until all project are updated...
  14. Hi Team, Having a SQL statement into the SQL of a Query. When I open it I get the normal String List editor dialog, no issues. If I then click the 'Code Editor...' button it opens the SQL into the Editor however I immediately get a "Access violation at address 207AF82F in module 'coreide270.bpl'. Read of address 00000000." error message. No matter what I try to do in the editor the error message keeps popping up. This is the error trace from the error message.. =============================== [207AF82F]{coreide270.bpl} EditorBuffer.TEditView.DrawPanel (Line 5820, "EditorBuffer.pas" + 59) + $14 [271D2AD8]{EurekaLogCore270.bpl} Especificdelphi.IsCppExceptionCode + $20 [27263606]{EurekaLogCore270.bpl} Eexceptioninfocpp.ECppException + $266 [27266A2C]{EurekaLogCore270.bpl} Eexceptioninfobcb.EBCPPStdException.GetStdException + $184 [27267EDC]{EurekaLogCore270.bpl} Eexceptioninfollvm.EBCPPStdException.GetStdException + $11C [50060D57]{rtl270.bpl } System.@HandleAnyException (Line 20743, "System.pas" + 13) + $0 [204719AE]{coreide270.bpl} VirtFile.TExternalFileSystem.GetFilter (Line 237, "VirtFile.pas" + 4) + $2 [204719C3]{coreide270.bpl} VirtFile.TExternalFileSystem.GetFilter (Line 238, "VirtFile.pas" + 5) + $10 [207AF826]{coreide270.bpl} EditorBuffer.TEditView.DrawPanel (Line 5820, "EditorBuffer.pas" + 59) + $B [207E9022]{coreide270.bpl} EditorForm.TEditWindow.StatusBarDrawPanel (Line 3003, "EditorForm.pas" + 4) + $11 [50D611DF]{vcl270.bpl } Vcl.ComCtrls.TCustomStatusBar.DrawPanel (Line 7367, "Vcl.ComCtrls.pas" + 2) + $E [50D8DAB0]{vcl270.bpl } Vcl.ComCtrls.TStatusBarStyleHook.Paint (Line 33455, "Vcl.ComCtrls.pas" + 122) + $19 [50DF6D8C]{vcl270.bpl } Vcl.Themes.TStyleHook.WMPaint (Line 7223, "Vcl.Themes.pas" + 18) + $12 [50F4C99F]{vcl270.bpl } Vcl.Styles.TCustomStyle.SourceLoaded (Line 3310, "Vcl.Styles.pas" + 1) + $13 [50DF7202]{vcl270.bpl } Vcl.Themes.TStyleHook.WndProc (Line 7394, "Vcl.Themes.pas" + 38) + $6 [50D8DB8C]{vcl270.bpl } Vcl.ComCtrls.TStatusBarStyleHook.WndProc (Line 33476, "Vcl.ComCtrls.pas" + 0) + $0 [50DF6A26]{vcl270.bpl } Vcl.Themes.TStyleHook.HandleMessage (Line 7107, "Vcl.Themes.pas" + 20) + $6 [50F4D17E]{vcl270.bpl } Vcl.Styles.TStyleEngine.HandleMessage (Line 3598, "Vcl.Styles.pas" + 22) + $B [50DF39C0]{vcl270.bpl } Vcl.Themes.TStyleManager.HandleMessage (Line 5662, "Vcl.Themes.pas" + 11) + $11 [50CF9FC7]{vcl270.bpl } Vcl.Controls.TWinControl.DoHandleStyleMessage (Line 9344, "Vcl.Controls.pas" + 0) + $F [50CFB685]{vcl270.bpl } Vcl.Controls.TWinControl.WndProc (Line 10256, "Vcl.Controls.pas" + 1) + $4A [50CFB230]{vcl270.bpl } Vcl.Controls.TWinControl.MainWndProc (Line 10120, "Vcl.Controls.pas" + 3) + $6 [50181184]{rtl270.bpl } System.Classes.StdWndProc (Line 17989, "System.Classes.pas" + 8) + $0 [5006465D]{rtl270.bpl } System.@FinalizeArray (Line 33070, "System.pas" + 99) + $3 [12478278]{CnWizards_D104S.DLL} CnSrcEditorMisc.TCnSrcEditorMisc.OnAppMessage (Line 491, "CnSrcEditorMisc.pas" + 67) + $4A [50E5A71F]{vcl270.bpl } Vcl.Forms.TApplication.ProcessMessage (Line 11002, "Vcl.Forms.pas" + 23) + $1 [50E5A762]{vcl270.bpl } Vcl.Forms.TApplication.HandleMessage (Line 11032, "Vcl.Forms.pas" + 1) + $4 [50E5AA95]{vcl270.bpl } Vcl.Forms.TApplication.Run (Line 11170, "Vcl.Forms.pas" + 26) + $3 [0051E104]{bds.exe } bds.bds (Line 222, "" + 13) + $2 ======================================================== I tried different Query components with the same result. Can anybody confirm this issue or is it just me? This doesn't happen with the same components in D10.3.3. Regards, Ian
  15. Ian Branch

    D10.4 - Possible Bug when editing SQL

    Confirmed.
  16. Ian Branch

    D10.4 - Possible Bug when editing SQL

    Tks Uwe, Feel free to add your own input and comments/vote to the RSP. Ian
  17. Ian Branch

    D10.4 - Possible Bug when editing SQL

    Bug report created. https://quality.embarcadero.com/browse/RSP-29581
  18. Ian Branch

    D10.4 - Possible Bug when editing SQL

    I just removed the two indicated add-ons and get the same result.
  19. Ian Branch

    D10.4 - Possible Bug when editing SQL

    Hi Uwe, With a clean D10.4 or with some 3rd party add ons? Ian
  20. Ian Branch

    wuppdi Welcome Page for Delphi 10.4?

    Ah Ha! Done. Tks.
  21. Ian Branch

    wuppdi Welcome Page for Delphi 10.4?

    Be nice if there was a way to copy/transfer the Favourites from D10.3.3 WuppdiWP to D10.4 WuppdiWP.
  22. Ian Branch

    Is this deliberate?

    Latest Gexperts SVN, D10.3.3. On creating a new Message using the Message Dialog Wizard I now get this sort of message code.. procedure TForm3.FormShow(Sender: TObject); begin MessageDlg(_('Test message.'), mtInformation, [mbOK], 0); end; Note the '_(' & ')' around the message. Something new. And the '_' is an undeclared identifier. Take the '_(' & ')' out and all is good in the world. Ian
  23. Ian Branch

    Is this deliberate?

    Fair enough. I wasn't sure if it was a bug or a setting.
  24. Ian Branch

    Is this deliberate?

    Ha. Ha! Didn't twig. Also, in my case, the Dialog opens like this.. The same in D10.4. D2007 Opens OK with the full dialog. Regards & Tks, Ian
  25. Ian Branch

    Detect Windows shutdown?

    Hmmm. OK. I still have something amiss/NQR. On telling the PC to shutdown with the App running Windows immediately goes to the Shutting down screen. Reminder, I am on a Win 10 PC. This is my full code att.. unit Unit3; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs; type TForm3 = class(TForm) procedure FormShow(Sender: TObject); // private { Private declarations } procedure WMQueryEndSession(var Msg: TWMQueryEndSession); message WM_QueryEndSession; // detect Windows shutdown message procedure SaveData; // routine to save data to disk public { Public declarations } end; function ShutdownBlockReasonCreate(Handle: hWnd; Reason: LPCWSTR): Bool; stdcall; external user32; function ShutdownBlockReasonDestroy(Handle: hWnd): Bool; stdcall; external user32; var Form3: TForm3; DataToBeSaved: Boolean; implementation {$R *.dfm} procedure TForm3.WMQueryEndSession(var Msg: TWMQueryEndSession); begin if DataToBeSaved then begin Msg.Result := lResult(True); // disallow Windows from shutting down SaveData; end; Msg.Result := lResult(False); // allow Windows shutdown end; // Set DataToBeSaved to False after saving data procedure TForm3.FormShow(Sender: TObject); begin DataToBeSaved := True; end; procedure TForm3.SaveData; begin ShutdownBlockReasonCreate(Application.MainForm.Handle, 'please wait while muting...'); // Save data to disk files // ... beep; beep; beep; DataToBeSaved := False; // ShutdownBlockReasonDestroy(Application.MainForm.Handle); end; end. At least it builds now. πŸ˜‰
Γ—