Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Pyramide zeichnen

    Delphi
    by Neutral General, 15. Mär 2007
  Hi,
  
  procedure TForm1.Button1Click(Sender: TObject);
  var i,x,y: Integer;
  begin
  for i:= 0 to 200 do
  begin
  x:= 300 - i; // 300 ist die X Position der Spitze
  y:= 10 + i; // 10 ist die Y Position der Spitze
  Canvas.Pen.Color := RGB(random(256),random(256),random(256)); // wenn mans bunt haben will :P (randomize ins FormCreate!