Entwickler-Ecke
Sonstiges (Delphi) - Buchstaben zeichnen
Huntergamer - Di 26.01.10 16:17
Titel: Buchstaben zeichnen
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 - Di 26.01.10 16:20
Hallo und :welcome: 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
Huntergamer - Di 26.01.10 16:53
Hatte schon 2-3 Buchstaben geschrieben. Gibts dafür nicht einfache, vorprogrammierte befehle bei Delphi?
Hier mal ein Ausschnitt:
Für A:
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 - Di 26.01.10 16:58
Wenn du die fertige Textausgabe (siehe oben) nicht benutzen darfst / willst, dann musst du es selbst machen, ja.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!