Autor Beitrag
schani
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 39



BeitragVerfasst: Sa 22.09.07 21:56 
Hi,


gibt es ne einfache Möglichkeit per Canvas ein Strichmännchen zu malen?

Bislang habe ich einfach eine Linie gemalt, auf der das Männchen setehen soll...

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
with Image1.Canvas do
   begin
      MoveTo(0,250);
      lineTo(form1.width,250);

   end;



Das Strichmänchen bekomme ich aber leider noch nicht hin.

Tipps?
BenBE
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 8721
Erhaltene Danke: 191

Win95, Win98SE, Win2K, WinXP
D1S, D3S, D4S, D5E, D6E, D7E, D9PE, D10E, D12P, DXEP, L0.9\FPC2.0
BeitragVerfasst: Sa 22.09.07 22:00 
Zeichne Dir das Strichmännel auf einem Stück Karo-Papier vor (jeweils einen Punkt auf nem Kreuzungspunkt) und zeichne ein Koordinaten-System ähnlich dem von Delphi dazu (Also oben links 0;0 und nach rechts und unten die Werte größere werdend.

Nun noch die Achsen im Abstand von 50-100 "Einheiten" durchnummerieren und dir ne Liste aller EINZELNEN Linien aufschreiben, die Du auf dem Blatt gezeichnet hast, um das Strichmännel aufzumalen.

Danach einfach noch, wie Du das für den Boden getan hast,, Linie für Linie in Delphi programmieren.

_________________
Anyone who is capable of being elected president should on no account be allowed to do the job.
Ich code EdgeMonkey - In dubio pro Setting.
schani Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 39



BeitragVerfasst: Sa 22.09.07 22:16 
ok, soweit so gut... jetzt muss ich nur noch wissen wie ich den kopf hinbekomme...


ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
with Image1.Canvas do
   begin
      MoveTo(0,250);
      lineTo(form1.width,250);
      moveto(125,250);
      lineto(130,235);
      //beine
      moveto(135,250);
      lineto(130,235);
      moveto(130,235);
      //körper
      lineto(130,215);
      //arme
      moveto(130,225);
      lineto(120,215);

      moveto(130,225);
      lineto(140,215);

      TextOut(30,30,'hallo');
   end;
Tilo
ontopic starontopic starontopic starontopic starofftopic starofftopic starofftopic starofftopic star
Beiträge: 1098
Erhaltene Danke: 13

Win7 geg. WInXP oder sogar Win98
Rad2007
BeitragVerfasst: Sa 22.09.07 23:15 
Zum Kreiszeihnen einfach nach DrawEclipse oder so suchen.
jaenicke
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 19314
Erhaltene Danke: 1747

W11 x64 (Chrome, Edge)
Delphi 11 Pro, Oxygene, C# (VS 2022), JS/HTML, Java (NB), PHP, Lazarus
BeitragVerfasst: So 23.09.07 12:15 
Hier findest du etwas zu dem Thema, insbesondere unter Zeichenfunktionen solltest du mal nachsehen:
www.cfg-hockenheim.d...i/grafik/grafik.html
joker0000
ontopic starontopic starontopic starontopic starontopic starontopic starofftopic starofftopic star
Beiträge: 70

Win XP
Delphi 2006
BeitragVerfasst: Mo 24.09.07 20:59 
für den kopf dann einfach ellipse(x1,y1,x2,y2);