Zitat von
worker:
Für Punkt 2: probiere bsClear (BrushStyle)
Das habe ich gemacht. Aber der folgende Code bringt mir trotzdem nur die Schrift auf das Bild und verdeckt trotz bsClear den Text:
Delphi-Quellcode:
Procedure TForm1.FormCreate(Sender: TObject);
Var
T : String;
BMP : TBitmap;
Begin
BMP:=TBitmap.Create;
Try
BMP.LoadFromFile('C:\Test.bmp');
BMP.Canvas.Font.Name:='Arial'; // Schriftart für Stempel
BMP.Canvas.Font.Size:=170; // Schriftgröße für Stempel
BMP.Canvas.Font.Orientation:=550;// Drehung der Schrift 55°
BMP.Canvas.Font.Color:=$C0C0C0; // Helles Grau
BMP.Canvas.Brush.Style:=bsClear; // Durchsichtig
T:='Kopie'; // Text
BMP.Canvas.TextOut((BMP.Width-BMP.Canvas.TextWidth(T)) div 2,
(BMP.Height-BMP.Canvas.TextHeight(T)) div 2,
T);
BMP.SaveToFile('C:\Test_W.bmp');
Finally
BMP.Free
End;
Application.Terminate;
End;
Zitat von
Satty67:
Schreibe den Stempeltext in ein eigenes TImage. Das kannst Du dann mit entsprechenden Optionen über Deine Bilder legen.
@Satty67 oder wer das sonst noch kann:
Das Schreiben in ein TImage ist kein Problem. Muss es unbedingt ein TImage sein oder geht auch was anderes (z.B. TBitmap)? Aber viel wichtigter: Wie lautet die "entsprechende(n) Option(en)" zum Stempeln?
Gruß und Dank, Alex