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

clean up

Browse Source 
git-svn-id: trunk@17368 -
This commit is contained in:
mattias 2008-11-13 12:10:01 +00:00
parent 372b1436d3
commit e3d9d87059
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/sourceeditor.pp
View File

@ -5533,6 +5533,7 @@ end;
Procedure TSourceNotebook.BookMarkSet(Value: Integer);
var
ActEdit, AnEdit: TSourceEditor;
Cmd: TIDEMenuCommand;
Begin
ActEdit:=GetActiveSE;
@ -5542,8 +5543,8 @@ Begin
end;
ActEdit.EditorComponent.SetBookMark(Value,
ActEdit.EditorComponent.CaretX,ActEdit.EditorComponent.CaretY);
(SrcEditSubMenuSetBookmarks[Value] as TIDEMenuCommand).Checked := true;
TIDEMenuCommand(SrcEditSubMenuGotoBookmarks[Value]).Checked:=true;
Cmd:=SrcEditSubMenuSetBookmarks[Value] as TIDEMenuCommand;
Cmd.Checked := true;
if Project1<>nil then
Project1.SessionModified:=true;
end;