text mit größe des fensters ändern

[Molzer]

Hallo!

wie kann sich mein text mit der größe des fensters mitverändern?

Delphi-Quellcode:

procedure TForm2.FormResize(Sender: TObject);
begin
Canvas.Font.Size:=10;
Canvas.Textout(193,57,'12');
Canvas.Textout(275,135,'3');
Canvas.Textout(195,217,'6');
Canvas.Textout(120,135,'9');
end;

fg

[taaktaak]

Wie verändern?
Soll er die Positin ändern, oder größer werden, oder beides?

[Molzer]

mein text soll immer genauso aussehen wie beim starten, egal wie groß
das fenster ist...

[taaktaak]

Also soll er sich nicht verändern?

[Molzer]

wenn ich zb die zahl 2 in die mitte schreibe und dann jemand mein fenster größer macht soll der 2er immer in der mitte stehen..

[taaktaak]

Aha, also soll die Schriftgröße beibehalten werden, die Position aber angepasst.

[Valle]

Delphi-Quellcode:

X := (Width div 2) - (Canvas.TextWidth('Wuppdi') div 2);
Y := (Height div 2) - (Canvas.TextHeight('Wuppdi') div 2);

Ich hoffe "TextHeight" und "TextWidth" sind die richtigen Funktionsnamen, ich habe gerade kein Delphi hier. Ansonsten ist das nur ein bisschen Mathematik, Molzer.

Edit:// Mathematik, die ich nicht kann. "div" "-"

Mit freundlichen Grüßen,

Valle

[Molzer]

danke, aber er schreibt mir gar nix...

[Molzer]

habs schon danke

[Molzer]

was muss ich tun damit sich meine striche an die größe meines fensters anpassen?

Delphi-Quellcode:

procedure TForm2.FormResize(Sender: TObject);
begin
mx := Width  div 2;
my := Height div 2;
with canvas do begin
  pen.Width:=3;
  pen.Color:=clblack;
  moveto(mx,my-100);
  lineto(mx,my-120);

  pen.Width:=3;
  pen.Color:=clblack;
  moveto(mx-100,my);
  lineto(mx-120,my);

  pen.Width:=3;
  pen.Color:=clblack;
  moveto(mx+100,my);
  lineto(mx+120,my);

  pen.Width:=3;
  pen.Color:=clblack;
  moveto(mx,my+100);
  lineto(mx,my+120);

end;