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:

Delphi-Quellcode:

 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:

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:

Delphi-Quellcode:

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;

[DeddyH]

Willst Du direkt auf das Image oder auf die enthaltene Bitmap zeichnen?

[seppi.tm]

auf das bitmap ^^ also nicht die datei sondern das was ich sehe wieso?

[DeddyH]

Delphi-Quellcode:

DrawText(image1.Picture.Bitmap.Canvas.Handle,Pchar(edit1.text),length(edit1.Text),r,DT_CENTER );

So besser?

[seppi.tm]

Genau das selbe problem und dabei auch:

Delphi-Quellcode:

TextOut(round( (image1.picture.Width/2)-(TextWidth(edit1.Text)/2) ),1,edit1.Text);

und string habe icha cuhs chon direkt eingetragen ist das selbe...

[DeddyH]

Dann noch anders:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var r:trect;
begin
image1.Picture:=image2.Picture;
r:=Rect(0,0,image1.Width,image1.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(trim(edit1.text)),
             -1,
             r,
             DT_CENTER or DT_VCENTER or DT_SINGLELINE);
  end;
  image1.Refresh;
end;

[seppi.tm]

jetzt zeichnet er nichts mehr

[seppi.tm]

so habe das problem gelößt mit der länge -1 klappt alles O.o...

[Hador]

Probiere es mal so:

Delphi-Quellcode:

var
  w: Integer;
begin
  {...}
  w := Canvas.TextWidth('Testtext');
  Canvas.TextOut((Width - w) div 2, 100 {Y-Coord}, 'Testtext');
  {...}
end;

Canvas.Textwidth gibt die die Textlänge in Pixel in Abhängigkeit von der verwendeten Schrift aus.

EDIT: Arr ... 2. Seite übersehen. Is aber dennoch einfacher die Lösung ^^