Problem mit Label

[stoermi]

Hallo Lucki!

Ich habe mir jetzt deine erste Möglichkeit mal genauer angeschaut, raus gekommen ist folgendes:

Code:

unit zimmer;

...

type
  TZimmer = class (TComponent)
  private
  protected
    zimmerEcken : array[1..4] of TPoint;
    ...
    function getPlanBild : TBitmap;
  public
    constructor Create (werte : array of ShortString); virtual;   //Konstrucktor
    ...
    property planBild : TBitmap Read getPlanBild;
  published
  end;

implementation

...

function TZimmer.getPlanBild : TBitmap;
var planZimmer : TBitmap;
begin
  planZimmer := TBitmap.Create;
  planZimmer.Width := 784;
  planZimmer.Height := 518;
  planZimmer.Canvas.Brush.Color := clWhite;
  planZimmer.Canvas.Rectangle(0,0,784,518);
  planZimmer.Canvas.Brush.Color := hindergrund;
  planZimmer.Canvas.Polygon(zimmerEcken);
  result := planZimmer;
end;

end.

und der Aufrauf in der Formular Unit:

Code:

PaintBox1.Canvas.BrushCopy(rect, myZimmer.planBild, rect, clWhite);

Leider wird jedoch nichts angezeigt.
Liege ich denn mit meinem Versuch ganz falsch?

Tschau