ViewVC Help

View File | Revision Log | View Changeset | Root Listing

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

Comparing oup/current/Tools/MetaEditor.pas (file contents):
Revision 241 by alloc, Tue Jul 17 22:27:16 2007 UTC vs.
Revision 243 by alloc, Fri Aug 10 17:26:03 2007 UTC

#	Line 166 | Line 166 | begin
166		ffile.Opened := True;
167		end;
168		//*******************************************************************
169	<	fs := TFileStream.Create('C:\Spiele\Oni\GameDataFolder\tests\'+IntToStr(ffile.FileInfo.ID)+'_recreated.hex', fmCreate);
170	<	ffile.ReCreateFile(fs);
171	<	fs.Free;
169	>	//    fs := TFileStream.Create('C:\Spiele\Oni\GameDataFolder\tests\'+IntToStr(ffile.FileInfo.ID)+'_recreated.hex', fmCreate);
170	>	//    ffile.ReCreateFile(fs);
171	>	//    fs.Free;
172		//*******************************************************************
173		end;
174		end;
#	Line 263 | Line 263 | var
263
264		i: Integer;
265		links: TStrings;
266	+	ifile: TFile;
267		begin
268		inherited;
269		if Assigned(Node) then
#	Line 278 | Line 279 | begin
279		2: HintText := '';
280		end;
281		end;
282	<	if (data.Field is _MetaTypes.TDatLink) and (Column = 2) then
282	>	if data.Field is TFile then
283		begin
284	<	links := nil;
285	<	links := ConManager.Connection[FConnectionID].GetFilesList(_MetaTypes.TDatLink(data.Field).PosExts, '', False, ST_NameAsc);
286	<	HintText := IntToStr(links.Count);
287	<	for i := 0 to Min(links.Count - 1, 99) do
288	<	begin
289	<	if (i mod 5) = 0 then
290	<	HintText := HintText + #13+#10;
290	<	HintText := HintText + links.Strings[i] + '       ';
284	>	ifile := TFile(data.Field);
285	>	case Column of
286	>	0: HintText :=
287	>	'FileID:    ' + IntToStr(ifile.FileInfo.ID) + #13#10 +
288	>	'Name:      ' + ifile.FileInfo.Name + #13#10 +
289	>	'Extension: ' + ifile.FileInfo.Extension + #13#10 +
290	>	'.dat-size: ' + IntToStr(ifile.FileInfo.Size) + #13#10;
291		end;
292		end;
293		end;

Diff Legend

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