paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:59:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

HelpDebug local menu item added

Browse Source 
git-svn-id: trunk@6048 -
This commit is contained in:
pierre 2007-01-18 13:59:06 +00:00
parent 30546d4f6a
commit 6bcc26b21b
1 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
ide/fpviews.pas
View File

@ -415,6 +415,7 @@ type
function GetSpecSymbolCount(SpecClass: TSpecSymbolClass): integer; virtual; function GetSpecSymbolCount(SpecClass: TSpecSymbolClass): integer; virtual;
function GetSpecSymbol(SpecClass: TSpecSymbolClass; Index: integer): pstring; virtual; function GetSpecSymbol(SpecClass: TSpecSymbolClass; Index: integer): pstring; virtual;
function GetPalette: PPalette; virtual; function GetPalette: PPalette; virtual;
procedure HandleEvent(var Event: TEvent); virtual;
end; end;
PFPCodeMemo = ^TFPCodeMemo; PFPCodeMemo = ^TFPCodeMemo;
@ -1957,13 +1958,20 @@ function TFPHelpViewer.GetLocalMenu: PMenu;
var M: PMenu; var M: PMenu;
begin begin
M:=NewMenu( M:=NewMenu(
{$ifdef DEBUG}
NewItem(menu_hlplocal_debug,'',kbNoKey,cmHelpDebug,hcHelpDebug,
{$endif DEBUG}
NewItem(menu_hlplocal_contents,'',kbNoKey,cmHelpContents,hcHelpContents, NewItem(menu_hlplocal_contents,'',kbNoKey,cmHelpContents,hcHelpContents,
NewItem(menu_hlplocal_index,menu_key_hlplocal_index,kbShiftF1,cmHelpIndex,hcHelpIndex, NewItem(menu_hlplocal_index,menu_key_hlplocal_index,kbShiftF1,cmHelpIndex,hcHelpIndex,
NewItem(menu_hlplocal_topicsearch,menu_key_hlplocal_topicsearch,kbCtrlF1,cmHelpTopicSearch,hcHelpTopicSearch, NewItem(menu_hlplocal_topicsearch,menu_key_hlplocal_topicsearch,kbCtrlF1,cmHelpTopicSearch,hcHelpTopicSearch,
NewItem(menu_hlplocal_prevtopic,menu_key_hlplocal_prevtopic,kbAltF1,cmHelpPrevTopic,hcHelpPrevTopic, NewItem(menu_hlplocal_prevtopic,menu_key_hlplocal_prevtopic,kbAltF1,cmHelpPrevTopic,hcHelpPrevTopic,
NewLine( NewLine(
NewItem(menu_hlplocal_copy,menu_key_hlplocal_copy,copy_key,cmCopy,hcCopy, NewItem(menu_hlplocal_copy,menu_key_hlplocal_copy,copy_key,cmCopy,hcCopy,
nil))))))); nil)))))))
{$ifdef DEBUG}
)
{$endif DEBUG}
;
GetLocalMenu:=M; GetLocalMenu:=M;
end; end;
@ -4363,6 +4371,25 @@ begin
SetFlags(Flags and not (efPersistentBlocks) or efSyntaxHighlight); SetFlags(Flags and not (efPersistentBlocks) or efSyntaxHighlight);
end; end;
procedure TFPMemo.HandleEvent(var Event: TEvent);
var DontClear: boolean;
S: string;
begin
case Event.What of
evKeyDown :
begin
DontClear:=false;
case Event.KeyCode of
kbEsc:
Message(Owner,evCommand,cmCancel,nil);
else DontClear:=true;
end;
if not DontClear then ClearEvent(Event);
end;
end;
inherited HandleEvent(Event);
end;
function TFPMemo.GetPalette: PPalette; function TFPMemo.GetPalette: PPalette;
const P: string[length(CFPMemo)] = CFPMemo; const P: string[length(CFPMemo)] = CFPMemo;
begin begin