| About.pas Updated 05 Apr 2018 | Upper levels: - QuArK Information Base - 4. The Source Code - 4.5. File-by-file descriptions

4.5.1. About.pas | [ Prev - Up - Next ]

This file contains everything dealing with the About form and intro splash screen.

Index

- - TAboutBox (05 Apr 2018)
- - OpenSplashScreen (05 Apr 2018)
- - OpenAboutBox (05 Apr 2018)
- - DisclaimerThread (05 Apr 2018)
- - TDisclaimerInfo (05 Apr 2018)
- - TSplashScreen (05 Apr 2018)
- - RedrawDisclaimer (05 Apr 2018)

TAboutBox | DanielPharos - 05 Apr 2018 | [ Top ]

    TAboutBox = class(TQkForm)
TAboutBox is QuArK's About window class.

OpenSplashScreen | DanielPharos - 05 Apr 2018 | [ Top ]

    function OpenSplashScreen : TForm;
OpenSplashScreen creates (and displays) the QuArK splash screen and returns its `TForm` . Do not forget to release the splash screen when it it not needed anymore, because it will NOT auto-close! Also, please don't open the splash screen without a good reason to do so.

OpenAboutBox | DanielPharos - 05 Apr 2018 | [ Top ]

    procedure OpenAboutBox;
OpenAboutBox creates QuArK's About form, and displays it modal, so it has to be closed by the user before anything else can be done. Also, please don't open the about window without a good reason to do so.

DisclaimerThread | DanielPharos - 05 Apr 2018 | [ Top ]

    function DisclaimerThread(F: TForm): THandle;
DisclaimerThread creates the flashing red disclaimer text on the splash screen and the about window. Call it with the window's handle, and it returns a handle to a thread it created that draws the flashing text. Currently, only one disclaimer thread at a time is supported. Opening multiple can result in undefined behavior. Don't forget to close the returned handle when you're done with the flashing text!

TDisclaimerInfo | DanielPharos - 05 Apr 2018 | [ Top ]

    TDisclaimerInfo = record
      ...
    end;
TDisclaimerInfo stores the information about the flashing disclaimer text. It is created and used by the `DisclaimerThread` function.

TSplashScreen | DanielPharos - 05 Apr 2018 | [ Top ]

    TSplashScreen = class(TForm)
TAboutBox is QuArK's Splash screen class. Note that this class does not have its own Delphi unit; it is purely created in 'runtime-code'. It cannot depend on any deeper QuArK functions, since the splash screen is one of the first things we display (before anything has been initialized).

RedrawDisclaimer | DanielPharos - 05 Apr 2018 | [ Top ]

    var RedrawDisclaimer: Boolean;
RedrawDisclaimer is a boolean variable that, when set, indicates that the currently running `DisclaimerThread` should redraw the flashing disclaimer text. `DisclaimerThread` periodically polls this value, and redraws when needed (unsetting this variable in the process, of course).

Copyright (c) 2021, GNU General Public License by The QuArK (Quake Army Knife) Community - http://quark.sourceforge.net/ | [ Prev - Top - Next ]