ساخت گراف

[Mask]

سلام
من یه گراف میخام دقیقا شبیه به گراف taskmgr.
به طور مثال در عکس زیر:
میخام ابتدا و انتها رو معلوم کنم مثلا 1 تا 5: و در یه تایمر هر یک ثانیه یه عدد بین 1 تا 5 بفرستم واسه گراف.
و هی نمایش بده و بره جلو.
با چه کامپوننتی و روشی این کارو باید کرد؟
ممنون.

[یوسف زالی]

سلام.
نمونه رو ببین:

[Ananas]

http://barnamenevis.org/showthread.php?369602-%D8%B1%D8%B3%D9%85-%DA%AF%D8%B1%D8%A7%D9%81-%D8%AF%D8%B1-Canvas&highlight=%DA%AF%D8%B1%D8%A7%D9%81

[بهروز عباسی]

با چه کامپوننتی و روشی این کارو باید کرد؟اگه JVCL رو داشته باشی کاپوننت باحالی داره الان اسمش یادم نیست

اینم خودم نوشتم !


104664

104665

اینم مثال :
procedure TForm1.FormCreate(Sender: TObject);
begin
grph1.SetBackColor(clBlack);
grph1.DrawScale(clGreen, clBlack, grph1.Height div 2);

grph2.SetBackColor(clBlack);
grph2.BackgroundPaint;

end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
grph1.Value := Random(100);
grph1.PaintGraph;

grph2.Value := Random(100);
grph2.PaintGraph;
end;
یه کم باهاش سرو کلّه بزنی درست میشه:لبخند:
موفق باشی