cdar

annotate unit_Editor_tutorial.pas @ 2:104f349dcfcc

find changesets by author, revision, files, or words in the commit message
Added tag cdar-2.3 for changeset 87b91371db05b8cabe2dc3e2d2dc3ba830ab463b
author "Meillo r e t u r n s <meillo@marmaro.de>"
date Sun, 03 Dec 2006 21:56:41 +0100
parents
children
rev   line source
meillo@0 1 unit unit_Editor_tutorial;
meillo@0 2
meillo@0 3 interface//####################################################################################
meillo@0 4
meillo@0 5 uses
meillo@0 6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
meillo@0 7 Dialogs, StdCtrls, ComCtrls;
meillo@0 8
meillo@0 9 type
meillo@0 10 Tform_editor_tutorial = class(TForm)
meillo@0 11 btn_close: TButton;
meillo@0 12 btn_Beginner: TButton;
meillo@0 13 btn_Advanced: TButton;
meillo@0 14 btn_Professional: TButton;
meillo@0 15 richtbx_Beginner: TRichEdit;
meillo@0 16 richtbx_Advanced: TRichEdit;
meillo@0 17 richtbx_Professional: TRichEdit;
meillo@0 18 richtbx_Anfaenger: TRichEdit;
meillo@0 19 richtbx_Fortgeschrittene: TRichEdit;
meillo@0 20 richtbx_Profis: TRichEdit;
meillo@0 21 procedure FormCreate(Sender: TObject);
meillo@0 22 procedure FormShow(Sender: TObject);
meillo@0 23 procedure FormClose(Sender: TObject; var Action: TCloseAction);
meillo@0 24 procedure btn_closeClick(Sender: TObject);
meillo@0 25 procedure btn_BeginnerClick(Sender: TObject);
meillo@0 26 procedure btn_AdvancedClick(Sender: TObject);
meillo@0 27 procedure btn_ProfessionalClick(Sender: TObject);
meillo@0 28 private
meillo@0 29 { Private declarations }
meillo@0 30 public
meillo@0 31 { Public declarations }
meillo@0 32 end;
meillo@0 33
meillo@0 34 var
meillo@0 35 form_editor_tutorial: Tform_editor_tutorial;
meillo@0 36
meillo@0 37 implementation//###############################################################################
meillo@0 38 uses unit_Editor;
meillo@0 39 {$R *.dfm}//###################################################################################
meillo@0 40
meillo@0 41 //------------------------------------------------------------------------------ form create
meillo@0 42 procedure Tform_editor_tutorial.FormCreate(Sender: TObject);
meillo@0 43 begin
meillo@0 44 // set language
meillo@0 45 if form_editor.englisch = true then
meillo@0 46 begin // English
meillo@0 47 form_Editor_Tutorial.Caption := 'Tutorial';
meillo@0 48 btn_close.Caption := 'Close';
meillo@0 49 btn_Beginner.Caption := 'Beginner';
meillo@0 50 btn_Advanced.Caption := 'Advanced';
meillo@0 51 btn_Professional.Caption := 'Professional';
meillo@0 52 richtbx_Beginner.BringToFront;
meillo@0 53 end
meillo@0 54 else
meillo@0 55 begin // German
meillo@0 56 form_Editor_Tutorial.Caption := 'Anleitung';
meillo@0 57 btn_close.Caption := 'Schließen';
meillo@0 58 btn_Beginner.Caption := 'Anfänger';
meillo@0 59 btn_Advanced.Caption := 'Fortgeschrittene';
meillo@0 60 btn_Professional.Caption := 'Profis';
meillo@0 61 richtbx_Anfaenger.BringToFront;
meillo@0 62 end;
meillo@0 63 end;//--------------------------------------------------------------------------
meillo@0 64 //------------------------------------------------------------------------------ form show
meillo@0 65 procedure Tform_editor_tutorial.FormShow(Sender: TObject);
meillo@0 66 begin
meillo@0 67 // disable drag'n'drop
meillo@0 68 form_editor.draggingstatus := 3;
meillo@0 69 // disable menu
meillo@0 70 form_editor.mnu_Tutorial.enabled := false;
meillo@0 71 form_editor.mnu_WelcomeScreen.Enabled := false;
meillo@0 72 form_editor.mnu_Autorun.Enabled := false;
meillo@0 73 form_editor.mnu_CreateAR.enabled := false;
meillo@0 74 form_editor.mnu_Sprache.enabled := false;
meillo@0 75 end;//--------------------------------------------------------------------------
meillo@0 76 //------------------------------------------------------------------------------ form close
meillo@0 77 procedure Tform_editor_tutorial.FormClose(Sender: TObject;
meillo@0 78 var Action: TCloseAction);
meillo@0 79 begin
meillo@0 80 // reenable drag'n'drop
meillo@0 81 form_editor.draggingstatus := 0;
meillo@0 82 // reenable menu
meillo@0 83 form_editor.mnu_Tutorial.enabled := true;
meillo@0 84 form_editor.mnu_WelcomeScreen.Enabled := true;
meillo@0 85 form_editor.mnu_Autorun.Enabled := true;
meillo@0 86 form_editor.mnu_CreateAR.enabled := true;
meillo@0 87 form_editor.mnu_Sprache.enabled := true;
meillo@0 88 end;//--------------------------------------------------------------------------
meillo@0 89
meillo@0 90 //#############################################################################################
meillo@0 91
meillo@0 92 //------------------------------------------------------------------------------ close
meillo@0 93 procedure Tform_editor_tutorial.btn_closeClick(Sender: TObject);
meillo@0 94 begin
meillo@0 95 form_editor_tutorial.Close;
meillo@0 96 end;//--------------------------------------------------------------------------
meillo@0 97
meillo@0 98 //------------------------------------------------------------------------------ beginner
meillo@0 99 procedure Tform_editor_tutorial.btn_BeginnerClick(Sender: TObject);
meillo@0 100 begin
meillo@0 101 if form_editor.englisch = true then
meillo@0 102 begin
meillo@0 103 richtbx_Beginner.BringToFront;
meillo@0 104 end
meillo@0 105 else
meillo@0 106 begin
meillo@0 107 richtbx_Anfaenger.BringToFront;
meillo@0 108 end;
meillo@0 109
meillo@0 110 btn_Beginner.Enabled := false;
meillo@0 111 btn_Advanced.Enabled := true;
meillo@0 112 btn_Professional.Enabled := true;
meillo@0 113 end;//--------------------------------------------------------------------------
meillo@0 114 //------------------------------------------------------------------------------ advanced
meillo@0 115 procedure Tform_editor_tutorial.btn_AdvancedClick(Sender: TObject);
meillo@0 116 begin
meillo@0 117 if form_editor.englisch = true then
meillo@0 118 begin
meillo@0 119 richtbx_Advanced.BringToFront;
meillo@0 120 end
meillo@0 121 else
meillo@0 122 begin
meillo@0 123 richtbx_Fortgeschrittene.BringToFront;
meillo@0 124 end;
meillo@0 125
meillo@0 126
meillo@0 127 btn_Beginner.Enabled := true;
meillo@0 128 btn_Advanced.Enabled := false;
meillo@0 129 btn_Professional.Enabled := true;
meillo@0 130 end;//--------------------------------------------------------------------------
meillo@0 131 //------------------------------------------------------------------------------ professional
meillo@0 132 procedure Tform_editor_tutorial.btn_ProfessionalClick(Sender: TObject);
meillo@0 133 begin
meillo@0 134 if form_editor.englisch = true then
meillo@0 135 begin
meillo@0 136 richtbx_Professional.BringToFront;
meillo@0 137 end
meillo@0 138 else
meillo@0 139 begin
meillo@0 140 richtbx_Profis.BringToFront;
meillo@0 141 end;
meillo@0 142
meillo@0 143 btn_Beginner.Enabled := true;
meillo@0 144 btn_Advanced.Enabled := true;
meillo@0 145 btn_Professional.Enabled := false;
meillo@0 146 end;//--------------------------------------------------------------------------
meillo@0 147
meillo@0 148 end.//#########################################################################################