Avoid RTE 219 if compiled with -CR, by using correct common ancestor

git-svn-id: trunk@27305 -
This commit is contained in:
pierre 2014-03-27 22:55:45 +00:00
parent 9fb4db7a2f
commit 9621e43bff

View File

@ -78,7 +78,7 @@ begin
hcCalcWindow : S:=PCalculator(P)^.GetTitle(MaxLen);
hcBrowserWindow: S:=PBrowserWindow(P)^.GetTitle(MaxLen);
hcCompilerMessagesWindow,
hcMessagesWindow:S:=PMessagesWindow(P)^.GetTitle(MaxLen);
hcMessagesWindow:S:=PFPWindow(P)^.GetTitle(MaxLen);
hcGDBWindow,
hcDisassemblyWindow,
hcWatchesWindow,