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;