Construindo gráfico com Canvas

Publicado por Almir Bispo dos Santos Filho em 12/11/2007

[ Hits: 7.036 ]

Blog: http://adltecnologia.blogspot.com.br

 


Construindo gráfico com Canvas



Dica: Como fazer um gráfico dinâmico com canvas!

Eu criei estes métodos:

Precisamos de um form, um timage e um edit. No evento onshow do form coloque este código:

procedure TForm1.FormShow(Sender: TObject);
var x,y:integer;
begin
image1.canvas.color:=clred;//defina a cor
image1.canvas.rectangle(0,0,30,300); //função máxima
edit1.text:='0';//zero
end;
//o código acima descreve como é criado o fundo do gráfico
//o código abaixo descreve como o gráfico se comporta:
//coloque no evento on change do edit1:

procedure TForm1.Edit1Change(Sender: TObject);
var x,y:integer;
begin
x:=strtoint(edit1.text);//insira as variáveis
image1.picture.clear;//atualiza
image1.canvas.color:=cllime;//defina a cor do fundo
image1.canvas.rectangle(0,0,30,300); //função máxima
image1.canvas.color:=clred;//defina a cor função
image1.canvas.rectangle(0,0,30,300-x); //função

end;

OBS: Você redimensiona o "image" de acordo com sua aplicação.

O text do edit tem que ter o número 0 (zero).

Obrigado pela atenção.

Outras dicas deste autor

Adicionando campos de arquivo csv em componente do lazarus

Lazarus: Banco nativo usando sdfdataset com formato CSV

Leitura recomendada

Programação Kylix: Informações do menu na barra de status

Criando log de erro para seus programas Kylix

Assistir vídeos da globo no Debian

Erro: "insufficient privileges" [Resolvido]

Alterando programa padrão para abertura de arquivo no Fedora 15

  

Comentários

Nenhum comentário foi encontrado.



Contribuir com comentário