ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/_old_/Tools/Template.pas

Comparing oup/current/Tools/Template.pas (file contents):
Revision 83 by alloc, Sun Jan 14 01:30:12 2007 UTC vs.
Revision 86 by alloc, Sun Jan 14 20:19:08 2007 UTC

#	Line 9 | Line 9 | uses
9
10		type
11		TNewFileSelectedEvent = procedure(fileinfo: TFileInfo) of object;
12	+	TNewConnectionEvent = procedure(connection: TOniData) of object;
13
14		TForm_ToolTemplate = class(TForm)
15		panel_files: TPanel;
#	Line 35 | Line 36 | type
36		btn_sort_ext_desc: TSpeedButton;
37		Label1: TLabel;
38		Label2: TLabel;
39	+	Label3: TLabel;
40	+	combo_connection: TComboBox;
41	+	Bevel1: TBevel;
42		procedure RecreateList;
43	+	procedure UpdateList;
44	+	procedure RecreateExtList;
45		procedure LoadFileNames;
46		procedure SelectFileName(filename: String);
47		procedure SelectFileID(id: Integer);
#	Line 55 | Line 61 | type
61		procedure filepopupPopup(Sender: TObject);
62		procedure btn_sortClick(Sender: TObject);
63		procedure FormActivate(Sender: TObject);
64	+	procedure combo_connectionChange(Sender: TObject);
65		private
66		FSortBy: TSortType;
67		FOnNewFileSelected: TNewFileSelectedEvent;
68	+	FOnNewConnection: TNewConnectionEvent;
69		FAllowedExts: String;
70		FAllowMultiSelect: Boolean;
71		FSelectedFile: TFileInfo;
72	+	FConnection: TOniData;
73		procedure SetAllowedExts(exts: String);
74		procedure SetMultiSelect(allow: Boolean);
75		public
#	Line 68 | Line 77 | type
77		procedure SetFileFilters(pattern, extension: String; zerobytes: Boolean);
78		published
79		property OnNewFileSelected: TNewFileSelectedEvent read FOnNewFileSelected write FOnNewFileSelected;
80	+	property OnNewConnection: TNewConnectionEvent read FOnNewConnection write FOnNewConnection;
81		property AllowedExts: String read FAllowedExts write SetAllowedExts;
82		property AllowMultiSelect: Boolean read FAllowMultiSelect write SetMultiSelect;
83		property SelectedFile: TFileInfo read FSelectedFile;
84	+	property Connection: TOniData read FConnection;
85		end;
86
87		var
#	Line 82 | Line 93 | implementation
93		uses Main, Exporters;
94
95
96	+	procedure TForm_ToolTemplate.UpdateList;
97	+	var
98	+	i: Integer;
99	+	fn, datatype, boxstring: String;
100	+	level: Integer;
101	+	oldcon: String;
102	+	begin
103	+	oldcon := combo_connection.Items.Strings[combo_connection.ItemIndex];
104	+	combo_connection.Items.Clear;
105	+	for i := 0 to High(DataConnections) do
106	+	begin
107	+	level := DataConnections[i].LevelInfo.LevelNumber;
108	+	fn := ExtractFileName(DataConnections[i].FileName);
109	+	if DataConnections[i].Backend = ODB_Dat then
110	+	datatype := 'ONI-.dat: '
111	+	else if DataConnections[i].Backend = ODB_ADB then
112	+	datatype := 'OUP-DB: '
113	+	else
114	+	datatype := 'Unknown: ';
115	+	boxstring := datatype + fn + ' (Level: ' + IntToStr(level) + ')';
116	+	combo_connection.Items.Add(boxstring);
117	+	if oldcon = boxstring then
118	+	combo_connection.ItemIndex := combo_connection.Items.Count - 1;
119	+	end;
120	+	end;
121	+
122		procedure TForm_ToolTemplate.RecreateList;
123		var
124	+	i: Integer;
125	+	fn, datatype: String;
126	+	level: Integer;
127	+	begin
128	+	combo_connection.Items.Clear;
129	+	for i := 0 to High(DataConnections) do
130	+	begin
131	+	level := DataConnections[i].LevelInfo.LevelNumber;
132	+	fn := ExtractFileName(DataConnections[i].FileName);
133	+	if DataConnections[i].Backend = ODB_Dat then
134	+	datatype := 'ONI-.dat: '
135	+	else if DataConnections[i].Backend = ODB_ADB then
136	+	datatype := 'OUP-DB: '
137	+	else
138	+	datatype := 'Unknown: ';
139	+	combo_connection.Items.Add(datatype + fn + ' (Level: ' + IntToStr(level) + ')');
140	+	end;
141	+	FConnection := DataConnections[0];
142	+	combo_connection.ItemIndex := 0;
143	+	combo_connectionChange(Self);
144	+	end;
145	+
146	+	procedure TForm_ToolTemplate.RecreateExtList;
147	+	var
148		i:    LongWord;
149		exts: TStringArray;
150		begin
151		combo_extension.Items.Clear;
152		combo_extension.Items.Add('_All files_ (' +
153	<	IntToStr(OniDataConnection.GetFilesCount) + ')');
154	<	exts := OniDataConnection.GetExtensionsList;
153	>	IntToStr(FConnection.GetFilesCount) + ')');
154	>	exts := FConnection.GetExtensionsList;
155		for i := 0 to High(exts) do
156		if Length(FAllowedExts) > 0 then
157		begin
#	Line 126 | Line 187 | begin
187		else
188		Extension := '';
189
190	<	files := OniDataConnection.GetFilesList(extension, pattern, no_zero_bytes, FSortBy);
190	>	files := FConnection.GetFilesList(extension, pattern, no_zero_bytes, FSortBy);
191
192		filelist.Visible := False;
193		filelist.Items.Clear;
#	Line 142 | Line 203 | var
203		id: Integer;
204		ext: String;
205		begin
206	<	id := OniDataConnection.ExtractFileID(filelist.Items.Strings[filelist.ItemIndex]);
206	>	id := FConnection.ExtractFileID(filelist.Items.Strings[filelist.ItemIndex]);
207		ext := RightStr(filelist.Items.Strings[filelist.ItemIndex], 4);
208		exportd.Filter := 'Files of matching extension (*.' + ext + ')|*.' + ext + '|All files|*.*';
209		exportd.DefaultExt := ext;
210		if exportd.Execute then
211	<	ExportDatFile(id, exportd.FileName);
211	>	ExportDatFile(FConnection, id, exportd.FileName);
212		end;
213
214		procedure TForm_ToolTemplate.popup_importClick(Sender: TObject);
#	Line 157 | Line 218 | var
218		fs: TFileStream;
219		data: TData;
220		begin
221	<	id := OniDataConnection.ExtractFileID(filelist.Items.Strings[filelist.ItemIndex]);
222	<	finfo := OniDataConnection.GetFileInfo(id);
221	>	id := FConnection.ExtractFileID(filelist.Items.Strings[filelist.ItemIndex]);
222	>	finfo := FConnection.GetFileInfo(id);
223
224		importd.Filter := 'Files of matching extension (*.' + finfo.Extension + ')|*.' +
225		finfo.Extension + '|All files|*.*';
#	Line 173 | Line 234 | begin
234		else begin
235		SetLength(data, fs.Size);
236		fs.Read(data[0], fs.Size);
237	<	OniDataConnection.UpdateDatFile(id, data);
237	>	FConnection.UpdateDatFile(id, data);
238		Self.listClick(Self);
239		end;
240		fs.Free;
#	Line 186 | Line 247 | var
247		id: Integer;
248		begin
249		sender_name := TComponent(Sender).Name;
250	<	id := OniDataConnection.ExtractFileID(filelist.Items.Strings[filelist.ItemIndex]);
250	>	id := FConnection.ExtractFileID(filelist.Items.Strings[filelist.ItemIndex]);
251		context := MidStr(sender_name, Pos('_', sender_name) + 1, Length(sender_name) - Pos('_', sender_name));
252		Form_Main.open_child(context, id);
253		end;
254
255	+	procedure TForm_ToolTemplate.combo_connectionChange(Sender: TObject);
256	+	var
257	+	name: String;
258	+	nstart, nend: Integer;
259	+	i: Integer;
260	+	begin
261	+	if combo_connection.ItemIndex >= 0 then
262	+	begin
263	+	name := combo_connection.Items.Strings[combo_connection.ItemIndex];
264	+	nstart := Pos(' ', name) + 1;
265	+	nend := Pos('(', name) - 1;
266	+	name := MidStr(name, nstart, nend - nstart);
267	+
268	+	for i := 0 to High(DataConnections) do
269	+	begin
270	+	if ExtractFileName(DataConnections[i].FileName) = name then
271	+	begin
272	+	FConnection := DataConnections[i];
273	+	Break;
274	+	end;
275	+	end;
276	+	if i = Length(DataConnections) then
277	+	FConnection := nil;
278	+
279	+	RecreateExtList;
280	+	if Assigned(FOnNewConnection) then
281	+	FOnNewConnection(FConnection);
282	+	end;
283	+	end;
284	+
285		procedure TForm_ToolTemplate.combo_extensionClick(Sender: TObject);
286		begin
287		LoadFileNames;
#	Line 204 | Line 295 | var
295		begin
296		inherited;
297		RecreateList;
298	+	FConnection := nil;
299		FSelectedFile.ID := -1;
300		FSelectedFile.FileName := '';
301		FSelectedFile.FileNameHex := '';
#	Line 269 | Line 361 | var
361		begin
362		if filelist.ItemIndex > -1 then
363		begin
364	<	fileid := OniDataConnection.ExtractFileID(
364	>	fileid := FConnection.ExtractFileID(
365		filelist.Items.Strings[filelist.ItemIndex]);
366	<	FSelectedFile := OniDataConnection.GetFileInfo(fileid);
366	>	FSelectedFile := FConnection.GetFileInfo(fileid);
367		if Assigned(FOnNewFileSelected) then
368		FOnNewFileSelected(FSelectedFile);
369		end;
#	Line 297 | Line 389 | begin
389		filelist.ItemIndex := -1;
390		if filelist.Items.Count > 0 then
391		for i := 0 to filelist.Items.Count - 1 do
392	<	if OniDataConnection.ExtractFileID(filelist.Items.Strings[i]) = id then
392	>	if FConnection.ExtractFileID(filelist.Items.Strings[i]) = id then
393		begin
394		filelist.ItemIndex := i;
395		Break;
#	Line 320 | Line 412 | end;
412		procedure TForm_ToolTemplate.SetAllowedExts(exts: String);
413		begin
414		FAllowedExts := exts;
415	<	RecreateList;
415	>	RecreateExtList;
416		end;
417
418		procedure TForm_ToolTemplate.SetFileFilters(pattern, extension: String;
#	Line 367 | Line 459 | begin
459		Self.Width  := 260;
460		Self.Height := 300;
461		FOnNewFileSelected := nil;
462	+	FOnNewConnection := nil;
463		FAllowedExts := '';
464		FAllowMultiSelect := False;
465		end;

Diff Legend

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