paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 16:19:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/synedit/syneditmiscclasses.pp
View File

@ -89,17 +89,17 @@ type
procedure Assign(aSource: TPersistent); override;
procedure Clear;
function IsEnabled: boolean;
published
function GetModifiedStyle(aStyle : TFontStyles): 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 Foreground: TColor read FFG write SetFG default clHighLightText;
property FrameColor: TColor read FFrameColor write SetFrameColor default clNone;
property Style: TFontStyles read FStyle write SetStyle 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;
{ TSynBookMarkOpt }

7
packager/registersynedit.pas
View File

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