Crear un nuevo objeto que utilice a Canvas
Un saludo
Estoy haciendo una aplicación y necesito crear un objeto que pueda dibujar cuando lo cree, ejemplo,
type
TRectangulo = class
procedure Dibuja(X1, Y1, X2, Y2 : Integer);
end;
procedure TRectangulo.Dibuja(X1, Y1, X2, Y2: Integer);
begin
Canvas.Rectangle(X1, Y1, X2, Y2);
end;
var
Rectangulo : TRectangulo;
begin
Rectangulo:=TRectangulo.create;
Rectangulo.Dibujar;
end;
Lo que sucede es que me da un error al utilizar canvas... Me podrías ayudar
Estoy haciendo una aplicación y necesito crear un objeto que pueda dibujar cuando lo cree, ejemplo,
type
TRectangulo = class
procedure Dibuja(X1, Y1, X2, Y2 : Integer);
end;
procedure TRectangulo.Dibuja(X1, Y1, X2, Y2: Integer);
begin
Canvas.Rectangle(X1, Y1, X2, Y2);
end;
var
Rectangulo : TRectangulo;
begin
Rectangulo:=TRectangulo.create;
Rectangulo.Dibujar;
end;
Lo que sucede es que me da un error al utilizar canvas... Me podrías ayudar
Respuesta de gaunmanuel
1
¿Dime qué error te salio?
Y sobre que canvas deseas dibujar, sobre una forma, panel... ¿etc?
Y sobre que canvas deseas dibujar, sobre una forma, panel... ¿etc?
