Class TrImageEx

Unit

rImprovedComps

Declaration

type TrImageEx = class(TImage)

Description

enhanced TImage supporting label and drawing of shapes

Hierarchy

• TImage
• TrImageEx

Overview

Fields

	SaveAsBMP: Boolean;
	SaveAsShape: Boolean;
	ShapeType: rImprovedComps.TShapeType;
	PenColor: TColor;
	FillColor: TColor;
	BkColor: TColor;
	PenWidth: integer;
	LastFileName: string;

Methods

	procedure DrawShape;
	procedure SetShape(AShapeType: rImprovedComps.TShapeType; APenColor, AFillColor, ABkColor: TColor; APenWidth: integer);
	procedure AssignShape(Source: TrImageEx);
	procedure AssignPicture(P: TPicture; AsBMP: Boolean);

Description

Fields

	SaveAsBMP: Boolean;

	SaveAsShape: Boolean;

	ShapeType: rImprovedComps.TShapeType;

	PenColor: TColor;

	FillColor: TColor;

	BkColor: TColor;

	PenWidth: integer;

	LastFileName: string;

Methods

	procedure DrawShape;
draw defined shape

	procedure SetShape(AShapeType: rImprovedComps.TShapeType; APenColor, AFillColor, ABkColor: TColor; APenWidth: integer);
define shape type

	procedure AssignShape(Source: TrImageEx);
assign shape type from another ImageEx

	procedure AssignPicture(P: TPicture; AsBMP: Boolean);
assign another picture