SynEdit: Removed some internal values (Color-Setting) from published properties

git-svn-id: trunk@18324 -
This commit is contained in:
martin 2009-01-18 12:14:51 +00:00
parent de02d06ad9
commit 0fea837b64
2 changed files with 9 additions and 6 deletions

View File

@ -89,17 +89,17 @@ type
procedure Assign(aSource: TPersistent); override; procedure Assign(aSource: TPersistent); override;
procedure Clear; procedure Clear;
function IsEnabled: boolean; function IsEnabled: boolean;
published
function GetModifiedStyle(aStyle : TFontStyles): TFontStyles; function GetModifiedStyle(aStyle : TFontStyles): TFontStyles;
procedure ModifyColors(var AForeground, ABackground, AFrameColor: TColor; var AStyle: TFontStyles); procedure ModifyColors(var AForeground, ABackground, AFrameColor: TColor; var AStyle: TFontStyles);
property StartX: Integer read FStartX write FStartX;
property EndX: Integer read FEndX write FEndX;
property OnChange: TNotifyEvent read fOnChange write fOnChange;
published
property Background: TColor read FBG write SetBG default clHighLight; property Background: TColor read FBG write SetBG default clHighLight;
property Foreground: TColor read FFG write SetFG default clHighLightText; property Foreground: TColor read FFG write SetFG default clHighLightText;
property FrameColor: TColor read FFrameColor write SetFrameColor default clNone; property FrameColor: TColor read FFrameColor write SetFrameColor default clNone;
property Style: TFontStyles read FStyle write SetStyle default []; property Style: TFontStyles read FStyle write SetStyle default [];
property StyleMask: TFontStyles read fStyleMask write SetStyleMask default []; property StyleMask: TFontStyles read fStyleMask write SetStyleMask default [];
property StartX: Integer read FStartX write FStartX;
property EndX: Integer read FEndX write FEndX;
property OnChange: TNotifyEvent read fOnChange write fOnChange;
end; end;
{ TSynBookMarkOpt } { TSynBookMarkOpt }

View File

@ -38,14 +38,14 @@ unit RegisterSynEdit;
interface interface
uses uses
Classes, SysUtils, Classes, SysUtils, SynEditMiscClasses,
SynEditLazDsgn, SynEdit, SynCompletion, SynExportHTML, SynMacroRecorder, SynEditLazDsgn, SynEdit, SynCompletion, SynExportHTML, SynMacroRecorder,
SynMemo, SynHighlighterPas, SynHighlighterCPP, SynHighlighterJava, SynMemo, SynHighlighterPas, SynHighlighterCPP, SynHighlighterJava,
SynHighlighterPerl, SynHighlighterHTML, SynHighlighterXML, SynHighlighterPerl, SynHighlighterHTML, SynHighlighterXML,
SynHighlighterLFM, SynHighlighterMulti, SynHighlighterUNIXShellScript, SynHighlighterLFM, SynHighlighterMulti, SynHighlighterUNIXShellScript,
SynHighlighterCss, SynHighlighterPHP, SynHighlighterTeX, SynHighlighterCss, SynHighlighterPHP, SynHighlighterTeX,
SynHighlighterSQL, SynHighlighterPython, SynHighlighterVB, SynHighlighterAny, SynHighlighterSQL, SynHighlighterPython, SynHighlighterVB, SynHighlighterAny,
LazarusPackageIntf; LazarusPackageIntf, LResources;
procedure Register; procedure Register;
@ -181,6 +181,9 @@ begin
RegisterUnit('SynHighlighterAny',@RegisterSynHighlighterAny); RegisterUnit('SynHighlighterAny',@RegisterSynHighlighterAny);
RegisterUnit('SynHighlighterMulti',@RegisterSynHighlighterMulti); RegisterUnit('SynHighlighterMulti',@RegisterSynHighlighterMulti);
RegisterPropertyToSkip(TSynSelectedColor, 'OnChange', '', '');
RegisterPropertyToSkip(TSynSelectedColor, 'StartX', '', '');
RegisterPropertyToSkip(TSynSelectedColor, 'EndX', '', '');
end; end;
end. end.