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

IDE: remove useless code in SE popup menu update for bookmarks, disable undefined bookmarks in GoTo section

Browse Source 
git-svn-id: trunk@35775 -
This commit is contained in:
juha 2012-03-06 16:54:12 +00:00
parent dfc80e1895
commit 1c146e5078
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/sourceeditor.pp
View File

@ -5440,7 +5440,7 @@ var
end;
var
MarkSrcEdit, se: TSourceEditor;
se: TSourceEditor;
BookMarkID, BookMarkX, BookMarkY: integer;
MarkDesc, FPDocSrc, ShortFileName: String;
MarkMenuItem: TIDEMenuItem;
@ -5523,26 +5523,24 @@ begin
// bookmarks
for BookMarkID:=0 to 9 do begin
MarkDesc:=' '+IntToStr(BookMarkID);
MarkSrcEdit := nil;
SelAvail:=False;
i := 0;
while i < Manager.SourceEditorCount do begin
se:=Manager.SourceEditors[i];
if se.EditorComponent.GetBookMark(BookMarkID,BookMarkX,BookMarkY) then
begin
MarkDesc:=MarkDesc+': '+se.PageName+' ('+IntToStr(BookMarkY)+','+IntToStr(BookMarkX)+')';
SelAvail:=True;
break;
end;
inc(i);
end;
// goto book mark item
MarkMenuItem:=SrcEditSubMenuGotoBookmarks[BookMarkID];
if MarkMenuItem is TIDEMenuCommand then
TIDEMenuCommand(MarkMenuItem).Checked:=(MarkSrcEdit<>nil);
MarkMenuItem.Caption:=uemBookmarkN+MarkDesc;
MarkMenuItem.Enabled:=SelAvail;
// set book mark item
MarkMenuItem:=SrcEditSubMenuToggleBookmarks[BookMarkID];
if MarkMenuItem is TIDEMenuCommand then
TIDEMenuCommand(MarkMenuItem).Checked:=(MarkSrcEdit<>nil);
MarkMenuItem.Caption:=uemToggleBookmark+MarkDesc;
end;