TExpander unter Delphi 10.4.2 Fehler

[Harry Stahl]

Natürlich funktioniert Dein Code hier nicht:

Delphi-Quellcode:

 b := TBitmap.Create;
  if b.Canvas.BeginScene then
  begin
    i := 4;

    b.canvas.EndScene;
  end;

geenauowenig wie Dein anderes Beispiel:

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
var
  MyRect: TRectF;
begin
  // sets the circumscribed rectangle of the ellipse
  MyRect := TRectF.Create(50, 40, 200, 270);
  // draws the ellipse on the canvas
  Image1.Bitmap.Canvas.BeginScene;
  Image1.Bitmap.Canvas.DrawEllipse(MyRect, 40);
  Image1.Bitmap.Canvas.EndScene;
end;

Dein Bitmap hat immer die Größe 0,0.

Auf welchen Canvas willst Du dann auf welcher Postion malen?
Logischerweise funktioniert dann auch kein Canvas.beginscene....

Mit anderen Worten: Das funktioniert:

Delphi-Quellcode:

b := TBitmap.Create (300,300);
  if b.Canvas.BeginScene then
  begin
    i := 4;

    b.canvas.EndScene;
  end;

[Harry Stahl]

Ach ja und ergänzend zu meiner vorherigen Antwort:

WANN willst Du auf den Canvas "des Expanders" zeichnen?

Anders als in der VCL hat in der FMX nicht jedes Control einen eigenen Canvas, sondern es existiert nur ein großer Canvas der Form, der von den einzelnen Controls verwendet wird.

D.H. Du kannst nicht einfach irgendwann auf den Canvas zeichnen.
Sondern Du machst es in den Events, wenn der Expander gezeichnet werden soll, also z.B:

Delphi-Quellcode:

procedure TForm38.Expander1Paint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
begin

end;

Dann hast Du einen Canvas, der in diesem Moment frei ist und auch den Canvas-Bereich, der für dieses Control gilt.