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

ident completion: fixed start token and context for classes

Browse Source 
git-svn-id: trunk@2470 -
This commit is contained in:
mattias 2002-08-17 23:41:24 +00:00
parent 13746d4e7c
commit 48cf736bf6
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/synedit/synedit.pp
View File

@ -392,6 +392,9 @@ type
function GetFont: TFont;
function GetHookedCommandHandlersCount: integer;
function GetLineText: string;
{$IFDEF SYN_LAZARUS}
function GetLineTextExtended: string;
{$ENDIF}
function GetMaxUndo: Integer;
function GetSelAvail: Boolean;
function GetSelText: string;
@ -653,6 +656,9 @@ type
property LineHeight: integer read fTextHeight;
property LinesInWindow: Integer read fLinesInWindow;
property LineText: string read GetLineText write SetLineText;
{$IFDEF SYN_LAZARUS}
property LineTextExtended: string read GetLineTextExtended write SetLineText;
{$ENDIF}
property Lines: TStrings read fLines write SetLines;
property Marks: TSynEditMarkList read fMarkList;
property MaxLeftChar: integer read fMaxLeftChar write SetMaxLeftChar
@ -1344,6 +1350,16 @@ begin
Result := '';
end;
{$IFDEF SYN_LAZARUS}
function TCustomSynEdit.GetLineTextExtended: string;
begin
if (CaretY >= 1) and (CaretY <= Lines.Count) then
Result := TSynEditStringList(Lines).ExpandedStrings[CaretY - 1]
else
Result := '';
end;
{$ENDIF}
function TCustomSynEdit.GetSelAvail: Boolean;
begin
Result := (fBlockBegin.X <> fBlockEnd.X) or