paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 09:30:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Help debug infos added

Browse Source 
git-svn-id: trunk@6046 -
This commit is contained in:
pierre 2007-01-18 13:57:21 +00:00
parent d027efe65e
commit 9ecf3df6a4
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/fphelp.pas
View File

@ -43,6 +43,7 @@ procedure HelpIndex(Keyword: string);
procedure HelpTopicSearch(Editor: PEditor); procedure HelpTopicSearch(Editor: PEditor);
procedure HelpTopic(const S: string); procedure HelpTopic(const S: string);
procedure CloseHelpWindows; procedure CloseHelpWindows;
procedure HelpDebugInfos;
procedure InitHelpSystem; procedure InitHelpSystem;
procedure DoneHelpSystem; procedure DoneHelpSystem;
@ -410,6 +411,12 @@ begin
Message(Application,evCommand,cmUpdate,nil); Message(Application,evCommand,cmUpdate,nil);
end; end;
procedure HelpDebugInfos;
begin
HelpCreateWindow;
HelpWindow^.ShowDebugInfos;
end;
procedure PushStatus(S: string); procedure PushStatus(S: string);
begin begin
if StatusLine=nil then if StatusLine=nil then