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

Comparing oup/current/Main.pas (file contents):
Revision 83 by alloc, Sun Jan 14 01:30:12 2007 UTC vs.
Revision 84 by alloc, Sun Jan 14 01:32:17 2007 UTC

# Line 228 | Line 228 | begin
228    if tabIndex >= 0 then
229    begin
230      if MDITab.MDIChildren[tabIndex] is TForm_ToolTemplate then
231 +    begin
232        hint := 'Window: ' + MDITab.MDIChildren[tabIndex].Caption + #13+#10 +
233 <            'Selected File: ' +
234 <            TForm_ToolTemplate(MDITab.MDIChildren[tabIndex]).SelectedFile.FileName
233 >            'Selected File: ';
234 >      if TForm_ToolTemplate(MDITab.MDIChildren[tabIndex]).SelectedFile.ID >= 0 then
235 >        hint := hint + TForm_ToolTemplate(MDITab.MDIChildren[tabIndex]).SelectedFile.FileName
236 >      else
237 >        hint := hint + 'None';
238 >    end
239      else
240        hint := 'Window: ' + MDITab.MDIChildren[tabIndex].Caption;
241      if hint <> MDITab.Hint then

Diff Legend

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