UnitSplashSolverMin.pas

unit UnitSplashSolverMin;

{$IFDEF FPC}
  {$MODE Delphi}
{$ENDIF}

interface

uses
{$IFnDEF FPC}
  Windows,
{$ELSE}
  LCLIntf, LCLType, LMessages,
{$ENDIF}
  Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 ExtCtrls, StdCtrls, ComCtrls;

type
 T_FormSplashSolver=class(TForm)
  Image1: TImage;
  LabelDataLoading: TLabel;
  ProgressBar: TProgressBar;
  Image2: TImage;
  Label2: TLabel;
  Label3: TLabel;
  ButtonOK: TButton;
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure ButtonOKKeyDown(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 private
    { Private declarations }
 public
    { Public declarations }
 end;
 
var
 _FormSplashSolver: T_FormSplashSolver;
 
implementation

{$IFnDEF FPC}
 {$R *.frm}
{$ELSE}
 {$R *.frm}
{$ENDIF}

procedure T_FormSplashSolver.FormClose(Sender: TObject;
 var Action: TCloseAction);
begin
 ButtonOK.Visible:= False;
 ProgressBar.Visible:= True;
 LabelDataLoading.Visible:= True;
end;

procedure T_FormSplashSolver.ButtonOKKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if key=VK_ESCAPE then Close;
end;

end.