TShape transparente

[Jose Roman]

Cordial saludo,

Necesito agregarle la propiedad Transparente de tipo Boolean (debido a que el usuario podrá decidir si lo desea o no transparente) a un TShape y que este TShape sea transparente solo la parte interna no los bordes, no se como hacer esto. Muchas gracias.

[[AgustinOrtu]]

A ver si esto te sirve

Código Delphi [-]
unit TransparentShape;

interface

uses
  ExtCtrls;

type
  TTransparentShape = class(TShape)
  private
    FTransparent: Boolean;
    procedure SetTransparent(const Value: Boolean);
  published
    property Transparent: Boolean read FTransparent write SetTransparent;
  end;

implementation

uses
  Graphics;

{ TTransparentShape }

procedure TTransparentShape.SetTransparent(const Value: Boolean);
begin
  if FTransparent <> Value then
  begin
    FTransparent := Value;
    if FTransparent then
      Brush.Style := bsClear
    else
      Brush.Style := bsSolid;
  end;
end;

end.

Edito:

Salida -

[Jose Roman]

Gracias por tu ayuda.