Sha256: 0116e3e3a0b3e708e42c27e1ba03939814ebdd92c206227cf418ce24a7265ab3
Contents?: true
Size: 731 Bytes
Versions: 11
Compression:
Stored size: 731 Bytes
Contents
unit FormSplashU;
interface
uses
Classes,
Controls,
Forms,
StdCtrls,
ExtCtrls;
type
TFormSplash = class(TForm)
Timer: TTimer;
LabelLoading: TLabel;
procedure FormCreate(Sender: TObject);
procedure TimerTimer(Sender: TObject);
private
public
end;
var
FormSplash: TFormSplash;
implementation
{$R *.dfm}
procedure TFormSplash.FormCreate(Sender: TObject);
begin
BorderIcons := [];
BorderStyle := bsNone;
BorderWidth := 1;
FormStyle := fsStayOnTop;
Position := poOwnerFormCenter;
Timer.Enabled := False;
Timer.Interval := 750;
end;
procedure TFormSplash.TimerTimer(Sender: TObject);
begin
Close;
Release;
end;
end.
Version data entries
11 entries across 11 versions & 1 rubygems