Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Cuadricular una forma (https://www.clubdelphi.com/foros/showthread.php?t=17574)

luis_sencion 13-01-2005 18:53:46

Cuadricular una forma
 
Hola a todos necesito ayuda referente de como puedo cuadricular una forma en delphi, para que tengan un ejemplo es como el componente de zreport.

lo necesito para un programa de banco para que el usuario pueda configurar los cheques.

Coco 13-01-2005 19:39:05

puedes escribir lineas directamente sobre el canvas de tu forma, los metodos que deberias utilizar son

canvas.lineTo(x,y);
Canvas.MoveTo(x,y);

o bien
canvas.rectangle(x1,y1,x2,y2);

Saludos

Neftali [Germán.Estévez] 14-01-2005 09:51:33

Cita:

Empezado por luis_sencion
...como puedo cuadricular una forma en delphi, para que tengan un ejemplo es como el componente de zreport.

Prueba a poner un form con un TButton; En el Click programa lo siguiente:

Código Delphi [-]
 const
   GRID_INC = 10;   // Grid cada 10 pixels
 var
   i,j:Integer;
 begin
 
   // Inicializar
   i := 0;
   j := 0;
 
   // A lo ancho
   while i < Self.Width do begin
     // A lo largo
     while j < Self.Height do begin
 
       // Pintar Grid
       Canvas.Pixels[i, j] := clBlack;
       j := j + GRID_INC;
 
     end;
     // Incremenetar y reiniciar
     i := i + GRID_INC;
     j := 0;
   end;

Te puede servir para empezar con algunas pruebas.


La franja horaria es GMT +2. Ahora son las 00:02:30.

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