Buchstaben zeichnen

Huntergamer · Hält's aus hier Beiträge: 5

Hallo!
könnte mir jemand helfen. Muss alle Buchstaben mit Canvas zeichnen. Bräuchte dafür die proceduren mit der Variablen x,y für den Anfangspunkt und a für die größe.

der organist · Verfasst: Di 26.01.10 16:20

Hallo und

huntergamer,

wie genau müssen die Buchstaben denn sein? Wenns es nicht so auf die Ästethik ankommt, dann ist es nicht schwer, da selbst was auszuprobieren. Denn wir sind hier keine Community um Hausaufgaben zu erledigen (es sei denn gegen Bezahlung). Wir helfen dir gerne, aber du musst schon Code mitbringen und dann konkrete Fragen stellen.

Gruss, Lukas

_________________
»Gedanken sind mächtiger als Waffen. Wir erlauben es unseren Bürgern nicht, Waffen zu führen - warum sollten wir es ihnen erlauben, selbständig zu denken?« Josef Stalin

jaenicke · Verfasst: Di 26.01.10 16:21

Hallo und

Meinst du Canvas.TextOut?

Huntergamer · Hält's aus hier Beiträge: 5

Hatte schon 2-3 Buchstaben geschrieben. Gibts dafür nicht einfache, vorprogrammierte befehle bei Delphi?
Hier mal ein Ausschnitt:
Für A:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.A(x,y,a: integer);
begin
 with image1.Canvas do
 begin
 mvoeto(x,y);
 lineto(x+round(a*0.5),y-a);
 lineto(x+a,y);
 moveto(x+round(a*0.25),y-round(a*0.5));
 lineto(x+round(a*0.75),y-round(a*0.5));
end;
end;

Das wäre jetzt der buchstabe A. Wollte halt nurmal wissen, ob man iwo den Quelltext für die restlichen bekommmen könnte.
Falls nicht, werde ich es schnell machen.

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

jaenicke · Verfasst: Di 26.01.10 16:58

Wenn du die fertige Textausgabe (siehe oben) nicht benutzen darfst / willst, dann musst du es selbst machen, ja.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme