Hallo!

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

markieren

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

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

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

Also soll er sich nicht verändern?

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..

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

markieren

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

danke, aber er schreibt mir gar nix...

habs schon danke

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

zusammenfalten · markieren

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;