Graf!

60 point er ikke så meget, men det er en interessant opgave. Jeg tror sgu jeg vil kigge på den. Forvent dog ikke noget (så blir du ikke skuffet). :o)

www.tradestone.dk/eksperten/chart.zip

Stoney

Hæhæ. Nord, syd, øst, vest.. Alle ved, at Stoney er bedst. :D

Brug en Image og en Button:

procedure TForm1.Button1Click(Sender: TObject);
const
  num = 10; {antal mellemrum, dvs. 11 punkter}
var
  i: integer;
  xdel,ydel: double;
begin
  xdel := (image1.width-20)/num;
  ydel := image1.height-20;
  Image1.Canvas.fillrect(ClientRect); {sletter image}
  Image1.Canvas.MoveTo(10,10);
  Image1.Canvas.LineTo(10,Image1.height-10);  {koordinatsystem}
  Image1.Canvas.LineTo(Image1.width-10,Image1.height-10);
  Randomize;
  Image1.canvas.MoveTo(10,Image1.height-10-Round(Random*ydel));
  for i := 1 to num do
  begin
    Image1.canvas.LineTo(10+Round(i*xdel),
            Image1.height-10-Round(Random*ydel));
  end;
end;

--> Stoney:
Chart duer ikke på delphi3 (og tidligere)
Desværre - den virker ellers smart.

--> jakob:
Hvis der skal mindre udsving på grafen, så sæt
ydel:= (image1.height-20)/2;

hreiff>>
Chart duer ikke på delphi3 (og tidligere)

bruger jacob/cosmo da delphi3 eller tidligere

Stoney

>>>Alle
Nej jeg gør ikke jeg bruger delphi 6.

Tak for de fede svar:)
Men jeg er stødt på et problem igen.

Dette kan løse det:

Hvordan kan jeg lave en slags variabl der gemmer en canvas(Graf), og så hver gang jeg trykker på en knap skal den lave en ny Canvas(graf) + den gamle Canvas(Graf) gemt i variablen.

Stoney: Åbenbart ikke, men det gør jeg, og jeg kunne godt have brug for en graf-komponent, så jeg biksede noget sammen selv.

Jakob: Hvis du bruger Image og opretter på følgende måde:

  var
    Bitmap: TBitmap;
  Begin
    Bitmap := TBitmap.Create;
    Bitmap.Height := Image.Height;
    Bitmap.Width := Image.Width;
    Image.Picture.Graphic := Bitmap;
  end;

kan du gemme hele billedet sådan:

  Image.Picture.SaveToFile(SaveDialog.FileName);

Eller du kan også arbejde med flere forskellige bitmaps, som du kan tegne videre på eller skifte imellem, f.eks

  Bitmap2 := Image.Picture.bitmap;
  Image2.Picture.Graphic := Bitmap2;

(kopierer fra image til image2 via variablen bitmap2)

(Se iøvrigt også Assign for TBitmap i hjælpen)

Da grafen iøvrigt bare er en funktion af nogle tal, kan du bare gemme den som en array, og så gentegne funktionen ud herfra. Det fylder meget mindre end at gemme hele bitmap'en.
Jeg vender tilbage lidt senere med et eksempel.

//hreiff

var
  Bitmap: TBitmap;


procedure TegnGraf(const a: array of double; const num: integer);
const
  kant = 10;
var
  i: integer;
  xdel,ydel: double;
begin
  xdel := (Form1.image1.width-2*kant)/num;
  ydel := Form1.image1.height-2*kant;
  Form1.Image1.Canvas.fillrect(Form1.ClientRect);
  Form1.Image1.Canvas.MoveTo(kant,kant);
  Form1.Image1.Canvas.LineTo(kant,Form1.Image1.height-kant);
  Form1.Image1.Canvas.LineTo(Form1.Image1.width-kant,
          Form1.Image1.height-kant);
  Form1.Image1.canvas.MoveTo(kant,
          Form1.Image1.height-kant-Round(a[0]*ydel));
  for i := 1 to num do
  begin
    Form1.Image1.canvas.LineTo(kant+Round(i*xdel),
          Form1.Image1.height-kant-Round(a[i]*ydel));
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  num = 10; {antal mellemrum, dvs. 11 punkter}
var
  i: integer;
  a: array[0..num] of double;
begin
  for i := 0 to num do
    a[i] := random;
  TegnGraf(a,num);    { her kan du bruge array a,b,c osv. for}
end;                  { forskellige grafer }

procedure TForm1.FormCreate(Sender: TObject);
Begin
  Bitmap := TBitmap.Create;
  Bitmap.Height := Image1.Height;
  Bitmap.Width := Image1.Width;
  Image1.Picture.Graphic := Bitmap;
  randomize;
end;

Du kan jo også lave noget tilsvarende med Stoney's Chart-eksempel.