Crear Grid sobre Canvas
 

Saludos

Quien pudiera orientarme en como crear un grid sobre un Canvas con la siguente caracteristica

- Grid 7 x7 y como base 7 cuadros. A medida vaya ascendiendo restarle un cuadro hasta que el el tope solo aparecza 1 cuadro.

Tratare de colocar un grafico que muestre lo que necesito.

Gracias

Yo te diría que comenzaras por colocar un TPaintBox en un formulario, y sobre él empieces a pintar líneas...

Por ejemplo, coloca un botón con el siguiente código. Algo así debería pintar algo parecido a lo que necesitas.

Código Delphi [-]
var
  I: Integer;
  x, y:integer;
begin

  PaintBox1.Canvas.Pen.Width := 2;
  PaintBox1.Canvas.Pen.Color := clBlack;
  PaintBox1.Canvas.Pen.Style := psSolid;

  PaintBox1.Canvas.MoveTo(10, 10);
  PaintBox1.Canvas.LineTo(10, 410);  // Vertical
  PaintBox1.Canvas.LineTo(410, 410); // horizontal

  for i := 1 to 10 do begin
    x := 10 + (40*I);
    y := 10 + (40*I);
    PaintBox1.Canvas.MoveTo(x, y);
    PaintBox1.Canvas.LineTo(x, 410);  // vertical
    PaintBox1.Canvas.MoveTo(x, y);
    PaintBox1.Canvas.LineTo(10, y);
  end;

Muchisimas gracias, es justo lo que necesito.

Ahora bien, hay alguna posibilidad de eliminar las lineas finales en los extremos para que quede un cuadrado perfecto ?

Hola.

Otra opcíon,

Código Delphi [-]
procedure MakeSquares(aCanvas: TCanvas; const pInit: TPoint;
  const ncuad, size: Integer);
var
  x, y: Integer;
  p   : TPoint;
begin
  p.Y := pInit.Y;
  for y := 1 to ncuad do
  begin
    p.X := pInit.X;
    for x := 1 to y do
    begin
      aCanvas.Rectangle( p.X - 1, p.Y - 1, p.X + size, p.Y + size);
      Inc( p.X, size );
    end;
    Inc( p.Y, size);
  end;
end;

Ejemplo llamada:

Código Delphi [-]
procedure TForm1.btnStartClick(Sender: TObject);
begin
  MakeSquares(Canvas, Point( 70, 30 ), 7, 20);
end;

Saludos :)

Gracias escfisa

Como llamo a la MakeSquare ?

Hola
Tál como está en el mensaje anterior.

Por ejemplo, usando como lienzo un TPanel en lugar del Form

Código Delphi [-]
...
type
  TPanel = class(ExtCtrls.TPanel);  
  TForm1 = class(TForm) 
    btnStart: TButton;
    Panel1: TPanel;
    procedure btnStartClick(Sender: TObject);
    ...

implementation

procedure MakeSquares(aCanvas: TCanvas; const pInit: TPoint;
  const ncuad, size: Integer);
var
  x, y: Integer;
  p   : TPoint;
begin
  p.Y := pInit.Y;
  for y := 1 to ncuad do
  begin
    p.X := pInit.X;
    for x := 1 to y do
    begin
      aCanvas.Rectangle( p.X - 1, p.Y - 1, p.X + size, p.Y + size);
      Inc( p.X, size );
    end;
    Inc( p.Y, size);
  end;
end;

// Evento OnClick de un TButton
procedure TForm1.btnStartClick(Sender: TObject);
begin
  MakeSquares(Panel1.Canvas, Point( 70, 30 ), 7, 20);  // <-- AQUI LO ESTAS LLAMANDO
end;

...

Salida:


Saludos :)

Gracias

Ya la pude llamar pero no me aparece dentro del Image sino en el formulario...como corrijo eso?

Código Delphi [-]
  MakeSquares( Image1.Canvas, Point( 70, 30 ),  7, 20 );

Saludos :)

Asi lo hice

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    Image1: TImage;
    BitBtn1: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

procedure MakeSquares(Image1: TCanvas; const pInit: TPoint;
  const ncuad, size: Integer);
var
  x, y: Integer;
  p   : TPoint;
begin
  p.Y := pInit.Y;
  for y := 1 to ncuad do
  begin
    p.X := pInit.X;
    for x := 1 to y do
    begin
      Image1.Rectangle( p.X - 1, p.Y - 1, p.X + size, p.Y + size);
      Inc( p.X, size );
    end;
    Inc( p.Y, size);
  end;
end;


{$R *.dfm}


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  MakeSquares(Canvas, Point( 70, 30 ), 7, 20);  // <== AQUI LA ESTAS LLAMANDO
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  MakeSquares(Canvas, Point( 70, 30 ), 7, 20);  // <== AQUI LA ESTAS LLAMANDO
end;

end.

Y asi me aparece

Esta es la ventana con el Canvas

Hola.

No veo como te aparece, pero aquí te va un ejemplo en el que dibujo la figura en el TForm, en un TPanel y en un TImage:



Te adjunto el código fuente del ejemplo para que lo revises con tranquilidad.

Saludos :)

Muchas gracias.

Lo revisare

Gracias

Muy bueno tu codigo

Si yo quisiera agregarle letras en cada celda, que funcion o procedimiento me podrias sugerir ?

Hola.

El método TextOut de la clase TCanvas.

Saludos :)

Lo coloque asi y me arroja error

Código Delphi [-]
image2.Canvas.TextOut('Hola');

Hola.

Así es... y es lógico que te lo dé.

Si revisas el enlace que te agregué en el mensaje anterior, verás que te faltan pasarle dos argumentos al método TextOut.

Código Delphi [-]
 image2.Canvas.TextOut( 10, 50, 'Hola' );

Saludos :)

Con los argumentos se presenta asi

Que esta mal?

Hola.

La verdad es, que no sé que código usas ni como lo estas usando...

De este modo,

Código Delphi [-]
...
begin
  MakeSquares(Image1.Canvas, Point( 10, 10 ), 7, 30 );
  Image1.Canvas.TextOut(12,12, 'Hola');
end;

obtengo este resultado:


Saludos :)

Lo hice asi

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TPanel = class(ExtCtrls.TPanel);
  TForm1 = class(TForm)
    btnStart: TButton;
    Panel1: TPanel;
    Image1: TImage;
    procedure btnStartClick(Sender: TObject);
  private

  public
  end;

var
  Form1: TForm1;

implementation   {$R *.dfm}

procedure MakeSquares(aCanvas: TCanvas; const pInit: TPoint;
  const ncuad, size: Integer);
var
  x, y: Integer;
  p   : TPoint;
begin
  p.Y := pInit.Y;
  for y := 1 to ncuad do
  begin
    p.X := pInit.X;
    for x := 1 to y do
    begin
      aCanvas.Rectangle( p.X - 1, p.Y - 1, p.X + size, p.Y + size);
      Inc( p.X, size );
    end;
    Inc( p.Y, size);
  end;
end;

procedure TForm1.btnStartClick(Sender: TObject);
begin
  MakeSquares(Canvas, Point( 70, 30 ), 7, 20);
  MakeSquares(Panel1.Canvas, Point( 70, 30 ), 7, 20);
  MakeSquares(Image1.Canvas, Point( 70, 30 ), 7, 20);
  Image1.Canvas.TextOut(12,12, 'Hola');
end;

end.

Y me pone la imagen asi

Ya vi mi error