Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)
-   -   Cuadricular un Grafico (https://www.clubdelphi.com/foros/showthread.php?t=10254)

Jessica666 13-05-2004 23:20:45

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

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

sanxpue 14-05-2004 20:13:12

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


La franja horaria es GMT +2. Ahora son las 21:41:31.

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