Construindo gráfico com Canvas

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

[ Hits: 8.229 ]

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

Lazarus: Banco nativo usando sdfdataset com formato CSV

Adicionando campos de arquivo csv em componente do lazarus

Leitura recomendada

Criando log de erro para seus programas Kylix

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

Solução para arquivos com ^M no final de cada linha

SED - combinando o conteúdo de dois arquivos

Instalação do OpenOffice no Arch Linux

  

Comentários

Nenhum comentário foi encontrado.



Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts