Buscar por:

Grafico com canvas

Código

//GRAFICO DESENVOLVIDO POR MIM USANDO CANVAS

//USA SE UM TIMAGE NUM FORM

//NO EVENTO DO ON SHOW FORM:

procedure TForm1.FormShow(Sender: TObject);

begin

image1.canvas.color:=clred;//defina a cor

image1.canvas.rectangle(0,0,369,30); //função máxima(GRAFICO ORIZONTAL)

//NO EVENTO DESEJADO:

procedure TForm1.Button1Click(Sender: TObject);

VAR C:INTEGER;

C:=0;

REPEAT

INC(C);

image1.picture.clear;//atualiza

image1.canvas.color:=cllime;//defina a cor do fundo

image1.canvas.rectangle(0,0,369,30); //função máxima

image1.canvas.color:=clred;//defina a cor função

//O GRAFICO FUNCIONA DE ACORDO COM A VARIAVEL (C)

image1.canvas.rectangle(0,0,(369-(C)),30); //função

UNTIL(C=369);

END.

//USE-A COMO QUISER E FAÇA SUA INCREMENTAÇÃO !!!