graph (grobes problem) ;)

[passsy]

also leute ich wollte n graph zeichenen hab aber keinen blassen und über DP suche find ich au nix (google nichts was mir hilft)

eigentlich ganz einfach x-achse zeit y-achse werte (0-1000)

muss ich glaub mit nem TImage machen aber kann ich die punkte auch miteinander verbinden lassen?

oder geht das ganz anders?

[sirius]

Variante 1: Es gibt die Komponente TChart
Variante 2: Du malst auf ein Canvas mit moveto und lineto. Auf welches (Tform, TImage, ...) ist egal. Das kommt darauf an, was du nachher damit machen möchtest.

[SnuffMaster23]

Mit Image1.Picture.Bitmap.Canvas, mit den Methoden MoveTo und LineTo

//red box

[ice.icewing]

Mit einem Bespiel versteht man immer schneller:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i,j : integer;
begin
  with Paintbox1.Canvas do begin
    Pen.Color := clBlack;
    Pen.Width := 1;
    Pen.Style := psSolid;
    MoveTo(10,10);
    LineTo(10, PaintBox1.Height-10);
    LineTo(PaintBox1.Width-10, PaintBox1.Height-10);
    Pen.Color := clRed;
    Pen.Width := 2;
    Pen.Style := psSolid;
    for i := 11 to PaintBox1.Width-12 do begin
      if (i mod 4) = 0 then begin
        j := round(sin(i/20)*40)+PaintBox1.Height-80;
        Ellipse(i, j, i+5, j+5); //Kreis
      end;
    end;
  end;
end;

Mit der Ellipse ist nur Schow da tuts auch Pixels.

icewing

[sakura]

Erweitere doch bitte den Titel so, dass man weiß, was daws Problem mit dem Graphen grob ist.

......

[passsy]

hmm so jetzt mach ich es ma etwas präziser

also bsp.

1 TTimer
und ne random zahl (0-100)

ich will jetzt das er mir jede sec. die zahle auf dem graphen anzeigt.


das war eigentlich das was ich wissen wollt



trotzdem schon ma danke