Einzelnen Beitrag anzeigen

skoschke

Registriert seit: 6. Jan 2009
522 Beiträge
 
Delphi 10.4 Sydney
 
#10

AW: TExpander unter Delphi 10.4.2 Fehler

  Alt 19. Mär 2021, 10:05
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

Geändert von skoschke (19. Mär 2021 um 10:20 Uhr)
  Mit Zitat antworten Zitat