Construindo gráfico com Canvas
Dica publicada em Kylix / Avançado
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:
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.
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;
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.