1:
2:
3:
4:
5:
6:
7:

procedure Dreieck(canv:TCanvas; x1,y1,x2,y2,x3,y3:integer; Farbe:TColor)
Begin

  Voll viel Code
  Bitte füllen

end;					

1:
2:
3:
4:
5:

canc.PenColor(Farbe) //Setzt die Zeichenfarbe auf die Variable Farbe

canv.MoveTo(x1,y1); //Setzt Zeichenstift nach x1,y1

canv.LineTo(x2,y2); //Zieht von Ausgangspunkt eine Linie nach x2,y2					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:

procedure TDreieck.Zeichnen(canv:Tcanvas;ax,ay,bx,by,cx,cy:integer;Farbe:TColor);
var
  y             : integer;       { Schleifenvariable für die Scanzeile  }
  x1,x2,x3      : real;          { x-Werte für Scanline-Algorithmus     }
  m1,m2,m3      : real;          { Increments für die x-Werte           }
begin
  Canv.Pen.Color:=Farbe;
  Canv.Brush.Color:=Farbe;
  x1  := ax;                                    { x-Wert Linie A -> B   }
  x2  := bx;                                    { x-Wert Linie B -> C   }
  x3  := ax;                                    { x-Wert Linie A -> C   }

  m1 := (bx-ax) / (by-ay);                      { Increments   A -> B   }
  m2 := (bx-cx) / (by-cy);                      { Increments   B -> C   }
  m3 := (cx-ax) / (cy-ay);                      { Increments   A -> C   }

  for y := ay to by-1 do                        { erste Teilfläche      }
    begin
      Canv.MoveTo(round(x1), y);
      Canv.LineTo(round(x3), y);
//      Line (round(x1), y, round(x3), y, color); { horiz. Linie          }
      x1 := x1 + m1;
      x3 := x3 + m3
    end;

    for y := by to cy do                          { zweite Teilfläche     }
    begin
      Canv.MoveTo(round(x2), y);
      Canv.LineTo(round(x3), y);
//    Line (round(x2), y, round(x3), y, color); { horiz. Linie          }
      x2 := x2 + m2;
      x3 := x3 + m3
    end
end;