Changeset 243 for oup/current/Tools

Timestamp:

Aug 10, 2007, 7:26:03 PM (17 years ago)

Author:

alloc

Message:

 

Location:

oup/current/Tools

Files:

• MetaEditor.dfm (modified) (1 diff)
• MetaEditor.pas (modified) (2 diffs)

oup/current/Tools/MetaEditor.dfm

@@ -85 +85 @@
       object tab_hex: TTabSheet
         Caption = 'Binary Edit'
+        ExplicitLeft = 0
+        ExplicitTop = 0
+        ExplicitWidth = 0
+        ExplicitHeight = 0
         object splitter_hex_1: TSplitter
           Left = 0

oup/current/Tools/MetaEditor.pas

@@ -264 +264 @@
   i: Integer;
   links: TStrings;
+  ifile: TFile;
 begin
   inherited;
@@ -279 +280 @@
         end;
       end;
-      if (data.Field is _MetaTypes.TDatLink) and (Column = 2) then
+      if data.Field is TFile then
       begin
-        links := nil;
-        links := ConManager.Connection[FConnectionID].GetFilesList(_MetaTypes.TDatLink(data.Field).PosExts, '', False, ST_NameAsc);
-        HintText := IntToStr(links.Count);
-        for i := 0 to Min(links.Count - 1, 99) do
-        begin
-          if (i mod 5) = 0 then
-            HintText := HintText + #13+#10;
-          HintText := HintText + links.Strings[i] + '       ';
+        ifile := TFile(data.Field);
+        case Column of
+          0: HintText :=
+            'FileID:    ' + IntToStr(ifile.FileInfo.ID) + #13#10 +
+            'Name:      ' + ifile.FileInfo.Name + #13#10 +
+            'Extension: ' + ifile.FileInfo.Extension + #13#10 +
+            '.dat-size: ' + IntToStr(ifile.FileInfo.Size) + #13#10;
         end;
       end;