Mercurial > cdar

annotate unit_Editor.pas @ 0:ef71164288c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
begin of using hg for cdar
author "Meillo r e t u r n s <meillo@marmaro.de>"
date Sun, 03 Dec 2006 21:54:43 +0100
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
1 unit unit_Editor;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
2
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
3 interface//####################################################################################
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
4
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
5 uses
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
6 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
7 Dialogs, Menus, ExtCtrls, Buttons, StdCtrls;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
8
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
9 type
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
10 Tform_Editor = class(TForm)
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
11 mnu_Main: TMainMenu;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
12 mnu_tutorial: TMenuItem;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
13 mnu_WelcomeScreen: TMenuItem;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
14 mnu_Autorun: TMenuItem;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
15 mnu_CreateAR: TMenuItem;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
16 img_Background: TImage;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
17 img_button: TImage;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
18 mnu_nzl: TMenuItem;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
19 mnu_Sprache: TMenuItem;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
20 procedure FormClose(Sender: TObject; var Action: TCloseAction);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
21 procedure FormCreate(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
22 procedure mnu_tutorialClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
23 procedure mnu_WelcomeScreenClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
24 procedure mnu_AutorunClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
25 procedure mnu_CreateARClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
26 procedure img_buttonMouseDown(Sender: TObject; Button: TMouseButton;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
27 Shift: TShiftState; X, Y: Integer);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
28 procedure img_buttonMouseMove(Sender: TObject; Shift: TShiftState; X,
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
29 Y: Integer);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
30 procedure img_buttonMouseUp(Sender: TObject; Button: TMouseButton;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
31 Shift: TShiftState; X, Y: Integer);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
32 procedure mnu_SpracheClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
33
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
34 private
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
35 dX : integer;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
36 dY : integer;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
37 public
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
38 DraggingStatus : byte;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
39
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
40 PfadHG_neu : String; // 'C:\'
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
41 PfadEnter_neu : String; // 'C:\'
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
42 PfadIcon_neu : string;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
43 CDRoot_neu : string;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
44 xEnter_neu : integer; // '225'
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
45 yEnter_neu : integer; // '325'
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
46 WelcomeKind_neu : String; // 'click' 'time' 'none'
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
47 Delay_neu : byte; // '3000' (in ms)
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
48 StartsFD_neu : string;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
49
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
50 PfadHG_alt : String;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
51 PfadEnter_alt : String;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
52 PfadIcon_alt : string;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
53 CDRoot_alt : string;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
54 xEnter_alt : integer;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
55 yEnter_alt : integer;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
56 WelcomeKind_alt : String;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
57 Delay_alt : byte;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
58 StartsFD_alt : string;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
59
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
60 Delay : string;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
61 englisch : boolean;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
62 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
63
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
64 var
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
65 form_Editor: Tform_Editor;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
66
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
67 implementation//###############################################################################
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
68 uses unit_Start, unit_Welcome, unit_Editor_ws, unit_Editor_as,
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
69 unit_Editor_tutorial, unit_Editor_CreateAR;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
70 {$R *.dfm}//###################################################################################
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
71
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
72 //------------------------------------------------------------------------------ form create
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
73 procedure Tform_Editor.FormCreate(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
74 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
75 // close form 'start'
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
76 form_start.Hide;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
77
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
78 // init global vars
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
79 PfadHG_alt := '';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
80 PfadEnter_alt := '';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
81 PfadIcon_alt := '';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
82 CDRoot_alt := 'C:\NewCD\';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
83 xEnter_alt := 0;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
84 yEnter_alt := 0;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
85 WelcomeKind_alt := 'click';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
86 Delay_alt := 2;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
87 StartsFD_alt := '';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
88 Delay := '3';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
89 englisch := true;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
90
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
91 // background color
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
92 form_editor.Color := rgb(192,192,192);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
93 // dragging dtatus = 0
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
94 DraggingStatus := 0;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
95 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
96 //------------------------------------------------------------------------------ kill
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
97 procedure Tform_Editor.FormClose(Sender: TObject;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
98 var Action: TCloseAction);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
99 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
100 application.Terminate;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
101 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
102
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
103 //#############################################################################################
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
104
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
105 //------------------------------------------------------------------------------ tutorial
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
106 procedure Tform_Editor.mnu_tutorialClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
107 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
108 application.CreateForm(tform_editor_tutorial, form_editor_tutorial);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
109 form_editor_tutorial.show;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
110 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
111 //------------------------------------------------------------------------------ welcome settings
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
112 procedure Tform_Editor.mnu_WelcomeScreenClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
113 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
114 application.CreateForm(tform_editor_ws, form_editor_ws);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
115 form_editor_ws.show;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
116 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
117 //------------------------------------------------------------------------------ autorun settings
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
118 procedure Tform_Editor.mnu_AutorunClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
119 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
120 application.CreateForm(tform_editor_as, form_editor_as);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
121 form_editor_as.show;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
122 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
123 //------------------------------------------------------------------------------ create settings
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
124 procedure Tform_Editor.mnu_CreateARClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
125 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
126 application.CreateForm(tform_editor_CreateAR, form_editor_CreateAR);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
127 form_editor_CreateAR.show;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
128 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
129 //------------------------------------------------------------------------------ toggle language
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
130 procedure Tform_Editor.mnu_SpracheClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
131 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
132 if englisch = true then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
133 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
134 englisch := false;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
135 mnu_sprache.caption := ' -> English '; // German
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
136 mnu_Tutorial.Caption := ' Anleitung ';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
137 mnu_WelcomeScreen.Caption := ' Begrüßungsbild Optionen ';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
138 mnu_Autorun.Caption := ' Autorun Optionen ';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
139 mnu_CreateAR.Caption := ' Autorunner erstellen ';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
140 end
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
141 else
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
142 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
143 englisch := true;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
144 mnu_sprache.Caption := ' -> Deutsch '; // English
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
145 mnu_Tutorial.Caption := ' Tutorial ';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
146 mnu_WelcomeScreen.Caption := ' Welcome-Screen Settings ';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
147 mnu_Autorun.Caption := ' Autorun Settings ';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
148 mnu_CreateAR.Caption := ' Create CD-Autorunner ';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
149 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
150 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
151
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
152 //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
153
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
154 //------------------------------------------------------------------------------ // mouse down
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
155 procedure Tform_Editor.img_buttonMouseDown(Sender: TObject;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
156 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
157 var MouseArea : trect;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
158 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
159 // right drag'n'drop status needed
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
160 if DraggingStatus <> 0 then exit;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
161 // remember cursor position on 'img_button'
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
162 dX := x;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
163 dY := y;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
164 // jail mouse in mousearea
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
165 mousearea.Left := form_editor.Left + dX + 3;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
166 mousearea.Right := form_editor.Left + form_editor.Width - (img_button.Width - dX + 2);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
167 mousearea.Top := form_editor.Top + dY + 41;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
168 mousearea.Bottom := form_editor.Top + form_editor.Height - (img_button.Height - dY +2);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
169 clipcursor(@mousearea);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
170 // set drag'n'drop status
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
171 DraggingStatus := 1;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
172 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
173 //------------------------------------------------------------------------------ // mouse move
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
174 procedure Tform_Editor.img_buttonMouseMove(Sender: TObject;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
175 Shift: TShiftState; X, Y: Integer);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
176 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
177 // right drag'n'drop status needed
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
178 if (DraggingStatus = 0) or (draggingstatus = 3) then exit;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
179 // drag
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
180 img_button.Left := img_button.Left + (x - dX);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
181 img_button.Top := img_button.Top + (y - dY);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
182 // set drag'n'drop status
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
183 DraggingStatus := 2;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
184 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
185 //------------------------------------------------------------------------------ // mouse up
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
186 procedure Tform_Editor.img_buttonMouseUp(Sender: TObject;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
187 Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
188 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
189 // right drag'n'drop status needed
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
190 if DraggingStatus <> 2 then exit;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
191 // free cursor from jail
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
192 clipcursor(nil);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
193 // set 'img_button' coordinated
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
194 xEnter_alt := img_button.left;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
195 yEnter_alt := img_button.top;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
196 // set drag'n'drop status
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
197 DraggingStatus := 0;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
198 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
199
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
200 end.//#########################################################################################