Load.pas

unit Load;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, pngimage, ExtCtrls, StdCtrls, pngextra;

type
  TFormLoading = class(TForm)
    ImageLoad: TImage;
    TimerState: TTimer;
    LabelState: TLabel;
    ButtonCancel: TPNGButton;
    procedure FormCreate(Sender: TObject);
    procedure TimerStateTimer(Sender: TObject);
    procedure ButtonCancelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormLoading: TFormLoading;

implementation
 uses TheTetris;

{$R *.dfm}

procedure TFormLoading.FormCreate(Sender: TObject);
var DLL:Cardinal;
  PNG:TPNGObject;
begin
 DLL:=LoadLibrary(PChar(ProgramPath+'\Data\'+TetDll));
 //Çàãðóæàåì "ñêðûòûé" êóðñîð
 Screen.Cursors[1]:=LoadCursor(DLL, 'HIDDEN');
 PNG:=TPNGObject.Create;
 PNG.LoadFromResourceName(Dll, 'LOAD');
 ImageLoad.Picture.Assign(PNG);
 FreeLibrary(Dll);
 PNG.Free;
end;

procedure TFormLoading.TimerStateTimer(Sender: TObject);
var Txt:string;
begin
 {case LoadState of
  0:Txt:='Èíèöèàëèçàöèÿ èãðû';
  1:Txt:='Äîáàâëÿåì øðèôòû â ñèñòåìó';
  2:Txt:='Ñáðîñ çíà÷åíèé';
  3:Txt:='Èíèöèàëèçàöèÿ äâèæêà';
  4:Txt:='Ñîçäàíèå øðèôòîâ';
  5:Txt:='Èíèöèàëèçàöèÿ òàéìåðîâ';
  6:Txt:='Êîíñòðóèðîâàíèå êíîïîê';
  7:Txt:='Èíèöèàëèçàöèÿ ãðàôèêè è çâóêà';
  8:Txt:='Ñîçäàíèå ôèãóð';
  9:Txt:='Óñòàíîâêà îáëàñòåé';
  10:Txt:='Èíèöèàëèçàöèÿ áîíóñîâ';
  11:Txt:='Ñîçäàíèå òåêñòîâûõ ïàíåëåé';
  12:Txt:='Ñîçäàíèå ïîäñêàçîê';
  13:Txt:='Î÷èñòêà ïîëÿ';
  14:Txt:='Ôëàã î çàâåðøåíèè èíèöèàëèçàöèè';
  15:Txt:='Àêòèâàöèÿ òàéìåðîâ';
  16:Txt:='Çàâåðøåíèå çàãðóçêè';
  17:Txt:='Çàãðóçêà ãðàôèêè';
  18:Txt:='Çàãðóçêà çâóêà';
  19:Txt:='Çàãðóçêà ñòàòèñòèêè è ïàðàìåòðîâ';
  20:Txt:='Çàãðóçêà ñîõðàíåííîé èãðû';
 end;   }
 case LoadState of
  0:Txt:='Òîëüêî íà÷àëè';
  1:Txt:='Çíàêîìèìñÿ ñ âàøåé ÎÑ';
  2:Txt:='Î÷èùàåì ìåñòî äëÿ èãðû';
  3:Txt:='Ñòðîèì ñåòêó';
  4:Txt:='Ðèñóåì íàäïèñè';
  6:Txt:='Çàãðóçêà â ñàìîì ðàçãàðå';
  7:Txt:='Âêþ÷àåì çâóê è çàãðóæàåì êàðòèíêè';
  8:Txt:='Ðàçðîáàòûâàåì ôèãóðû';
  9:Txt:='Óáèðàåìñÿ çà ñîáîé';
  10:Txt:='Ñîçäàåì ðàçíûå áîíóñû';
  11:Txt:='Îáðàáàòûâàåì ìåëî÷è';
  12:Txt:='Äåëàåì âàì ïîäñêàçêè';
  13:Txt:='Î÷èùàåì ïîëå îò ëèøíèõ ôèãóð';
  14:Txt:='Ïî÷òè çàêîí÷èëè';
  15:Txt:='Ñíîâà ìåëî÷è';
  16:Txt:='Åù¸ ÷óòü-÷óòü';
  17:Txt:='Ðèñóåì êàðòèíû';
  18:Txt:='Çàêèäûâàåì çâóêè';
  19:Txt:='Èùåì ñòàðóþ èãðó';
  20:Txt:='Çàãðóæàåì ñòàðóþ èãðó';
 end;
 Txt:=Txt+'...';
 LabelState.Caption:=Txt;
 Application.ProcessMessages;
end;

procedure TFormLoading.ButtonCancelClick(Sender: TObject);
begin
 Application.Terminate;
end;

end.