--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/unit_Editor_tutorial.pas	Sun Dec 03 21:54:43 2006 +0100
@@ -0,0 +1,148 @@
+unit unit_Editor_tutorial;
+
+interface//####################################################################################
+
+uses
+  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ComCtrls;
+
+type
+  Tform_editor_tutorial = class(TForm)
+    btn_close: TButton;
+    btn_Beginner: TButton;
+    btn_Advanced: TButton;
+    btn_Professional: TButton;
+    richtbx_Beginner: TRichEdit;
+    richtbx_Advanced: TRichEdit;
+    richtbx_Professional: TRichEdit;
+    richtbx_Anfaenger: TRichEdit;
+    richtbx_Fortgeschrittene: TRichEdit;
+    richtbx_Profis: TRichEdit;
+    procedure FormCreate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure btn_closeClick(Sender: TObject);
+    procedure btn_BeginnerClick(Sender: TObject);
+    procedure btn_AdvancedClick(Sender: TObject);
+    procedure btn_ProfessionalClick(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  form_editor_tutorial: Tform_editor_tutorial;
+
+implementation//###############################################################################
+uses unit_Editor;
+{$R *.dfm}//###################################################################################
+
+//------------------------------------------------------------------------------ form create
+procedure Tform_editor_tutorial.FormCreate(Sender: TObject);
+begin
+  // set language
+    if form_editor.englisch = true then
+      begin // English
+        form_Editor_Tutorial.Caption := 'Tutorial';
+        btn_close.Caption := 'Close';
+        btn_Beginner.Caption := 'Beginner';
+        btn_Advanced.Caption := 'Advanced';
+        btn_Professional.Caption := 'Professional';
+        richtbx_Beginner.BringToFront;
+      end
+    else
+      begin // German
+        form_Editor_Tutorial.Caption := 'Anleitung';
+        btn_close.Caption := 'Schließen';
+        btn_Beginner.Caption := 'Anfänger';
+        btn_Advanced.Caption := 'Fortgeschrittene';
+        btn_Professional.Caption := 'Profis';
+        richtbx_Anfaenger.BringToFront;
+      end;
+end;//--------------------------------------------------------------------------
+//------------------------------------------------------------------------------ form show
+procedure Tform_editor_tutorial.FormShow(Sender: TObject);
+begin
+  // disable drag'n'drop
+    form_editor.draggingstatus := 3;
+  // disable menu
+    form_editor.mnu_Tutorial.enabled := false;
+    form_editor.mnu_WelcomeScreen.Enabled := false;
+    form_editor.mnu_Autorun.Enabled := false;
+    form_editor.mnu_CreateAR.enabled := false;
+    form_editor.mnu_Sprache.enabled := false;
+end;//--------------------------------------------------------------------------
+//------------------------------------------------------------------------------ form close
+procedure Tform_editor_tutorial.FormClose(Sender: TObject;
+  var Action: TCloseAction);
+begin
+  // reenable drag'n'drop
+    form_editor.draggingstatus := 0;
+  // reenable menu
+    form_editor.mnu_Tutorial.enabled := true;
+    form_editor.mnu_WelcomeScreen.Enabled := true;
+    form_editor.mnu_Autorun.Enabled := true;
+    form_editor.mnu_CreateAR.enabled := true;
+    form_editor.mnu_Sprache.enabled := true;
+end;//--------------------------------------------------------------------------
+
+//#############################################################################################
+
+//------------------------------------------------------------------------------ close
+procedure Tform_editor_tutorial.btn_closeClick(Sender: TObject);
+begin
+  form_editor_tutorial.Close;
+end;//--------------------------------------------------------------------------
+
+//------------------------------------------------------------------------------ beginner
+procedure Tform_editor_tutorial.btn_BeginnerClick(Sender: TObject);
+begin
+  if form_editor.englisch = true then
+    begin
+      richtbx_Beginner.BringToFront;
+    end
+  else
+    begin
+      richtbx_Anfaenger.BringToFront;
+    end;
+
+  btn_Beginner.Enabled := false;
+  btn_Advanced.Enabled := true;
+  btn_Professional.Enabled := true;
+end;//--------------------------------------------------------------------------
+//------------------------------------------------------------------------------ advanced
+procedure Tform_editor_tutorial.btn_AdvancedClick(Sender: TObject);
+begin
+  if form_editor.englisch = true then
+    begin
+      richtbx_Advanced.BringToFront;
+    end
+  else
+    begin
+      richtbx_Fortgeschrittene.BringToFront;
+    end;
+
+
+  btn_Beginner.Enabled := true;
+  btn_Advanced.Enabled := false;
+  btn_Professional.Enabled := true;
+end;//--------------------------------------------------------------------------
+//------------------------------------------------------------------------------ professional
+procedure Tform_editor_tutorial.btn_ProfessionalClick(Sender: TObject);
+begin
+  if form_editor.englisch = true then
+    begin
+      richtbx_Professional.BringToFront;
+    end
+  else
+    begin
+      richtbx_Profis.BringToFront;
+    end;
+
+  btn_Beginner.Enabled := true;
+  btn_Advanced.Enabled := true;
+  btn_Professional.Enabled := false;
+end;//--------------------------------------------------------------------------
+
+end.//#########################################################################################