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