ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/Tools/Extractor.pas

Comparing oup/current/Tools/Extractor.pas (file contents):
Revision 109 by alloc, Wed Feb 21 03:12:33 2007 UTC vs.
Revision 321 by alloc, Wed May 6 13:47:23 2009 UTC

#	Line 1 | Line 1
1		unit Extractor;
2	+
3		interface
4	+
5		uses
6		Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
7	<	Dialogs, Template, StdCtrls, ExtCtrls, ComCtrls, Menus, Buttons, StrUtils;
7	>	Dialogs, _TemplateFileList, Menus, StdCtrls, ExtCtrls, Buttons, ComCtrls,
8	>	VirtualTrees;
9
10		type
11	<	TForm_Extractor = class(TForm_ToolTemplate)
11	>	TForm_Extractor = class(TForm_TemplateFileList)
12		group_extract: TGroupBox;
13	+	label_export_sel: TLabel;
14	+	label_path: TLabel;
15		check_dat: TCheckBox;
16		check_raw: TCheckBox;
17		check_convert: TCheckBox;
18		radio_selected: TRadioButton;
14	–	label_export_sel: TLabel;
19		radio_all: TRadioButton;
16	–	label_path: TLabel;
20		edit_path: TEdit;
21		btn_path: TButton;
22		btn_export: TButton;
#	Line 22 | Line 25 | type
25		lbl_estimated: TLabel;
26		progress: TProgressBar;
27		btn_abort: TButton;
25	–	procedure FormCreate(Sender: TObject);
28		procedure btn_abortClick(Sender: TObject);
29	<	procedure btn_pathClick(Sender: TObject);
29	>	procedure FormCreate(Sender: TObject);
30		procedure btn_exportClick(Sender: TObject);
31	+	procedure btn_pathClick(Sender: TObject);
32		private
33		public
34		end;
35
33	–	var
34	–	Form_Extractor: TForm_Extractor;
36
37		implementation
38		{$R *.dfm}
39	<	uses Main, Functions, Data, ConnectionManager, FolderBrowser, Exporters;
39	>	uses
40	>	Data, FolderBrowser, Exporters, _TemplateFile, ConnectionManager, Functions,
41	>	StrUtils;
42
43
41	–	procedure TForm_Extractor.FormCreate(Sender: TObject);
42	–	begin
43	–	inherited;
44	–	Self.AllowMultiSelect := True;
45	–	edit_path.Text := AppSettings.ExtractPath;
46	–	end;
44
45		procedure TForm_Extractor.btn_abortClick(Sender: TObject);
46		begin
47		ShowMessage('X');
48		end;
49
53	–	procedure TForm_Extractor.btn_pathClick(Sender: TObject);
54	–	var
55	–	fb: TFolderBrowser;
56	–	begin
57	–	inherited;
58	–
59	–	fb := TFolderBrowser.Create(Handle, 'Please select a folder where you want ' +
60	–	'the files to be stored...', edit_path.Text, False, True);
61	–	if fb.Execute then
62	–	begin
63	–	edit_path.Text := fb.SelectedItem;
64	–	AppSettings.ExtractPath := edit_path.Text;
65	–	end;
66	–	fb.Free;
67	–	end;
68	–
50		procedure TForm_Extractor.btn_exportClick(Sender: TObject);
51		var
52		begintime: Double;
53	<	files:     LongWord;
54	<	i, done:   LongWord;
53	>	files:     Integer;
54	>	i, done:   Integer;
55		selonly:   Boolean;
56	<	fileid:    LongWord;
56	>	fileid:    Integer;
57		filename:  String;
58		path:      String;
59		begin
#	Line 128 | Line 109 | begin
109		group_progress.Visible := False;
110		end;
111
112	+	procedure TForm_Extractor.btn_pathClick(Sender: TObject);
113	+	var
114	+	fb: TFolderBrowser;
115	+	begin
116	+	inherited;
117	+
118	+	fb := TFolderBrowser.Create(Handle, 'Please select a folder where you want ' +
119	+	'the files to be stored...', edit_path.Text, False, True);
120	+	if fb.Execute then
121	+	begin
122	+	edit_path.Text := fb.SelectedItem;
123	+	AppSettings.ExtractPath := edit_path.Text;
124	+	end;
125	+	fb.Free;
126	+	end;
127	+
128	+	procedure TForm_Extractor.FormCreate(Sender: TObject);
129	+	begin
130	+	inherited;
131	+	Self.AllowMultiSelect := True;
132	+	edit_path.Text := AppSettings.ExtractPath;
133	+	end;
134
135		begin
136		AddToolListEntry('extractor', 'Extractor', '');
137	<	end.
137	>	end.
138	>

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)