unit DetektivwalterKohl;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Buttons;
type
{ TForm1 }
TForm1 =
class(TForm)
Hintergrund: TSpeedButton;
RechterPfeil: TSpeedButton;
LinkerPfeil: TSpeedButton;
StartKnopf: TSpeedButton;
StartBildschirm: TSpeedButton;
procedure LinksPfeilKlick(Sender: TObject);
procedure Start(Sender: TObject);
procedure StartBildschirmClick(Sender: TObject);
procedure StartClick(Sender: TObject);
procedure WelcherHintergrund(HintergrundZaehler:Integer);
private
public
end;
var
Form1: TForm1;
HintergrundZaehler : Integer;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.StartBildschirmClick(Sender: TObject);
begin
HintergrundZaehler := 100 ;
StartBildschirm.Glyph.loadfromfile('
Startbildschirm.bmp');
// wechsel Bild zu TrippleD-production
StartKnopf.Visible := True;
end;
procedure TForm1.Start(Sender: TObject);
begin
end;
procedure TForm1.LinksPfeilKlick(Sender: TObject);
begin
HintergrundZaehler := HintergrundZaehler +1 ;
WelcherHintergrund(HintergrundZaehler);
end;
procedure WelcherHintergrund(HintergrundZaehler:Integer);
begin
if HintergrundZaehler = 99
then;
Hintergrund.Glyph.loadfromfile('
99.bmp');
end;
procedure TForm1.StartClick(Sender: TObject);
begin
Hintergrund.Visible := True;
RechterPfeil.Visible := True;
LinkerPfeil.Visible := True;
StartKnopf.Visible := False;
StartBildschirm.Visible := False;
end;
end.