Ver Mensaje Individual
  #2  
Antiguo 14-05-2004
sanxpue sanxpue is offline
Miembro
 
Registrado: jul 2003
Posts: 196
Reputación: 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