paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 13:39:24 +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); Procedure TSourceNotebook.BookMarkSet(Value: Integer);
var var
ActEdit, AnEdit: TSourceEditor; ActEdit, AnEdit: TSourceEditor;
Cmd: TIDEMenuCommand;
Begin Begin
ActEdit:=GetActiveSE; ActEdit:=GetActiveSE;
@ -5542,8 +5543,8 @@ Begin
end; end;
ActEdit.EditorComponent.SetBookMark(Value, ActEdit.EditorComponent.SetBookMark(Value,
ActEdit.EditorComponent.CaretX,ActEdit.EditorComponent.CaretY); ActEdit.EditorComponent.CaretX,ActEdit.EditorComponent.CaretY);
(SrcEditSubMenuSetBookmarks[Value] as TIDEMenuCommand).Checked := true; Cmd:=SrcEditSubMenuSetBookmarks[Value] as TIDEMenuCommand;
TIDEMenuCommand(SrcEditSubMenuGotoBookmarks[Value]).Checked:=true; Cmd.Checked := true;
if Project1<>nil then if Project1<>nil then
Project1.SessionModified:=true; Project1.SessionModified:=true;
end; end;