Hallo Ihr 2!
Ich habe bisher folgendes schon hinbekommen, aber leider ist der Text, trotz des Befehles nicht transparent im Hintergrund!!
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Bitmap:TBitmap;
begin
Bitmap:=TBitmap.Create;
Bitmap.Assign(Image1.Picture.Graphic);
if FontDialog1.Execute then Bitmap.Canvas.Font := FontDialog1.Font;
Bitmap.Canvas.TextOut(10 , 10, 'Ich bin eine Bildbeschriftung');
Bitmap.Canvas.Brush.Style := bsClear;
Image1.Picture.Assign(Bitmap);
Bitmap.Free;
Image1.Refresh;
end;
Das zu bearbeitende Bild habe ich testhalber in Imgae1 schon vorgeladen. Ich muss es zwischenlagern in einem Bitmap, da es sich um ein JPEG handelt. Positionierung fehlt noch und und die Transparenz. Ich suche fleissig weiter im Forum und der Hilfe, hoffe aber auch auf Euch!