Cuadricular un Grafico

[Jessica666]

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:confused:

:confused: :confused: :confused: :confused: :confused: :confused:

[sanxpue]

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

private
Factor : Integer;//saber el tamaño de la cuadricula
public
end;



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 :D