TBrush

type TBrush = class(TFPCustomBrush)

protected

  procedure DoAllocateResources; override;

Performs actions needed to allocate (or reallocate) resources for the brush instance.

  procedure DoDeAllocateResources; override;

Performs actions to free resources allocated for the brush instance.

  procedure DoCopyProps(); override;

Copies properties from the specified FCL brush into the current class instance.

  procedure SetColor();

Sets the value for the Color property.

  procedure SetFPColor(); override;

Sets the Brush color to the specified TFPColor value.

  procedure SetBitmap();

Sets the value for the Bitmap property.

  procedure SetStyle(); override;

Sets the value for the Style property.

public

  procedure Assign(); override;

Copies values from Source to the current brush instance.

  constructor Create; override;

Constructor for the class instance.

  destructor Destroy; override;

Destructor for the class instance.

  function EqualsBrush();

Compares the specified Brush to the current class instance.

  property Bitmap: TCustomBitmap; [rw]

Bitmap with the pattern for the Brush.

  property Handle: HBRUSH; [rw] deprecated ;

Operating System handle for the brush.

  property Reference: TWSBrushReference; [r]

Contains a Reference to the handle allocated for the Brush.

published

  property Color: TColor; [rw]

The Color of the current Brush.

  property Style;

Indicates the pattern drawn using the brush.

end;

TBrush

The Brush to be used to Paint on the current Canvas.

TFPCustomBrush

TObject