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