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

synedit: added function IsIndentChar needed for unicode support

Browse Source 
git-svn-id: trunk@12610 -
This commit is contained in:
mattias 2007-10-27 18:13:20 +00:00
parent ceca023673
commit 4db2eccd14
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/synedit.pp
View File

@ -755,6 +755,9 @@ type
function GetWordAtRowCol(XY: TPoint): string; function GetWordAtRowCol(XY: TPoint): string;
procedure GotoBookMark(BookMark: Integer); procedure GotoBookMark(BookMark: Integer);
function IdentChars: TSynIdentChars; function IdentChars: TSynIdentChars;
{$IFDEF SYN_LAZARUS}
function IsIdentChar(const c: TUTF8Char): boolean;
{$ENDIF}
procedure InvalidateGutter; procedure InvalidateGutter;
procedure InvalidateLine(Line: integer); procedure InvalidateLine(Line: integer);
function IsBookmark(BookMark: integer): boolean; function IsBookmark(BookMark: integer): boolean;
@ -7130,6 +7133,13 @@ begin
{$ENDIF} {$ENDIF}
end; end;
{$IFDEF SYN_LAZARUS}
function TCustomSynEdit.IsIdentChar(const c: TUTF8Char): boolean;
begin
Result:=(length(c)=1) and (c[1] in IdentChars);
end;
{$ENDIF}
procedure TCustomSynEdit.SetBookMark(BookMark: Integer; X: Integer; Y: Integer); procedure TCustomSynEdit.SetBookMark(BookMark: Integer; X: Integer; Y: Integer);
var var
i: Integer; i: Integer;