grafico tipo gerenciador = desenpenho

Delphi

14/03/2003

por favor precso fazer um grafico tipo o grafico cardiaco


Anonymous

Anonymous

Curtidas 0

Respostas

Marcelo Saviski

Marcelo Saviski

14/03/2003

[color=#128932:f5b7b677e6][b:f5b7b677e6]Coloque um TImage e um timer no form

timer.interval = 100;
image.height = 200;

[/b:f5b7b677e6][/color:f5b7b677e6]

var
num : integer = 100; //variavel global

[color=128932:f5b7b677e6][b:f5b7b677e6]
no evento ontimer do timer faça[/b:f5b7b677e6][/color:f5b7b677e6]

begin
image1.canvas.copyrect(bounds(-1,0,image1.width-1,image1.height),image1.canvas,bounds(0,0,image1.width,image1.height));
num := num + random(3)-1;
image1.canvas.pixels[image1.width-1,num] := clgreen;
end;



GOSTEI 0
POSTAR