UResult.pas

unit UResult;

interface

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

type
  TFormResult = class(TForm)
    ImageWin: TImage;
    ButtonNew: TButton;
    ButtonQuit: TButton;
    Bevel1: TBevel;
    LabelTime: TLabel;
    LabelCTime: TLabel;
    ButtonStatistics: TButton;
    ListBoxStatistics: TListBox;
    procedure FormShow(Sender: TObject);
    procedure ButtonStatisticsClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormResult: TFormResult;
  Stat:Boolean;

implementation

{$R *.dfm}
 uses Main;

procedure TFormResult.FormShow(Sender: TObject);
begin
 case Game.GameState of
  gsGame:Application.Terminate;
  gsWin: ImageWin.Picture.Graphic:=Bitmaps.Win;
  gsLose: ImageWin.Picture.Graphic:=Bitmaps.Lose;
 end;
 LabelCTime.Caption:=IntToStr(Game.Time)+' ñåê.';
 ListBoxStatistics.Clear;
 ListBoxStatistics.Items.Add('Âàø ñ÷åò: '+IntToStr(Statistics.Bonus));
 ListBoxStatistics.Items.Add('Âðåìÿ èãðû: '+IntToStr(Statistics.LastTime)+' ñåê.');
 ListBoxStatistics.Items.Add('Êîë-âî õîäîâ: '+IntToStr(Statistics.Clicks));
 ListBoxStatistics.Items.Add('');
 ListBoxStatistics.Items.Add('Îáùàÿ ñòàòèñòèêà');
 ListBoxStatistics.Items.Add('Ìèíèìàëüíîå âðåìÿ: '+IntToStr(Statistics.MinTime)+' ñåê.');
 ListBoxStatistics.Items.Add('Ìàêñèìàëüíîå âðåìÿ: '+IntToStr(Statistics.MaxTime)+' ñåê.');
 ListBoxStatistics.Items.Add('Ïîáåä: '+IntToStr(Statistics.Win));
 ListBoxStatistics.Items.Add('Íåóäà÷: '+IntToStr(Statistics.Lose));
 ListBoxStatistics.Items.Add('Íåóäà÷, íå ñ÷èòàÿ íåóäà÷íûõ íà÷àë: '+IntToStr(Statistics.Lose-Statistics.FirstBoom));
 ListBoxStatistics.Items.Add('Íåóäà÷íîå íà÷àëî: '+IntToStr(Statistics.FirstBoom));
 ListBoxStatistics.Items.Add('Ìèíèìàëüíîå êîë-âî õîäîâ: '+IntToStr(Statistics.MinClicks));
 ListBoxStatistics.Items.Add('Ìàêñèìàëüíîå êîë-âî î÷êîâ: '+IntToStr(Statistics.MaxBonus));
end;

procedure TFormResult.ButtonStatisticsClick(Sender: TObject);
begin
 if Stat then ClientHeight:=160 else ClientHeight:=300;
 Stat:=not Stat;
end;

procedure TFormResult.FormCreate(Sender: TObject);
begin
 Stat:=False;
end;

end.