Changeset 84


Ignore:
Timestamp:
Jan 14, 2007, 2:32:17 AM (15 years ago)
Author:
alloc
Message:
 
Location:
oup/current
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • oup/current/Main.pas

    r83 r84  
    229229  begin
    230230    if MDITab.MDIChildren[tabIndex] is TForm_ToolTemplate then
     231    begin
    231232      hint := 'Window: ' + MDITab.MDIChildren[tabIndex].Caption + #13+#10 +
    232             'Selected File: ' +
    233             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
    234239    else
    235240      hint := 'Window: ' + MDITab.MDIChildren[tabIndex].Caption;
Note: See TracChangeset for help on using the changeset viewer.