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

synedit: made TSynGutter.OnChange public instead of published, fixes #10995

Browse Source 
git-svn-id: trunk@15396 -
This commit is contained in:
vincents 2008-06-12 22:21:48 +00:00
parent 1ce1166231
commit c0f7c4db42
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/synedit/syneditmiscclasses.pp
View File

@ -111,6 +111,9 @@ type
procedure AutoSizeDigitCount(LinesCount: integer); procedure AutoSizeDigitCount(LinesCount: integer);
function FormatLineNumber(Line: integer): string; function FormatLineNumber(Line: integer): string;
function RealGutterWidth(CharWidth: integer): integer; function RealGutterWidth(CharWidth: integer): integer;
{$IFDEF SYN_LAZARUS}
property OnChange: TNotifyEvent read fOnChange write fOnChange;
{$ENDIF}
published published
property AutoSize: boolean read fAutoSize write SetAutoSize default FALSE; property AutoSize: boolean read fAutoSize write SetAutoSize default FALSE;
property Color: TColor read fColor write SetColor default clBtnFace; property Color: TColor read fColor write SetColor default clBtnFace;
@ -132,7 +135,9 @@ type
property Visible: boolean read fVisible write SetVisible default TRUE; property Visible: boolean read fVisible write SetVisible default TRUE;
property Width: integer read fWidth write SetWidth default 30; property Width: integer read fWidth write SetWidth default 30;
property ZeroStart: boolean read fZeroStart write SetZeroStart default FALSE; property ZeroStart: boolean read fZeroStart write SetZeroStart default FALSE;
{$IFNDEF SYN_LAZARUS}
property OnChange: TNotifyEvent read fOnChange write fOnChange; property OnChange: TNotifyEvent read fOnChange write fOnChange;
{$ENDIF}
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
property CodeFoldingWidth: integer read FCodeFoldingWidth write SetCodeFoldingWidth; property CodeFoldingWidth: integer read FCodeFoldingWidth write SetCodeFoldingWidth;
{$ENDIF} {$ENDIF}