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

synedit: workaround for bug #10451

Browse Source 
git-svn-id: trunk@16199 -
This commit is contained in:
mattias 2008-08-24 08:07:31 +00:00
parent 4abc7a2aa9
commit acbbad4015
1 changed files with 6 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/synedit/synedit.pp
View File

@ -480,9 +480,10 @@ type
fOnProcessCommand: TProcessCommandEvent;
fOnProcessUserCommand: TProcessCommandEvent;
fOnReplaceText: TReplaceTextEvent;
{$IFNDEF SYN_LAZARUS}fOnSpecialLineColors: TSpecialLineColorsEvent;{$ENDIF}
fOnSpecialLineColors: TSpecialLineColorsEvent;// needed, because bug fpc 10451
fOnStatusChange: TStatusChangeEvent;
{$IFDEF SYN_LAZARUS}
FOnSpecialLineMarkup: TSpecialLineMarkupEvent;// needed, because bug fpc 10451
FOnClickLink: TMouseEvent;
{$ENDIF}
@ -510,8 +511,6 @@ type
function GetHighlightAllColor : TSynSelectedColor;
function GetIncrementColor : TSynSelectedColor;
function GetSelectedColor : TSynSelectedColor;
function GetSpecialLineColors : TSpecialLineColorsEvent;
function GetSpecialLineMarkup : TSpecialLineMarkupEvent;
function GetBracketMatchColor : TSynSelectedColor;
function GetMouseLinkColor : TSynSelectedColor;
procedure SetSelectedColor(const AValue : TSynSelectedColor);
@ -979,14 +978,14 @@ type
write fOnReplaceText;
{$IFDEF SYN_LAZARUS}
property OnSpecialLineColors: TSpecialLineColorsEvent
read GetSpecialLineColors write SetSpecialLineColors; deprecated;
read FOnSpecialLineColors write SetSpecialLineColors; deprecated;
{$ELSE}
property OnSpecialLineColors: TSpecialLineColorsEvent
read fOnSpecialLineColors write fOnSpecialLineColors;
{$ENDIF}
{$IFDEF SYN_LAZARUS}
property OnSpecialLineMarkup: TSpecialLineMarkupEvent
read GetSpecialLineMarkup write SetSpecialLineMarkup;
read FOnSpecialLineMarkup write SetSpecialLineMarkup;
{$ENDIF}
property OnStatusChange: TStatusChangeEvent
read fOnStatusChange write fOnStatusChange;
@ -1776,24 +1775,15 @@ begin
fMarkupSelection.MarkupInfoSeletion.Assign(AValue);
end;
function TCustomSynEdit.GetSpecialLineColors : TSpecialLineColorsEvent;
begin
Result := fMarkupSpecialLine.OnSpecialLineColors;
end;
procedure TCustomSynEdit.SetSpecialLineColors(const AValue : TSpecialLineColorsEvent);
begin
fOnSpecialLineColors:=AValue;
fMarkupSpecialLine.OnSpecialLineColors := AValue;
end;
function TCustomSynEdit.GetSpecialLineMarkup : TSpecialLineMarkupEvent;
begin
Result := fMarkupSpecialLine.OnSpecialLineMarkup;
end;
procedure TCustomSynEdit.SetSpecialLineMarkup(const AValue : TSpecialLineMarkupEvent);
begin
FOnSpecialLineMarkup:=AValue;
fMarkupSpecialLine.OnSpecialLineMarkup := AValue;
end;