33f7d1b3af
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5251 8e941d3f-bd1b-0410-a28a-d453659cc2b4
31 lines
507 B
ObjectPascal
31 lines
507 B
ObjectPascal
program ETDemo;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
uses
|
|
Interfaces,
|
|
Forms, main, EpikTimer, newsw, splash;
|
|
|
|
var i:Integer;
|
|
|
|
{$R *.res}
|
|
|
|
begin
|
|
Application.Initialize;
|
|
Form3 := TForm3.Create(nil);
|
|
Try
|
|
Application.ProcessMessages;
|
|
Application.CreateForm(TForm1, Form1);
|
|
for i:=1 to MaxStopwatches do
|
|
Begin
|
|
Application.CreateForm(TForm2, NewStopwatches[i]);
|
|
Form3.Progressbar1.position:=i;
|
|
Application.ProcessMessages;
|
|
End;
|
|
Finally
|
|
Form3.free;
|
|
End;
|
|
Application.Run;
|
|
end.
|
|
|