23 replies to this topic

[eduarcol]

el canvas es una pizarra de dibujo, pero para dibujar debes utilizar comandos, para el triangulo yo utilizaria el polyline, donde se dibuja una linea en los puntos indicados, por ejemplo mira esta linea:

delphi

form1.Canvas.Polyline([point(10,10), point(20,30), point(30,30), point(10,10)]);

alli dibujas un triangulo, a pesar de tener 4 puntos, porque el primero y el ultimo es el mismo para que la linea cierre.


Voy a anexar un pequeño programita en C++
         

Turbo C++

        Version 1.01

    Copyright © 1990 by

Borland International, Inc.

es el juego de guerra naval, realizado lo que en ese entonces se conocia como Borland Graphic Interface BGI pero la mayoria de las funciones por no decir todas estan en el canvas, si quieres lo migras a delphi para que aprendas un poco de las funciones del canvas.

Attached Files

•  108_.zip   3.54KB   11 downloads

[Caral]

Hola
Este pequeño saltamontes no entiende Maistro, el dia que pueda entender C++ habré aprendido.
Maistro, Es verdad que se parece...........
Saludos

[eduarcol]

no es tan dificil como parece, es mas pior 

pero no te preocupes, despues que le agarras el truco no lo sueltas tan facil.


pd. Maistro, jeje, ingeniero y de pura suerte jajaja

[eduarcol]

eso, muevele y veras, me avisas si te quedan dudas

[eduarcol]

a ver si me puedo dar a entender:

Dentro de cada point tienes dos valores, uno es el eje x y el otro es el eje y, asi cada punto corresponde a un punto especifico en la pantalla donde Y es la coordenada vertical X la coordenada horizontal.

Imaginate que el form es un eje de coordenadas, y trata de ubicar los puntos en el, un triangulo tiene 4 puntos porque el primero y el ultimo son los mismos, inicio y fin.

[egostar]

Con el ejemplo que entendiste, vas a entender mejor el asunto.

delphi

procedure TForm1.Button2Click(Sender: TObject);
begin
  with Canvas do begin
    Pen.Color := clYellow;
    Pen.Width := 3;
    Brush.Color := clGreen;
    Polygon([point(150,150), point(250,200), point(150,200)]); //Omiti el arreglo de TPoints y los he acomodado en la funcion Polygon...
  end;
end;

Salud OS

[axesys]

¿Como se le harí­a para dibujar un triangulo equilatero y que cuando minimizes o le pongas algo encima al triangulo no se borre?

[egostar]

¿Como se le harí­a para dibujar un triangulo equilatero y que cuando minimizes o le pongas algo encima al triangulo no se borre?

Hola amigo

Utilizando el evento OnPaint de la forma

delphi

procedure TForm1.FormPaint(Sender: TObject);
begin
   //Dibujar Triangulo equilatero
end;

Salud OS

[axesys]

¿Como se le harí­a para dibujar un triangulo equilatero y que cuando minimizes o le pongas algo encima al triangulo no se borre?

Hola amigo

Utilizando el evento OnPaint de la forma

delphi

procedure TForm1.FormPaint(Sender: TObject);
begin
   //Dibujar Triangulo equilatero
end;

Salud OS

Muy bien ya no se borra

¿Y como se le podrá hacer para dibujar el triangulo como equilatero?

[egostar]

Hola

delphi

procedure TForm1.FormPaint(Sender: TObject);
var
  Puntos: array of TPoint;
begin
  with Canvas do begin
    Pen.Color := clBlue;
    Brush.Color := clBlue;
    SetLength( Puntos, 3 );
    Puntos[0].x := 10;
    Puntos[0].y := 220;
    Puntos[1].x := 100;
    Puntos[1].y := 220;
    Puntos[2].x := 50;
    Puntos[2].y := 150;
    Polygon( Puntos );
  end;
end;

Salud OS

[axesys]

Sale un escaleno con todos los lados diferentes

90
86.02
80.62

delphi

procedure TForm1.FormPaint(Sender: TObject);
function distancia(p1,p2: TPoint):double;
begin
  Result:= sqrt(sqr(p2.x-p1.x)+sqr(p2.y-p1.y)) //http://es.wikipedia.org/wiki/Distancia
end;
var
 Puntos: array of TPoint;
begin
 with Canvas do begin
   Pen.Color := clBlue;
   Brush.Color := clBlue;
   SetLength( Puntos, 3 );
   Puntos[0].x := 10;
   Puntos[0].y := 220;
   Puntos[1].x := 100;
   Puntos[1].y := 220;
   Puntos[2].x := 50;
   Puntos[2].y := 150;
   Label1.Caption:=FloatToStr(distancia(Puntos[0],Puntos[1]));
   Label2.Caption:=FloatToStr(distancia(Puntos[1],Puntos[2]));
   Label3.Caption:=FloatToStr(distancia(Puntos[2],Puntos[0]));
   Polygon( Puntos );
 end;
end;

Edito: Habí­a puesto mal la formula 

[Fenareth]

Hola axesys !

Has visto ya este hilo ???... creo que encontrarás algo muy bueno 

Saludos

[axesys]

Hola axesys !

Has visto ya este hilo ???... creo que encontrarás algo muy bueno 

Saludos

Hola Fenareth, si esta muy bueno me gusto lo de la estrella, aunque ese triángulo tampoco es equilatero tiene dos lados de 172.05 y uno de 200 así­ que es un isósceles

[axesys]

Con este ya sale más equilatero pero sale de cabeza alguien sabe como voltearlo

150
150.08
150.08

delphi

procedure TForm1.FormPaint(Sender: TObject);
function distancia(p1,p2: TPoint):double;
begin
  Result:= sqrt(sqr(p2.x-p1.x)+sqr(p2.y-p1.y)) //http://es.wikipedia.org/wiki/Distancia
end;
const
 lado = 150;
var
 Puntos: array of TPoint;
begin
 with Canvas do begin
   Pen.Color := clBlue;
   Brush.Color := clBlue;
   SetLength( Puntos, 3 );
   Puntos[0].x := 0;
   Puntos[0].y := 0;
   Puntos[1].x := lado;
   Puntos[1].y := 0;
   Puntos[2].x := Round(lado/2);
   Puntos[2].y := Round((lado/2)*sqrt(3));
   Label1.Caption:=FloatToStr(distancia(Puntos[0],Puntos[1]));
   Label2.Caption:=FloatToStr(distancia(Puntos[1],Puntos[2]));
   Label3.Caption:=FloatToStr(distancia(Puntos[2],Puntos[0]));
   Polygon( Puntos );
 end;
end;

[egostar]

Hola

Intenta con esto

delphi

  Puntos[0].x := 0;
  Puntos[0].y := 260;
  Puntos[1].x := lado;
  Puntos[1].y := 260;
  Puntos[2].x := Round(lado/2);
  Puntos[2].y := Round((lado/2)*sqrt(3));

Salud OS