Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Gráficos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 13-05-2004
Jessica666 Jessica666 is offline
Miembro
 
Registrado: may 2004
Posts: 13
Poder: 0
Jessica666 Va por buen camino
Cuadricular un Grafico

Hola a todos

No se si esto que pregunto es muy basico pero no trago entero y no se
necesito saber como hago para tener una imagen (foto, garafico,etc) en una forma y visualizarla con una cuadricula sobrepuesta en ella....
no se como hacerlo por favor ayuda

Responder Con Cita
  #2  
Antiguo 14-05-2004
sanxpue sanxpue is offline
Miembro
 
Registrado: jul 2003
Posts: 196
Poder: 21
sanxpue Va por buen camino
Lightbulb Weno..lo que quieres

Hacer, mas bien lo que debes de hacer es poner dos TImage,
El Image1 es donde esta tu Grafico y el segundo debe de tener la propiedad transparent := True;

El Image2 debe de estar arriba del Image1..

Aqui lo vamos a hacer en el procedimiento OnActivate de la Forma
Código Delphi [-]
  private
    Factor : Integer;//saber el tamaño de la cuadricula
  public
  end;

Código Delphi [-]
Procedure TForm1.FormActivate(Sender: TObject);
Begin
  Factor := 10;
  Image2.Left := Image1.Left;
  Image2.Top := Image1.Top;
  Image2.Height := Image1.Height;
  Image2.Width := Image1.Width;
  SpeedButton1Click(Sender);
End;

Procedure TForm1.SpeedButton1Click(Sender: TObject);
Var
  K,I : Integer;
Begin
  Image2.Refresh;
  Image2.Canvas.Pen.Color := clRed;
  Image2.Canvas.Pen.Width := 2;
  Image2.Canvas.FillRect(Image2.ClientRect);
  I := 1;
  K := 0;
  While K < Image2.Width Do
  Begin
    Image2.Canvas.MoveTo(I*Factor, 0);
    Image2.Canvas.LineTo(I*Factor, Image2.Height);
    Inc(K,Factor);
    Inc(I);
  End;
  I := 1;
  K := 0;
  While K < Image2.Height Do
  Begin
    Image2.Canvas.MoveTo(0, I*Factor);
    Image2.Canvas.LineTo(Image2.Width,I*Factor);
    Inc(K,Factor);
    Inc(I);
  End;
  Inc(Factor,5);//para que cuando le des click al boton vayas 
                     //viendo como cambia la cuadricula
End;

Con eso pones una cuadricula enfrente de tu Imagen
__________________
saludos desde Puebla Mexico..
asanxt@hotmail.com
"como siempre a sus ordenes y siempre con buena cara"
'lolita me excitas, perversa piel de melocotón'

Última edición por sanxpue fecha: 14-05-2004 a las 20:15:25.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 22:57:46.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi