source: trunk/Loading.pas

unit Loading;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Gauges;

type
  TForm9 = class(TForm)
    Gauge1: TGauge;
    Button1: TButton;
    Label1: TLabel;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

uses ImportZWebu;

{$R *.dfm}

procedure TForm9.FormShow(Sender: TObject);
begin
  Application.ProcessMessages;
//  Form8.WriteServersWoWStatus('http://wowstatus.net/serverlist.php');
end;

procedure TForm9.Button1Click(Sender: TObject);
begin
  EndLoadingBool := True;
//  Form8.Close;
  Close;
end;

procedure TForm9.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Gauge1.Progress := 0;
end;

end.