Jump to content

Ian Branch

Members
  • Content Count

    1274
  • Joined

  • Last visited

  • Days Won

    3

Everything posted by Ian Branch

  1. Ian Branch

    Tip of day glitch

    FWIW I can't reproduce the effect on my PC either. Win 11, 4k Monitor, D1.1.1, latest MMX. Ian
  2. Ian Branch

    Run a form on application exit??

    Hi Team, Is it possible to run a form from the project (.dpr) file, after the main form has exited?? i.e. after 'Application.Run' The reason is I want to have an absolutely last action taken after the Application is exited, if that makes sense?? Probably not. :-( I know I can put something as the last action in the OnClose event, or maybe even in the OnDestroy event.. Regards & TIA, Ian
  3. Ian Branch

    Run a form on application exit??

    Hi Dave, Yes that is another option. The form won't actually be showing it will be opening a database updating a record and then closing the database again. Then the form can close. I may well use a datamodule, I am just investigating the concept att. Ian
  4. Ian Branch

    wuppdi Welcome Page for Delphi 11 Alexandria?

    No problem. We have waited this long... :-)
  5. Ian Branch

    Move a form a few pixels??

    Hi Team, I have a Dashboard application that the Customer leaves up on their TV Monitor all day. I am not sure what type of TV Monitor it is. They used to leave it on 24/7 but I put an 8 hour time limiter on it. ;-) I'd like to mitigate any burn in by randomly moving/shifting the form. Is this possible? If so, how please? Regards & TIA, Ian
  6. Ian Branch

    Move a form a few pixels??

    Hi Francois, Noted. It can't be. Not probable but not impossible. They can always drag it back to the center of the screen if they like. ;-) Regards, Ian
  7. Ian Branch

    Move a form a few pixels??

    It would be if I had any say in it.. Lajos, I took your suggestion and made it into this.. procedure TMainForm.MoveWindowTimer(Sender: TObject); var ws: TWindowState; l: TRect; iLeft, iTop: SmallInt; begin ws := WindowState; l := BoundsRect; iLeft := RandomRange(-10, 10); iTop := RandomRange(-10, 10); // if ws = wsMaximized then WindowState := TWindowState.wsNormal; SetBounds(l.Left + iLeft, l.Top + iTop, l.Width, l.Height); Repaint; end; Works perfectly. Regards & Tks to all. Ian
  8. Ian Branch

    Move a form a few pixels??

    Hi Francois, Tks. I was hoping it would be something as simple as that. Regards, Ian
  9. Hi Team, I run an App inactivity/idle routine in the background. The objective is that if the App is idle, no keyboard or mouse activity for x minutes, the App closes. Closure is generally by closing the Main form. So, I was wondering, what does Delphi do if you are in a second form opened from the main form when the idle triggers? Does it formally/gracefully close the second form first, and by extension any other forms open in the App, then close the main form, or does it simply close the main form and crash the second, and any other, form? I guess a follow up to that, if it does close other forms gracefully first, what dictates the order of closure? Regards & TIA, Ian
  10. Ian Branch

    Form closing - curiosity question..

    Ahhhh. Tks Pat.
  11. Ian Branch

    Form closing - curiosity question..

    Hi Pat, Good point. I'm not sure I understand what you are saying here?? I have no special handling in the sub-forms. I have the CloseOpenForms being called in the FormClose of the MainForm. e.g. procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction); begin // CloseOpenForms; // Close any open forms. // DBC1.CloseDataSets; // Close any open tables/Queries. // DBE1.Close; // Close the DB Engine // end; In the context of this, is a Datamodule considered a Form? Ian
  12. Ian Branch

    Form closing - curiosity question..

    Hi Team, I have worked up the following code.. procedure TMainForm.CloseOpenForms; var TheForm: TForm; I: Integer; begin // for I := 0 to Screen.FormCount - 1 do begin TheForm := Screen.Forms[I]; // {$IF Defined(ELogging) or Defined(Codesite)} LogMessage('Form Name = '+ TheForm.Name); {$ENDIF} // if TheForm.Name <> 'MainForm' then TheForm.Close; // end; end; It turns out that MainForm is the first in the order of Screen.Forms so if I don't filter it out I end up in a loop. 🙂 Seems to work well. Open to any suggestions to improve it. Regards, Ian
  13. Ian Branch

    wuppdi Welcome Page for Delphi 11 Alexandria?

    Here is the 10.4 plug in, it may work in 10.1.pkgWuppdiWP_DX104D.bpl
  14. Ian Branch

    wuppdi Welcome Page for Delphi 11 Alexandria?

    Yes. In the left pane you could create sub folders that contained all the projects related together. That way I had several sub folders, one for each of my main Project groups, within which were the individual projects for that overall group. Not to be confused with Delphi's Project Group files, which also went in there. This kept the right hand pane filled with only those project files related to the overall Project. This was to me the greatest benefit of wuppdi. Project files & Project group files were physically moved from the right 'standard' projects pane to the new project group folder. Unfortunately I no longer have an older version of Delphi with the original Wuppdi installed to show you. Perhaps someone else here could post an image?? Perhaps something nice, but not actually needed, would be the ability to sort the files in the right pane. Sort by Projectgroup then project. Just a thought.
  15. Ian Branch

    Form closing - curiosity question..

    Uwe & Peter, thank you for your responses. I had suspected as much. Peter.. And how does one do that?? I think I have seen that somewhere but I don't recall where. 😞 Is it done from within the MainForm OnClose event? Regards & TIA, Ian
  16. Ian Branch

    wuppdi Welcome Page for Delphi 11 Alexandria?

    I take it the ability to create project folders is still coming??
  17. Ian Branch

    Creating my own .bpl

    Hi Team, D11.1.1. I am trying to create my own local .bpl with some odd components I have picked up over time. I have the .bpl building and installing OK. The components appear and work as desired. The issue I have is that the component .dcu files keep getting rebuilt every time I build an App with them in it. 😞 I thought that I could just relocate the relevant .pas files and the .dcu files in the local .bpl directory would get used but when I go to build the Apps Delphi tells me it can't find the files, presumably the .pas files because when I put the .pas files back with their .dcu counterparts all is fine. I have clearly missed some nuance in constructing my .bpl or something in the component files. Appreciate some guidance/education... Regards & TIA, Ian
  18. Ian Branch

    Creating my own .bpl

    :-) Which is what I am trying to implement.
  19. Ian Branch

    Components4developers???

    Hi Team, Does anybody know the fate of Components4developers? My subscription is coming up for renewal soon and I can't raise their web site. :-( Regards & TIA, Ian
  20. Ian Branch

    Components4developers???

    Ahhh. Tks Stefan.
  21. Ian Branch

    Components4developers???

    Cheers.
  22. Hi Team, Win 11, D11.1.1., 32bit Apps. I run two 4k screens, great for productivity. I have noticed that with the Apps I create, their Task Bar icon only appears in the primary Task Bar, even though I have moved the App to the Secondary screen. :-( With most, if not all, of the other standard Win Apps I use, the App icon moves between screen task bars as I move them from one screen to another. Is there some Delphi or WINAPI setting I need to set? Regards TIA, Ian
  23. Ian Branch

    Apps not appearing in right task bar??

    As all mine were/are. 😉 Cheers.
  24. Ian Branch

    Apps not appearing in right task bar??

    Hmmm. Seems I needed this.. Application.MainFormOnTaskbar := True; In the project file.
  25. Hi Team, Win 11, D11.1.1, MMX 15.1.2 build 2527. What could cause the above error message/dialog? The cursor is most certainly in the uses clause members/lines. Usually this happens with Ctrl-Alt-U when the cursor is outside the uses clause. It doesn't happen on all sources. Any thoughts/suggestions appreciated. Regards & TIA, Ian
×