Canvas mit Handle auf Bitmap.Canvas

[Sunlight7]

Hallo,

so spontan würd' ich mal fragen, setzt Du irgendwo die größe des Bitmaps?

Denn das funkt:

Kompo:

Delphi-Quellcode:

constructor TSurfaceCanvas.Create;
begin
  inherited Create;
  FBitmap:=TBitmap.Create;
  FBitmap.Width:=80;
  FBitmap.Height:=80;
  Handle:=FBitmap.Canvas.Handle;
end;

procedure TSurfaceCanvas.Save;
begin
   FBitmap.SaveToFile('Test.bmp');
end;

Ausführen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
   var sc:TSurfaceCanvas;
begin
   sc:=TSurfaceCanvas.Create;
   sc.TextOut(0, 0, 'Text');
   sc.Save;
end;

Grüßle!