Changeset 84 for oup

Timestamp:

Jan 14, 2007, 2:32:17 AM (18 years ago)

Author:

alloc

Message:

 

Location:

oup/current

Files:

• Main.pas (modified) (1 diff)
• exe/OniUnPacker.exe (modified) ( previous)

oup/current/Main.pas

@@ -229 +229 @@
   begin
     if MDITab.MDIChildren[tabIndex] is TForm_ToolTemplate then
+    begin
       hint := 'Window: ' + MDITab.MDIChildren[tabIndex].Caption + #13+#10 +
-            'Selected File: ' +
-            TForm_ToolTemplate(MDITab.MDIChildren[tabIndex]).SelectedFile.FileName
+            'Selected File: ';
+      if TForm_ToolTemplate(MDITab.MDIChildren[tabIndex]).SelectedFile.ID >= 0 then
+        hint := hint + TForm_ToolTemplate(MDITab.MDIChildren[tabIndex]).SelectedFile.FileName
+      else
+        hint := hint + 'None';
+    end
     else
       hint := 'Window: ' + MDITab.MDIChildren[tabIndex].Caption;