paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 05:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: menu search set free bookmark, bug #15829

Browse Source 
git-svn-id: trunk@23762 -
This commit is contained in:
mattias 2010-02-22 22:46:11 +00:00
parent e58601b8f8
commit 1eca478fdd
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/main.pp
View File

@ -251,6 +251,7 @@ type
procedure mnuOpenFileAtCursorClicked(Sender: TObject);
procedure mnuGotoIncludeDirectiveClicked(Sender: TObject);
procedure mnuSearchProcedureList(Sender: TObject);
procedure mnuSetFreeBookmark(Sender: TObject);
// view menu
procedure mnuViewInspectorClicked(Sender: TObject);
@ -2357,6 +2358,7 @@ begin
itmSearchRenameIdentifier.OnClick:=@mnuSearchRenameIdentifierClicked;
itmGotoIncludeDirective.OnClick:=@mnuGotoIncludeDirectiveClicked;
itmSearchProcedureList.OnClick := @mnuSearchProcedureList;
itmSetFreeBookmark.OnClick := @mnuSetFreeBookmark;
end;
end;
@ -2686,6 +2688,11 @@ begin
ProcedureList.ExecuteProcedureList(Sender);
end;
procedure TMainIDE.mnuSetFreeBookmark(Sender: TObject);
begin
SourceNotebook.BookMarkSetFree;
end;
procedure TMainIDE.mnuSaveClicked(Sender: TObject);
begin
if SourceNoteBook.PageIndex < 0 then exit;

2
ide/sourceeditor.pp
View File

@ -495,7 +495,6 @@ type
procedure BookmarkGotoNext(GoForward: boolean);
procedure BookMarkGotoClicked(Sender: TObject);
procedure BookMarkSet(Value: Integer; Toggle: boolean = false);
procedure BookMarkSetFree;// set a free bookmark
procedure BookMarkToggleClicked(Sender: TObject);
procedure BookmarkSetFreeClicked(Sender: TObject);
procedure EditorPropertiesClicked(Sender: TObject);
@ -533,6 +532,7 @@ type
procedure SrcEditMenuAnotherViewClicked(Sender: TObject);
{$ENDIF}
public
procedure BookMarkSetFree;// set a free bookmark
procedure BookMarkNextClicked(Sender: TObject);
procedure BookMarkPrevClicked(Sender: TObject);
procedure DeleteBreakpointClicked(Sender: TObject);