[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] Reference for unit 'Graphics' (#lcl)

TPen

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

The current Pen for drawing on the current Canvas

Declaration

Source position: graphics.pp line 541

type TPen = class(TFPCustomPen)

protected

  procedure DoAllocateResources; override;

  

  procedure DoDeAllocateResources; override;

  

  procedure DoCopyProps(); override;

  

  procedure SetColor();

  

  procedure SetFPColor(); override;

  

  procedure SetMode(); override;

  

  procedure SetStyle(); override;

  

  procedure SetWidth(); override;

  

public

  constructor Create; override;

  

Pen Constructor

  destructor Destroy; override;

  

Pen Destructor

  procedure Assign(); override;

  

Copies the SourcePen to itself

  property Handle: HPEN; [rw]

  

the Operating System Handle for the current Pen

  property Reference: TWSPenReference; [r]

  

published

  property Color: TColor; [rw]

  

The Colour of the current Pen

  property Mode;

  

The Mode for the current Pen

  property Style;

  

The Style of the current Pen

  property Width;

  

The Width in pixels of the current Pen

end;

Inheritance

TPen

  

The current Pen for drawing on the current Canvas

|

TFPCustomPen

?

TObject

The latest version of this document can be found at lazarus-ccr.sourceforge.net.