Ayuda con procedimiento en programa de dibujo

[Panteon]

Procedure TForm1.Cuadrado (Const X,Y :integer);
Begin
With Image1.Canvas Do Begin
Pen.Mode := pmNotXor;
MoveTo (Origen.X,Origen.Y);
Rectangle (Origen.X,Origen.Y,Punto.X,Punto.Y);
MoveTo (Origen.X,Origen.Y);
Rectangle (Origen.X,Origen.Y,X,Y);
end; //Final del With Image1.Canvas
end;

En el form, no se como acceder a este tipo de procedimiento. No
Sale en ningun lado de los eventos del Form.

Ayuda?

[Neftali [Germán.Estévez]]

Esto no es un evento. Es un procedimiento que supongo que alguien ha programado en un form para "pintar" un recuadro en el canvas de un TImage.

En la parte privada del form defínelo:

Código Delphi [-]
  Procedure Cuadrado (Const X,Y :integer);

Y en la implementación tendrás este código.

Desde algun sitio lo llamarás.

[Panteon]

Ah ya entendi! Muchas gracias!

[Panteon]

Otra cosa, Cuando hago un main menu, por defecto sale este procedimiento

procedure MainMenu1Change(Sender: TObject; Source: TMenuItem;
Rebuild: Boolean);

Supongo que sera para hacer que se refresque el menu (que dejen de salir como activadas las cosas del menu, ya que si se lo saco siempre salen con una flecha, aunque no las estes usando).

Sin embargo me tira un error,

[Error] Unit1.pas(52): Unsatisfied forward or external declaration: 'TForm1.MainMenu1Change'

Como lo hago?

[Neftali [Germán.Estévez]]

Borra las referencias a ese procedimiento y vuelve a crearlo.
Te generará la cabecera en la parte superior de la Unit ("INTERFACE") y la implementación vacía en la parte de "IMPLEMENTATION".

Lo que te está diciendo ahora es que una de las dos (la IMPLEMENTATION) no la encuentra.

[Panteon]

Pero como vuelvo a crearlo?

Lo escribo nomas?