Bilddatei erstellen

[braingrenade]

Moin !

Meinst du das ungefähr so :

Delphi-Quellcode:

uses ...graphics;

...

Procedure Draw;
var bmp : Tbitmap;
begin
bmp := tbitmap.create;
bmp.pixelformat := pf24bit;
bmp.height := 480;
bmp.width := 640;
bmp.Canvas.Brush.Color := clblue;
bmp.Canvas.FrameRect(rect(20,20,620,460));
bmp.Canvas.Brush.Color := clwhite;
bmp.Canvas.Font.Color := clred ;
bmp.Canvas.TextOut(30,30,'Test');
form1.Canvas.Draw(0,0,bmp);
bmp.Destroy;
end;