Delphi dicas

Grafico com canvas

//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 !!!

por : Almir Bispo Dos Santos Filho