TExpander unter Delphi 10.4.2 Fehler

[skoschke]

Hallo,

ich habe mal in die Richtung umgebaut:

Delphi-Quellcode:

  c := ExpanderDokumente.Canvas;
  if c.BeginScene then
  begin
    py := 30; // oberste zeichenposition
    br := ExpanderDokumente.Width - 10;
    c.Font.Family := 'Arial';
    c.Font.Size := 12;
    ...

und der if c.BeginScene then Zweig wird nicht durchlaufen, BeginScene scheint also fehlzuschlagen, warum?

Auch in folgendem Code greift BeginScene nicht:

Delphi-Quellcode:

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

    b.canvas.EndScene;
  end;

Und ein abgewandeltes Beispiel aus der Embarcadero Doku ebenfalls nicht

Delphi-Quellcode:

  b := TImage.Create(self);
  if b.Bitmap.Canvas.BeginScene then
  begin
    i := 4;

    b.canvas.EndScene;
  end;

Ciao
Stefan