[Synedit-checkins] SynEdit/Source SynEditMiscClasses.pas, 1.35.2.6, 1.35.2.7

[Maël Hörz <ma...@us...>]

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);