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 242 by alloc, Tue Jul 17 22:28:01 2007 UTC vs.
Revision 243 by alloc, Fri Aug 10 17:26:03 2007 UTC

# 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)