Ver Mensaje Individual
  #3  
Antiguo 16-10-2015
noobdelphi5 noobdelphi5 is offline
Miembro
NULL
 
Registrado: ene 2015
Posts: 22
Reputación: 0
noobdelphi5 Va por buen camino
Smile krikosito

Hola krikosito, no se que a que planos te refieras, ni muy bien lo que quieres lograr pero te comparto esta información a ver si te sirve.

Yo lo que haría para dibujar una cuadricula sería abrir el plano o dibujarlo y después pintar con la clase canvas la cuadricula y se haría mas o menos así:

Código Delphi [-]
//En mi caso ocupo AltoEscala y AnchoEscala, que son funciones que me devuelven las cantidades en escala.
//pero tú colocarías las cantidades referentes a tu imagen.

//Esto sería una cuadricula

  //Dibujo lineas verticales
  divisiones:=8;
  tamDiv:=Round(1000/divisiones);
  FOR j := 0 TO divisiones DO
  BEGIN
  Canvas.Pen.Width:=2;
  Canvas.Pen.Color := clBtnFace;
  // Se coloca el punto uno primero se coloca x y despues y
  Canvas.MoveTo (AnchoEscala(TamDiv*j),AltoEscala(1000)) ;
  // Se coloca el punto dos primero se coloca x y despues y
  Canvas.LineTo (AnchoEscala(TamDiv*j),AltoEscala(0));
  END;


  // Dibuja líneas horizontales
  Canvas.Pen.Width:=2;
  Canvas.Pen.Color := clBtnFace;
  divisiones:=10;
  FOR j := 0 TO divisiones DO
  BEGIN
  // Se coloca el punto uno primero se coloca x y despues y
    Canvas.MoveTo ( Base,       AltoEscala(100*j) );
 // Se coloca el punto dos primero se coloca x y despues y
    Canvas.LineTo ( Base+Ancho, AltoEscala(100*j) );
  END;


Aqui te dejo link de como hacer unas graficas para que tomes de ejemplo como usar la clase canvas:
http://www.efg2.com/Lab/Graphics/SimpleBarChart.htm

Y aqui te dejo link de la explicacion de la clase canvas:

http://delphiallimite.blogspot.mx/20...tcanvas-i.html

Aqui explica las raices en delphi:
http://www.clubdelphi.com/foros/showthread.php?t=49087

Última edición por noobdelphi5 fecha: 16-10-2015 a las 17:15:22.
Responder Con Cita