Bild oder Schriftzug-"Stempel" für eigene Bilder

[torud]

Hallo Wissende!

Ich würde gern wissen, ob und wenn ja, wie es möglich ist, einen Schriftzug oder ein Bild als eine Art Stempel auf ein anderes Bild aufzuzeichnen. Dies interessiert mich, da ich dies gern nutzen würde, um eigene Bild per Procedure mit einem Schriftzug oder Logo zu versehen. Ich möchte dazu kein anderes Tool benutzen.

Hat das schon mal jemand gemacht oder kann mir jemand einen Tipp geben, wie man so etwas lösen kann!???

[Nikolas]

Schau die mal Copyrect und copymode an. Bei copymode sollte es was passendes für dich geben.

[torud]

hm, Deine Antwort scheint mir nur ein Teil meiner Frage zu beantworten, da ja dann noch die Frage mit dem Schriftzug zu klären wäre.!?

Ich will eigentlich nur in ein TEdit einen Text eingeben und der soll dann je nach Wunsch links- oder rechtsbündig oben oder unten auf das Bild in einer wählbaren Schrift (-grösse und -farbe) gezeichnet werden...

[Nonsense]

TextOut und DrawText sind Deine Freunde.

[Nikolas]

Nimm doch ein Label, schreib da deinen Text drauf, bearbeite die Font-Einstellungen wie du willst, finde raus, wie groß das Label ist und kopier dann diesen Bereich mit der erwähnten Technik auf dein Bild. Ob's links oben oder rechts unten sein soll, ist ja auch schnell gemacht, da du ja die Größe des Stempels und des Bildes kennst.

[Nonsense]

Zitat von Toxman:

Nimm doch ein Label, schreib da deinen Text drauf, bearbeite die Font-Einstellungen wie du willst, finde raus, wie groß das Label ist und kopier dann diesen Bereich mit der erwähnten Technik auf dein Bild. Ob's links oben oder rechts unten sein soll, ist ja auch schnell gemacht, da du ja die Größe des Stempels und des Bildes kennst.

Warum einfach, wenn's auch kompliziert geht, was?

[torud]

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!

[Nikolas]

Mal eine Idee:

Delphi-Quellcode:

Bitmap.Canvas.TextOut(10 , 10, 'Ich bin eine Bildbeschriftung');
  Bitmap.Canvas.Brush.Style := bsClear;

Diese Zeilen umdrehen.

[torud]

danke, dass war´s