forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix, completion mostly broken due to change in Laz 1.6-rc1 

see http://forum.lazarus.freepascal.org/index.php/topic,30663.msg196486.html#msg196486
This commit is contained in:
Basile Burg 2015-12-22 16:47:01 +01:00
parent 5fc8b76512
commit fbaf26f319
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ce_d2syn.pas
View File

@ -6,7 +6,7 @@ interface
uses uses
Classes, SysUtils, Graphics, Classes, SysUtils, Graphics,
SynEditHighlighter, SynEditHighlighterFoldBase, SynEditHighlighter, SynEditHighlighterFoldBase, SynEditTypes,
ce_dlangutils; ce_dlangutils;
const const
@ -134,6 +134,7 @@ type
procedure doChanged; procedure doChanged;
protected protected
function GetRangeClass: TSynCustomHighlighterRangeClass; override; function GetRangeClass: TSynCustomHighlighterRangeClass; override;
function GetIdentChars: TSynIdentChars; override;
published published
property foldKinds: TFoldKinds read fFoldKinds write setFoldKinds; property foldKinds: TFoldKinds read fFoldKinds write setFoldKinds;
property whites: TSynHighlighterAttributes read fWhiteAttrib write setWhiteAttrib; property whites: TSynHighlighterAttributes read fWhiteAttrib write setWhiteAttrib;
@ -368,6 +369,11 @@ begin
result := TSynD2SynRange; result := TSynD2SynRange;
end; end;
function TSynD2Syn.GetIdentChars: TSynIdentChars;
begin
result := ['_', 'A'..'Z', 'a'..'z', '0'..'9'];
end;
procedure TSynD2Syn.doChanged; procedure TSynD2Syn.doChanged;
begin begin
BeginUpdate; BeginUpdate;