TSynGutterBase

type TSynGutterBase = class(TPersistent)

protected

  procedure SetChildBounds;

  procedure DoChange();

  procedure DoResize();

  procedure IncChangeLock;

  procedure DecChangeLock;

  procedure DoDefaultGutterClick(); virtual;

  procedure RegisterNewGutterPartList();

  function PartCount;

  function CreatePartList; virtual; abstract;

  function CreateMouseActions; virtual;

  procedure Clear;

  function GetOwner; override;

  property GutterArea: TLazSynSurfaceWithText; [rw]

public

  constructor Create();

  destructor Destroy; override;

  procedure Assign(); override;

  procedure RecalcBounds;

  procedure ScalePPI();

  procedure DoAutoSize;

  function MaybeHandleMouseAction(); virtual;

  procedure ResetMouseActions; virtual;

  procedure RegisterResizeHandler();

  procedure UnregisterResizeHandler();

  procedure RegisterChangeHandler();

  procedure UnregisterChangeHandler();

  property Left: Integer; [r]

  property Top: Integer; [r]

  property Height: Integer; [r]

  property Width: Integer; [rw]

  property Side: TSynGutterSide; [r]

  property AutoSize: Boolean; [rw]

  property Visible: Boolean; [rw]

  property LeftOffset: Integer; [rw]

  property RightOffset: Integer; [rw]

  property OnChange: TNotifyEvent; [rw]

  property OnResize: TNotifyEvent; [rw]

  property Parts: TSynGutterPartListBase; [rw]

  property SynEdit: TSynEditBase; [r]

  property TextDrawer: TheTextDrawer; [r]

  property Color: TColor; [rw]

  property MouseActions: TSynEditMouseActions; [rw]

end;

TSynGutterBase

TObject