From: Maël Hörz <ma...@us...> - 2008-02-09 13:13:40
|
Update of /cvsroot/synedit/SynEdit/Source In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv8586/Source Modified Files: Tag: Unicode_2004_08_31 SynEditMiscClasses.pas Log Message: Add fix from Jan Fiala Index: SynEditMiscClasses.pas =================================================================== RCS file: /cvsroot/synedit/SynEdit/Source/SynEditMiscClasses.pas,v retrieving revision 1.35.2.6 retrieving revision 1.35.2.7 diff -u -d -r1.35.2.6 -r1.35.2.7 --- SynEditMiscClasses.pas 21 May 2006 11:59:34 -0000 1.35.2.6 +++ SynEditMiscClasses.pas 9 Feb 2008 13:13:34 -0000 1.35.2.7 @@ -144,6 +144,7 @@ procedure SetGradientStartColor(const Value: TColor); procedure SetGradientEndColor(const Value: TColor); procedure SetGradientSteps(const Value: Integer); + function GetWidth: integer; public constructor Create; destructor Destroy; override; @@ -172,7 +173,7 @@ property UseFontStyle: boolean read fUseFontStyle write SetUseFontStyle default True; property Visible: boolean read fVisible write SetVisible default TRUE; - property Width: integer read fWidth write SetWidth default 30; + property Width: integer read GetWidth write SetWidth default 30; property ZeroStart: boolean read fZeroStart write SetZeroStart default False; property LineNumberStart: Integer read fLineNumberStart write SetLineNumberStart default 1; @@ -721,6 +722,14 @@ end; end; +function TSynGutter.GetWidth: integer; +begin + if not Visible then + Result := 0 + else + Result := fWidth; +end; + { TSynBookMarkOpt } constructor TSynBookMarkOpt.Create(AOwner: TComponent); |