Delphi-Quellcode:
...
MyRect: TRectF;
...
MyRect := TRectF.Create(0, 0, 200, 200);
Image1.Bitmap := TBitmap.create;
Image1.Bitmap.Width := trunc(Image1.Width);
Image1.Bitmap.Height := trunc(Image1.Height);
...
Image1.Bitmap.Canvas.BeginScene;
Image1.Bitmap.Canvas.DrawEllipse(MyRect, 40);
Image1.Bitmap.Canvas.EndScene;
Dein Beispiel mit dem TImage funktioniert, nur bkomme ich es nicht hin, dem TExpander Canvas ein Bitmap zu erzeugen
ExpanderDokumente.Canvas.Bitmap.Width:=100;
funktioniert nicht da das ExpanderDokumente.Canvas = Nil und ExpanderDokumente.Canvas.BitMap = Nil ist, ExpanderDokumente.Canvas.Bitmap kann ich nichts zuweisen weil es eine "nur Lesen" Eigenschaft ist...
Ciao
Stefan