paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-05 11:19:23 +01: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; fOnProcessCommand: TProcessCommandEvent;
fOnProcessUserCommand: TProcessCommandEvent; fOnProcessUserCommand: TProcessCommandEvent;
fOnReplaceText: TReplaceTextEvent; fOnReplaceText: TReplaceTextEvent;
{$IFNDEF SYN_LAZARUS}fOnSpecialLineColors: TSpecialLineColorsEvent;{$ENDIF} fOnSpecialLineColors: TSpecialLineColorsEvent;// needed, because bug fpc 10451
fOnStatusChange: TStatusChangeEvent; fOnStatusChange: TStatusChangeEvent;
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
FOnSpecialLineMarkup: TSpecialLineMarkupEvent;// needed, because bug fpc 10451
FOnClickLink: TMouseEvent; FOnClickLink: TMouseEvent;
{$ENDIF} {$ENDIF}
@ -510,8 +511,6 @@ type
function GetHighlightAllColor : TSynSelectedColor; function GetHighlightAllColor : TSynSelectedColor;
function GetIncrementColor : TSynSelectedColor; function GetIncrementColor : TSynSelectedColor;
function GetSelectedColor : TSynSelectedColor; function GetSelectedColor : TSynSelectedColor;
function GetSpecialLineColors : TSpecialLineColorsEvent;
function GetSpecialLineMarkup : TSpecialLineMarkupEvent;
function GetBracketMatchColor : TSynSelectedColor; function GetBracketMatchColor : TSynSelectedColor;
function GetMouseLinkColor : TSynSelectedColor; function GetMouseLinkColor : TSynSelectedColor;
procedure SetSelectedColor(const AValue : TSynSelectedColor); procedure SetSelectedColor(const AValue : TSynSelectedColor);
@ -979,14 +978,14 @@ type
write fOnReplaceText; write fOnReplaceText;
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
property OnSpecialLineColors: TSpecialLineColorsEvent property OnSpecialLineColors: TSpecialLineColorsEvent
read GetSpecialLineColors write SetSpecialLineColors; deprecated; read FOnSpecialLineColors write SetSpecialLineColors; deprecated;
{$ELSE} {$ELSE}
property OnSpecialLineColors: TSpecialLineColorsEvent property OnSpecialLineColors: TSpecialLineColorsEvent
read fOnSpecialLineColors write fOnSpecialLineColors; read fOnSpecialLineColors write fOnSpecialLineColors;
{$ENDIF} {$ENDIF}
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
property OnSpecialLineMarkup: TSpecialLineMarkupEvent property OnSpecialLineMarkup: TSpecialLineMarkupEvent
read GetSpecialLineMarkup write SetSpecialLineMarkup; read FOnSpecialLineMarkup write SetSpecialLineMarkup;
{$ENDIF} {$ENDIF}
property OnStatusChange: TStatusChangeEvent property OnStatusChange: TStatusChangeEvent
read fOnStatusChange write fOnStatusChange; read fOnStatusChange write fOnStatusChange;
@ -1776,24 +1775,15 @@ begin
fMarkupSelection.MarkupInfoSeletion.Assign(AValue); fMarkupSelection.MarkupInfoSeletion.Assign(AValue);
end; end;
function TCustomSynEdit.GetSpecialLineColors : TSpecialLineColorsEvent;
begin
Result := fMarkupSpecialLine.OnSpecialLineColors;
end;
procedure TCustomSynEdit.SetSpecialLineColors(const AValue : TSpecialLineColorsEvent); procedure TCustomSynEdit.SetSpecialLineColors(const AValue : TSpecialLineColorsEvent);
begin begin
fOnSpecialLineColors:=AValue;
fMarkupSpecialLine.OnSpecialLineColors := AValue; fMarkupSpecialLine.OnSpecialLineColors := AValue;
end; end;
function TCustomSynEdit.GetSpecialLineMarkup : TSpecialLineMarkupEvent;
begin
Result := fMarkupSpecialLine.OnSpecialLineMarkup;
end;
procedure TCustomSynEdit.SetSpecialLineMarkup(const AValue : TSpecialLineMarkupEvent); procedure TCustomSynEdit.SetSpecialLineMarkup(const AValue : TSpecialLineMarkupEvent);
begin begin
FOnSpecialLineMarkup:=AValue;
fMarkupSpecialLine.OnSpecialLineMarkup := AValue; fMarkupSpecialLine.OnSpecialLineMarkup := AValue;
end; end;