Unit 'TplHorVerRulersUnit' Package
[Overview][Types][Classes][Index] [#pl_excontrols]

TplVerticalRuler

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

Declaration

Source position: TplHorVerRulersUnit.pas line 141

type TplVerticalRuler = class(TCustomControl)

protected

  procedure Paint; override;

  

  procedure DrawWholeLines;

  

  procedure DrawHalfLines;

  

  procedure DrawQuarterLines;

  

public

  constructor Create(); override;

  

  procedure UpdateDisplay();

  

  procedure MarkFragment();

  

  function GetPosition();

  

  property MarkTop: Integer; [r]

  

  property MarkBottom: Integer; [r]

  

  property Canvas;

  

published

  property OffsetTop: Integer; [rw]

  

  property OffsetBottom: Integer; [rw]

  

  property HorizontalOffset: Integer; [rw]

  

  property Units: TCSSMeasureUnit; [rw]

  

  property StartAt: Extended; [rw]

  

  property SkipUnits: Extended; [rw]

  

  property RulerPosition: TVerRulerPosition; [rw]

  

  property ZoomPercent: Integer; [rw]

  

  property OuterColor: TColor; [rw]

  

  property InnerColor: TColor; [rw]

  

  property LineColor: TColor; [rw]

  

  property HairLine: TColor; [rw]

  

  property MarkedColor: TColor; [rw]

  

  property CustomDPI: Integer; [rw]

  

  property ShowFirst: Boolean; [rw]

  

  property ShowLast: Boolean; [rw]

  

  property AddaptRectLeft: Boolean; [rw]

  

  property AddaptRectRight: Boolean; [rw]

  

  property Align;

  

  property Anchors;

  

  property Enabled;

  

  property Constraints;

  

  property Hint;

  

  property Font;

  

  property ShowHint;

  

  property ParentShowHint;

  

  property PopupMenu;

  

  property Visible;

  

  property OnContextPopup;

  

  property OnMouseMove;

  

  property OnMouseDown;

  

  property OnMouseUp;

  

  property OnPaint: TNotifyEvent; [rw]

  

  property OnPaintLabelText: TPaintLabelEvent; [rw]

  

end;

Inheritance

TplVerticalRuler

  

|

TObject



CT Web help

CodeTyphon Studio