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

TAboutBox = class(TQkForm)

TAboutBox is QuArK's About window class.

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.

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.

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 = record
  ...
end;

TDisclaimerInfo stores the information about the flashing disclaimer text. It is created and used by the  DisclaimerThread  function.

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).

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).