Mercurial > cdar

annotate unit_Editor_as.pas @ 2:104f349dcfcc default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 ef71164288c1
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_as;
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, ExtCtrls, StdCtrls, ExtDlgs;
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_as = class(TForm)
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
11 gbx_AutorunIcon: TGroupBox;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
12 btn_BrowseIcon: TButton;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
13 tbx_IconPath: TEdit;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
14 img_Icon: TImage;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
15 gbx_ZielDir: TGroupBox;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
16 tbx_CDRootPath: TEdit;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
17 btn_BrowseCDRoot: TButton;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
18 lbl_1: TLabel;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
19 lbl_2: TLabel;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
20 lbl_3: TLabel;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
21 btn_cancel: TButton;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
22 btn_apply: TButton;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
23 btn_restore: TButton;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
24 img_IconCDAR: TImage;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
25 GroupBox1: TGroupBox;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
26 lbl_4: TLabel;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
27 lbl_5: TLabel;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
28 tbx_StartsFD: TEdit;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
29 tbx_Warnings: TMemo;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
30 OpenDialog1: TOpenPictureDialog;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
31 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
32 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
33 procedure FormShow(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
34 procedure btn_BrowseIconClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
35 procedure btn_BrowseCDRootClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
36 procedure btn_restoreClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
37 procedure btn_applyClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
38 procedure btn_cancelClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
39 procedure tbx_StartsFDChange(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
40 procedure tbx_CDRootPathChange(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
41 private
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
42
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
43 public
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
44 { Public declarations }
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
45 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
46
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
47 var
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
48 form_Editor_as: Tform_Editor_as;
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 implementation//###############################################################################
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
51 uses unit_Editor, unit_Editor_as_BrowseDir;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
52 {$R *.dfm}//###################################################################################
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
53
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
54 // forwardings
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
55 procedure Warnings();forward;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
56
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
57 //------------------------------------------------------------------------------ form create
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
58 procedure Tform_Editor_as.FormCreate(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
59 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
60 // set language
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
61 if form_editor.englisch = true then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
62 begin // English
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
63 form_editor_as.Caption := 'Autorun Settings';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
64 btn_BrowseIcon.Caption := 'Browse';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
65 btn_BrowseCDRoot.Caption := 'Browse';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
66 lbl_1.Caption := 'Autorun-Icon of the CD';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
67 lbl_2.Caption := 'Directory where the Files will be copied to';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
68 lbl_3.Caption := '(This Directory represents the Root-Dir of the CD)';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
69 btn_cancel.Caption := 'Cancel Changes';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
70 btn_apply.Caption := 'Apply Changes';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
71 btn_restore.Caption := 'CDAR-Icon';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
72 lbl_4.Caption := 'Choose the File which will be started by CDAR';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
73 lbl_5.Caption := '(Insert a Path relative to the CD-Root-Dir!)';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
74 end
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
75 else
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
76 begin // German
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
77 form_editor_as.Caption := 'Autorun Optionen';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
78 btn_BrowseIcon.Caption := 'Durchsuchen';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
79 btn_BrowseCDRoot.Caption := 'Durchsuchen';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
80 lbl_1.Caption := 'Autorun-Icon der CD';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
81 lbl_2.Caption := 'Ordner in den die Dateien kopiert werden';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
82 lbl_3.Caption := '(Entspricht dem CD-Grund-Verzeichnis)';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
83 btn_cancel.Caption := 'Abbrechen';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
84 btn_apply.Caption := 'Übernehmen';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
85 btn_restore.Caption := 'CDAR-Icon';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
86 lbl_4.Caption := 'Datei, die von CDAR gestartet werden soll';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
87 lbl_5.Caption := '(Pfad relativ zum CD-Grund-Verzeichnis)';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
88 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
89
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
90 // set standard path in OpenDialog
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
91 opendialog1.InitialDir := extractfilepath(paramstr(0));
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
92 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
93 //------------------------------------------------------------------------------ form show
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
94 procedure Tform_Editor_as.FormShow(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
95 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
96 // disable drag'n'drop
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
97 form_editor.draggingstatus := 3;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
98 // disable menu
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
99 form_editor.mnu_Tutorial.enabled := false;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
100 form_editor.mnu_WelcomeScreen.Enabled := false;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
101 form_editor.mnu_Autorun.Enabled := false;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
102 form_editor.mnu_CreateAR.enabled := false;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
103 form_editor.mnu_Sprache.enabled := false;
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 // init
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
106 tbx_IconPath.text := form_Editor.PfadIcon_alt;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
107 if form_Editor.PfadIcon_alt = '' then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
108 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
109 img_IconCDAR.show;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
110 img_icon.Hide;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
111 end
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
112 else
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 img_IconCDAR.hide;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
115 img_Icon.Show;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
116 img_icon.Picture.LoadFromFile(form_Editor.PfadIcon_alt);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
117 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
118 tbx_CDRootPath.text := form_Editor.CDRoot_alt;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
119 tbx_StartsFD.Text := form_Editor.StartsFD_alt;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
120 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
121 //------------------------------------------------------------------------------ form close
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
122 procedure Tform_Editor_as.FormClose(Sender: TObject;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
123 var Action: TCloseAction);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
124 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
125 // enable drag'n'drop
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
126 form_editor.draggingstatus := 0;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
127 // enable menu
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
128 form_editor.mnu_Tutorial.enabled := true;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
129 form_editor.mnu_WelcomeScreen.Enabled := true;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
130 form_editor.mnu_Autorun.Enabled := true;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
131 form_editor.mnu_CreateAR.enabled := true;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
132 form_editor.mnu_Sprache.enabled := true;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
133 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
134
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
135 //#############################################################################################
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
136
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
137 //------------------------------------------------------------------------------ browse icon
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
138 procedure Tform_Editor_as.btn_BrowseIconClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
139 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
140 if opendialog1.Execute then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
141 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
142 tbx_IconPath.Text := opendialog1.FileName;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
143 // load picture
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
144 img_Icon.Picture.LoadFromFile(tbx_IconPath.text);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
145 // show picture
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
146 img_IconCDAR.hide;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
147 img_Icon.Show;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
148 end;
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 //------------------------------------------------------------------------------ restore icon
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
151 procedure Tform_Editor_as.btn_restoreClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
152 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
153 img_IconCDAR.show;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
154 img_icon.Hide;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
155 tbx_IconPath.Text := '';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
156 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
157
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
158 //------------------------------------------------------------------------------ browse CD-root
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
159 procedure Tform_Editor_as.btn_BrowseCDRootClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
160 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
161 application.CreateForm(tform_editor_as_browsedir, form_editor_as_browsedir);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
162 form_editor_as_browsedir.show;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
163 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
164
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
165 //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
166
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
167 //------------------------------------------------------------------------------ change CD-root
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
168 procedure Tform_Editor_as.tbx_CDRootPathChange(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
169 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
170 // format check
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
171 Warnings;
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 //------------------------------------------------------------------------------ change startsFD
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_as.tbx_StartsFDChange(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
175 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
176 // format check
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
177 Warnings;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
178 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
179
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
180 //+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
181
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
182 //------------------------------------------------------------------------------ apply
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
183 procedure Tform_Editor_as.btn_applyClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
184 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
185 form_Editor.PfadIcon_alt := tbx_IconPath.text;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
186
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
187 if copy(tbx_CDRootPath.text, length(tbx_CDRootpath.text), 1) <> '\' then
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 form_Editor.CDRoot_alt := tbx_CDRootPath.Text + '\';
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
190 end
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
191 else
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
192 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
193 form_Editor.CDRoot_alt := tbx_CDRootPath.Text;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
194 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
195
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
196 form_Editor.StartsFD_alt := tbx_startsFD.text;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
197
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
198 // close
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
199 form_editor_as.Close;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
200 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
201 //------------------------------------------------------------------------------ cancel
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
202 procedure Tform_Editor_as.btn_cancelClick(Sender: TObject);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
203 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
204 // close
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
205 form_editor_as.Close;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
206 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
207
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
208 //#############################################################################################
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
209
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
210 //------------------------------------------------------------------------------ warnings
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
211 procedure Warnings();
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
212 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
213 with form_Editor_as do
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
214 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
215 tbx_Warnings.lines.clear;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
216
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
217 if copy(tbx_CDRootPath.text, 2, 2) <> ':\' then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
218 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
219 btn_apply.Enabled := false;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
220 tbx_Warnings.Show;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
221 tbx_Warnings.Lines.Add('2nd Path must be ABSOLUTE');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
222 if pos(':', tbx_StartsFD.text) <> 0 then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
223 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
224 tbx_Warnings.Lines.Add('3rd Path must be RELATIVE');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
225 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
226 end
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
227 else
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
228 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
229 if pos(':', tbx_StartsFD.text) <> 0 then
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
230 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
231 btn_apply.Enabled := false;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
232 tbx_Warnings.Show;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
233 tbx_Warnings.Lines.Add('3rd Path must be RELATIVE');
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
234 end
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
235 else
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
236 begin
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
237 btn_apply.Enabled := true;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
238 tbx_Warnings.hide;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
239 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
240 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
241 tbx_Warnings.Text := copy(tbx_Warnings.text, 1, length(tbx_Warnings.text)-2);
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
242 end;
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
243 end;//--------------------------------------------------------------------------
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
244
ef71164288c1 begin of using hg for cdar
"Meillo r e t u r n s <meillo@marmaro.de>"
parents:
diff changeset
245 end.//#########################################################################################