unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Menus, Mask, ExtCtrls, ComCtrls, XPMan, CheckLst,
Grids, ValEdit, Outline, DirOutln, Calendar, Spin, ColorGrd, OleCtrls,
Chartfx3, OleCtnrs, jpeg, Buttons, AlignLabeledEdit, AlignEdit;
type
TForm1 =
class(TForm)
Image: TImage;
edit_Drehbuch: TLabeledEdit;
edit_Regie: TLabeledEdit;
RichEdit: TRichEdit;
Button1: TButton;
Button2: TButton;
MainMenu1: TMainMenu;
edit_Folge: TAlignLabeledEdit;
edit_ErstausstrahlungD: TAlignLabeledEdit;
edit_ErstausstrahlungU: TAlignLabeledEdit;
edit_Titel: TLabeledEdit;
edit_OriginalTitel: TLabeledEdit;
Staffel11: TMenuItem;
N01NichtVonDieserWelt1: TMenuItem;
N02HutungBeiVollmond1: TMenuItem;
N03Feuerball1: TMenuItem;
procedure N01NichtVonDieserWelt1Click(Sender: TObject);
procedure N02HutungBeiVollmond1Click(Sender: TObject);
procedure PlayEpisodeNummer(Folgennummer: Integer);
private
{ Private-Deklarationen }
Folgennummer: Integer;
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.N01NichtVonDieserWelt1Click(Sender: TObject);
begin
Folgennummer := 1;
PlayEpisodeNummer(Folgennummer);
end;
procedure TForm1.N02HutungBeiVollmond1Click(Sender: TObject);
begin
Folgennummer := 2;
PlayEpisodeNummer(Folgennummer);
end;
procedure PlayEpisodeNummer(Folgennummer: Integer);
begin
case Folgennummer
of
1:;
richedit.Lines.LoadFromFile('
.\episodes\01.txt');
Image.Picture.LoadFromFile('
.\images\01.jpg');
2:;
richedit.Lines.LoadFromFile('
.\episodes\02.txt');
Image.Picture.LoadFromFile('
.\images\02.jpg');
end;
end;
end.