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

View File

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