Auf ein Image schreiben

[Sanchez]

Hallo,

So schaltest du die Hintergrundfarbe des Textes auf transparent:

  SetBkMode(Image1.Picture.Bitmap.Canvas.Handle, TRANSPARENT); grüße, daniel

[dedeur]

Delphi-Quellcode:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if FTextMode then begin
    edText.Left := X + Image1.Left;
    edText.Top  := Y + Image1.Top;
    edText.Visible := true;
    edText.AutoSize := true;
    edText.Text := '';
// Die gewünschten Einstellungen aus dem FontDiag werden in den TEXT übernommen
    Image1.Picture.Bitmap.Canvas.Font := FontDialog1.Font;
    SetBkMode(Image1.Picture.Bitmap.Canvas.Handle, TRANSPARENT);
    FTextMode   := false;
  end else begin
    Image1.Picture.Bitmap.Canvas.TextOut(edText.Left - Image1.Left , edText.Top - Image1.Top,
    edText.Text,);
    edText.Visible := false;
  end;

hab es mal so übernommen er führt auch aus jedoch ist der Hintergrund immer noch weiß

[Sanchez]

Ersetz das SetBkMode mal durch
  Image1.Picture.Bitmap.Canvas.Brush.Style := bsClear; Es reicht allerdings, wenn du diese Zuweisung im OnShow machst.

Ist aber eigenartig. Ich hab mal ein Projekt gemacht, wo es mit SetBKMode funktioniert hat.
Jetzt hab ich aber das aber bei meinen Anhang von Vorgestern versucht und da hats auch net geklappt

[dedeur]

Hervorragend wär ich heute nicht mehr drauf gekommen.

Wollt jetzt mal versuchen den Text immer in der Mitte des Bitmaps auszugeben...

muß ich da mit Position := poScreenCenter;

arbeiten


Gruß Patrick

[Sanchez]

Nö,
du musst doch einfach die Koordinaten beim TextOut anders setzen.
Einfach die Mitte vom Bild nehmen und die Text-Abmessungen abziehen.
Stichwort: Canvas.TextExtend

Die Position := poScreencenter lässt das Fenster immer in der Mitte des Screens auftauchen.

grüße, daniel

[dedeur]

Du meinst ich muss diese Zeile:

Code:

Image1.Picture.Bitmap.Canvas.TextOut(edText.Left - Image1.Left , edText.Top - Image1.Top, edText.Text,);

abändern?
Ich versteh das mit dem Canvas.TextExtent noch nicht so ganz
was macht das den?

Ich hab jetzt vermutet ich muss hinter dem Left und Top genaue Koordinaten angeben...

[Sanchez]

Mit

  Image1.Picture.Bitmap.Canvas.TextOut(Image1.Width div 2 , Image1.Height div 2, edText.Text); fängt der Text in der Mitte an.

TextExtent liefert dir die Abmessung des Strings. Die kannst du dann noch Abziehen.

Delphi-Quellcode:

  TextSize := Image1.Picture.Bitmap.Canvas.TextExtend(edText.Text);
  Image1.Picture.Bitmap.Canvas.TextOut((Image1.Width - TextSize.cx) div 2, (Image1.Height - TextSize.cy) div 2, edText.Text);

grüße, daniel

[dedeur]

Der

Code:

Image1.Picture.Bitmap.Canvas.TextOut(Image1.Width div 2 , Image1.Height div 2, edText.Text);

funzt super.

mit dem hab ich so meine Probleme

Code:

TextSize := Image1.Picture.Bitmap.Canvas.TextExtend(edText.Text);
    Image1.Picture.Bitmap.Canvas.TextOut((Image1.Width - TextSize.cx) div 2, (Image1.Height - TextSize.cy) div 2, edText.Text);

er gibt mir den Fehler

Delphi-Quellcode:

 [Fehler] Main.pas(81): Undefinierter Bezeichner: 'TextSize'
 [Fehler] Main.pas(81): Undefinierter Bezeichner: 'TextExtend'
 [Fehler] Main.pas(82): ')' erwartet, aber Bezeichner 'cx' gefunden

zurück.
hab versucht in der procedure eine Variable TextSIze angelgt als String... var TextSize : String;

der erste FEhler ist dann weg die andern bleiben bestehen.

[Sanchez]

Sorry mein Fehler.
Es heißt TextExtent und Textsize ist vom Type TSize.
Mit der OH (F1) hättest du das schneller rausgefunden.

grüße, daniel

[Darklanmaster]

ich hab auch noch ne frage!

ähhm ihr erzeugt ja so nur Bitmap Bilder. Gibs das auch für JPG bilder?
weil ich hab vor das bild per ftp ins internet hochzuladen. und BMP is mir zu groß.
Weiß jemand rat?

MFG
D@rklanmaster