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

fixed TSynTeXSyn.CreateHighlighterAttributes

Browse Source 
git-svn-id: trunk@5258 -
This commit is contained in:
mattias 2004-03-04 20:21:53 +00:00
parent 8b612aeaa3
commit 2df68049ab
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/synhighlightertex.pas
View File

@ -114,7 +114,8 @@ type
override;
function GetEol: Boolean; override;
function GetTokenID: TtkTokenKind;
procedure SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String; LineNumber:Integer); override;
procedure SetLine({$IFDEF FPC}const {$ENDIF}NewValue: String;
LineNumber:Integer); override;
function GetToken: String; override;
{$IFDEF SYN_LAZARUS}
procedure GetTokenEx(var TokenStart: PChar; var TokenLength: integer); override;
@ -129,9 +130,8 @@ type
write fCommentAttri;
property TextAttri: TSynHighlighterAttributes read fTextAttri
write fTextAttri;
property ControlSequenceAttri: TSynHighlighterAttributes read
fControlSequenceAttri
write fControlSequenceAttri;
property ControlSequenceAttri: TSynHighlighterAttributes
read fControlSequenceAttri write fControlSequenceAttri;
property MathmodeAttri: TSynHighlighterAttributes read fMathmodeAttri
write fMathmodeAttri;
property SpaceAttri: TSynHighlighterAttributes read fSpaceAttri
@ -394,7 +394,7 @@ function TSynTeXSyn.CreateHighlighterAttributes(AName:String; Foreground,
FontStyles: TFontStyles) :
TSynHighlighterAttributes;
begin
Result:=TSynHighlighterAttributes.Create(Name);
Result:=TSynHighlighterAttributes.Create(AName);
if Foreground<>clNone then Result.Foreground:=ForeGround;
if Background<>clNone then Result.Background:=Background;
Result.Style:=FontStyles;