ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/current/Tools/MetaEditor.pas
(Generate patch)

Comparing oup/current/Tools/MetaEditor.pas (file contents):
Revision 241 by alloc, Tue Jul 17 22:27:16 2007 UTC vs.
Revision 244 by alloc, Fri Aug 17 21:09:51 2007 UTC

# Line 100 | Line 100 | var
100    i: Integer;
101    data: TNodeData;
102    node: PVirtualNode;
103 +  basenode: PVirtualNode;
104   begin
105    if FConnectionID <> TreeElem.ConnectionID then
106      SelectConnection(TreeElem.ConnectionID);
107    root := TreeElem;
108    VST.Clear;
109    VST.BeginUpdate;
110 +  data.Field := root;
111 +  basenode := AddVSTEntry(VST, nil, data);
112    for i := 0 to root.ChildCount - 1 do
113    begin
114      data.Field := root.Child[i];
115 <    node := AddVSTEntry(VST, nil, data);
115 >    node := AddVSTEntry(VST, basenode, data);
116      if data.Field.ChildCount > 0 then
117        VST.HasChildren[node] := True;
118    end;
# Line 166 | Line 169 | begin
169        ffile.Opened := True;
170      end;
171   //*******************************************************************
172 <    fs := TFileStream.Create('C:\Spiele\Oni\GameDataFolder\tests\'+IntToStr(ffile.FileInfo.ID)+'_recreated.hex', fmCreate);
173 <    ffile.ReCreateFile(fs);
174 <    fs.Free;
172 > //    fs := TFileStream.Create('C:\Spiele\Oni\GameDataFolder\tests\'+IntToStr(ffile.FileInfo.ID)+'_recreated.hex', fmCreate);
173 > //    ffile.ReCreateFile(fs);
174 > //    fs.Free;
175   //*******************************************************************
176    end;
177   end;
# Line 263 | Line 266 | var
266  
267    i: Integer;
268    links: TStrings;
269 +  ifile: TFile;
270   begin
271    inherited;
272    if Assigned(Node) then
# Line 278 | Line 282 | begin
282            2: HintText := '';
283          end;
284        end;
285 <      if (data.Field is _MetaTypes.TDatLink) and (Column = 2) then
285 >      if data.Field is TFile then
286        begin
287 <        links := nil;
288 <        links := ConManager.Connection[FConnectionID].GetFilesList(_MetaTypes.TDatLink(data.Field).PosExts, '', False, ST_NameAsc);
289 <        HintText := IntToStr(links.Count);
290 <        for i := 0 to Min(links.Count - 1, 99) do
291 <        begin
292 <          if (i mod 5) = 0 then
293 <            HintText := HintText + #13+#10;
290 <          HintText := HintText + links.Strings[i] + '       ';
287 >        ifile := TFile(data.Field);
288 >        case Column of
289 >          0: HintText :=
290 >            'FileID:    ' + IntToStr(ifile.FileInfo.ID) + #13#10 +
291 >            'Name:      ' + ifile.FileInfo.Name + #13#10 +
292 >            'Extension: ' + ifile.FileInfo.Extension + #13#10 +
293 >            '.dat-size: ' + IntToStr(ifile.FileInfo.Size) + #13#10;
294          end;
295        end;
296      end;

Diff Legend

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