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