seja bem vindo ao forum eof, caso nao seja cadastrado se cadastre para poder visualizar todo o conteudo ^^

Você não está conectado. Conecte-se ou registre-se

 » Programação Desktop » Pascal / Delphi » [tutorial] desenhando com canvas (delphi) - 3º parte

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

Ir em baixo  Mensagem [Página 1 de 1]

Kodo no Kami

avatar
master
master
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;

[Você precisa estar registrado e conectado para ver 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;

[Você precisa estar registrado e conectado para ver 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

[Você precisa estar registrado e conectado para ver 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;

[Você precisa estar registrado e conectado para ver 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;

[Você precisa estar registrado e conectado para ver 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;

[Você precisa estar registrado e conectado para ver 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;

[Você precisa estar registrado e conectado para ver 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;

[Você precisa estar registrado e conectado para ver esta imagem.]

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

by kõdo no kami


_________________ASSINATURA_________________
[Você precisa estar registrado e conectado para ver esta imagem.]
[Você precisa estar registrado e conectado para ver esta imagem.]

Contato:
Spoiler:

Contato:
Facebook: [Você precisa estar registrado e conectado para ver este link.]
Skype: hackerfts315
http://endoffile.umforum.net

Voltar ao Topo  Mensagem [Página 1 de 1]

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum