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

MG: added editor option Mouse Links

Browse Source 
git-svn-id: trunk@2981 -
This commit is contained in:
lazarus 2002-08-18 08:56:45 +00:00
parent 4aef42ec92
commit 863770b9e6
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/uniteditor.pp
View File

@ -1332,7 +1332,10 @@ Begin
Result:=true; Result:=true;
SetSyntaxHighlighterType(fSyntaxHighlighterType); SetSyntaxHighlighterType(fSyntaxHighlighterType);
EditorOpts.GetSynEditSettings(FEditor); EditorOpts.GetSynEditSettings(FEditor);
FEditor.Options:=FEditor.Options+[eoShowCtrlMouseLinks]; if EditorOpts.CtrlMouseLinks then
FEditor.Options:=FEditor.Options+[eoShowCtrlMouseLinks]
else
FEditor.Options:=FEditor.Options-[eoShowCtrlMouseLinks];
end; end;
Procedure TSourceEditor.ccAddMessage(Texts : String); Procedure TSourceEditor.ccAddMessage(Texts : String);