Text Mittig auf ein bild zeichnen

[seppi.tm]

Also ich zeiche so ein text auf ein bild von mir:

Delphi-Quellcode:

with Image1.Picture.Bitmap.Canvas do
  begin
    Font.Color  := clBlack;
    Brush.Style := bsclear;
    Font.Size   := 10;
    Font.Name   := JvFontComboBox1.FontName;
    Font.Style  := [fsBold];
    TextOut(0, 1, edit1.Text);
  end;

sooo aber jetzt habe ich das Problem das ich es gerne mittig hätte das bild ist 32px lang un d ich will das der text in der mitte steht
wenn ich die hälfte nehme fängt er in der mitte an ... das will ich nciht wie kann ich das realisieren das er in der mitte steht?

[DeddyH]

Schau Dir mal DrawText an.

[seppi.tm]

ich habs jetzt so:


 DrawText(image1.Canvas.Handle,Pchar(edit1.text),length(edit1.Text),0,DT_CENTER); und bekomme den Fehler

Zitat:

[Fehler] Unit1.pas(41): Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

[DeddyH]

Wofür soll die 0 denn stehen? Da muss ein Rect rein.

[seppi.tm]

Zitat von DeddyH:

Wofür soll die 0 denn stehen? Da muss ein Rect rein.

ja hab ich grade auch gemerkt ^^
naja das wäre gelößt aber der text ist jetzt nicht ganz mittig er ist etwas nach rechts geschoben wie kann ich das beheben?

[taaktaak]

entweder sind leading/trailing blanks im text oder das rectangle ist falsch definiert

[seppi.tm]

so ist das rect definiert:
r:=Rect(0,0,image1.Picture.Width,image1.Picture.Height); das müsste doch richtig sein oder?

[taaktaak]

eigentlich schon!
sind blanks vor dem string?

[DeddyH]

Zeig mal den ganzen Aufruf.

[seppi.tm]

Keine blanks

hier der anufruf:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var r:trect;
begin
image1.Picture:=image2.Picture;
r:=Rect(0,0,image1.Picture.Width,image1.Picture.Height);
 with Image1.Picture.Bitmap.Canvas do
  begin
    Font.Color  := clBlack;
    Brush.Style := bsclear;
    Font.Size   := 10;
    Font.Name   := JvFontComboBox1.FontName;
    Font.Style  := [fsBold];
    DrawText(image1.Canvas.Handle,Pchar(edit1.text),length(edit1.Text),r,DT_CENTER );
  end;
  image1.Refresh;
end;