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

IDE: source editor using real gutter width, synedit; public GutterWidth property

Browse Source 
git-svn-id: trunk@10624 -
This commit is contained in:
mattias 2007-02-12 10:43:12 +00:00
parent 05919925eb
commit 84d5619a1e
3 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/identcompletiontool.pas
View File

@ -1262,7 +1262,7 @@ var
Node: TCodeTreeNode;
Can: Boolean;
begin
DebugLn(['CheckProcedureDeclarationContext ',CursorNode.DescAsString]);
//DebugLn(['CheckProcedureDeclarationContext ',CursorNode.DescAsString]);
Node:=CursorNode;
Can:=false;
if (Node.Parent<>nil) and (Node.Parent.Desc in AllClassSections)

1
components/synedit/synedit.pp
View File

@ -830,6 +830,7 @@ type
property SelEnd: Integer read GetSelEnd write SetSelEnd;
{$ENDIF}
property Font: TFont read GetFont write SetFont;
property GutterWidth: Integer read fGutterWidth;
property Highlighter: TSynCustomHighlighter
read fHighlighter write SetHighlighter;
property LeftChar: Integer read fLeftChar write SetLeftChar;

2
ide/uniteditor.pp
View File

@ -3685,7 +3685,7 @@ begin
(NoteBook<>nil) and (NoteBook.PageCount>1);
EditorPopupPoint:=EditorComp.ScreenToClient(SrcPopUpMenu.PopupPoint);
if EditorPopupPoint.X>EditorComp.Gutter.Width then begin
if EditorPopupPoint.X>EditorComp.GutterWidth then begin
// user clicked on text
SelAvail:=ASrcEdit.EditorComponent.SelAvail;
SelAvailAndWritable:=SelAvail and (not ASrcEdit.ReadOnly);