[tutorial] desenhando com canvas (delphi) - 3º parte

e ae galera continuando o tutorial anterior de delphi e canvas, nessa parte vamos criar mais algumas figuras geometricas entre elas circulos, na parte anterior a gente fez um circulo usando RoundRect que permite fazer borda arredondada

Código:

procedure TForm1.FormPaint(Sender: TObject);
begin
   Form1.Canvas.RoundRect(100,100,200,200,100,100);
end;

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

uma outra forma de desenhar um circulo é usar o metodo Ellipse, nesse metodo passamos como argumento o valor inicial de X e Y, e o valor final de X e Y

Código:

procedure TForm1.FormPaint(Sender: TObject);
begin
   Form1.Canvas.Ellipse(100,100,200,200);
end;

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

so uma coisa que temos que lembrar que diferente do retangulo que é uma reta entre o X inicial e o X final (ou Y inicial e Y final), no circulo é uma curva ou seja o valor vai variar dependendo do tamanho do circulo apenas o ponto onde definimos o inicio e o fim vai ter o valor definido os demais vai variar dependendo do tamanho entre o inicio e fim de X e Y

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

podemos desenhar um circulo usando o metodo arc tambem (arc é usado para fazer um arco), os argumentos deles são 8, sendo os 4 primeiros tem a mesma utilidade do ellipse e os 4 ultimos serve para definir a largura do arco (so nao entendi como funciona isso)

Código:

procedure TForm1.FormPaint(Sender: TObject);
begin
   Form1.Canvas.Arc(50,50,300,300,0,0,0,0);
end;

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

para desenhar uma linha usamos o metodo MoveTo para definir posição inicial depois o metodo LineTo que seria posição final da linha, em ambos os metodos passamos apenas dois argumentos que é o X e Y

Código:

procedure TForm1.FormPaint(Sender: TObject);
begin
   Form1.Canvas.MoveTo(100,100);
   Form1.Canvas.LineTo(300,100);
end;

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

uma coisa que eu esqueci de falar no segundo tutorial é que para mudar a cor da linha temos que usar o atributo Pen.Color

Código:

procedure TForm1.FormPaint(Sender: TObject);
begin
   Form1.Canvas.Pen.Color := clRed;
   Form1.Canvas.MoveTo(100,100);
   Form1.Canvas.LineTo(100,300);
end;

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

para mudar o tamanho da linha usamos o atributo Pen.Width

Código:

procedure TForm1.FormPaint(Sender: TObject);
begin
   Form1.Canvas.Pen.Width := 20;
   Form1.Canvas.Rectangle(100,100,200,200);
end;

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

para terminar essa parte do tuto desenhamos a bandeira nihon ^^

Código:

procedure TForm1.FormPaint(Sender: TObject);
begin
   Form1.Canvas.Brush.Color := clWhite;
   Form1.Canvas.Rectangle(100,100,300,200);
   Form1.Canvas.Brush.Color := clRed;
   Form1.Canvas.Ellipse(160,120,240,180);
end;

[Tens de ter uma conta e sessão iniciada para poderes visualizar esta imagem]

esse tuto vai ter mais algumas partes, entao ate proxima parte galera ^^

by kõdo no kami