Dibujar linea en panel

[Davidcfres]

Hola Iron,

Caro tiene razon, no puedes utilizar el canvas de un TPanel directamente.

la unica solucion es crear una nueva class :

Código Delphi [-]
 
type
  TMyPanel = class(TPANEL);
 
(....)
 
procedure TForm4.Button2Click(Sender: TObject);
begin
  TMyPanel(Panel1).canvas.Pen.Color:=clBlack;
  TMyPanel(Panel1).canvas.Pen.Width:=1;
  TMyPanel(Panel1).canvas.Pen.Style:=psSolid;
  TMyPanel(Panel1).canvas.MoveTo(10,10);
  TMyPanel(Panel1).canvas.LineTo(500,500);
end;

Nota :
cuando escribes :

Código Delphi [-]
 
            with Panel4 do
                   begin
                    canvas.Pen.Color:=clBlack;
                    canvas.Pen.Width:=1;
                    canvas.Pen.Style:=psSolid;
                    canvas.MoveTo(500,500);
                    canvas.LineTo(1000,1000);
                  end;

"with Panel4" no permite acceder al canvas del Panel pero al canvas de la form.

David

[*Caro*]

Empezado por Davidcfres

Código Delphi [-]

type
TMyPanel = class(TPANEL);

(....)

procedure TForm4.Button2Click(Sender: TObject);
begin
TMyPanel(Panel1).canvas.Pen.Color:=clBlack;
TMyPanel(Panel1).canvas.Pen.Width:=1;
TMyPanel(Panel1).canvas.Pen.Style:=psSolid;
TMyPanel(Panel1).canvas.MoveTo(10,10);
TMyPanel(Panel1).canvas.LineTo(500,500);
end;

Hola, si defines tu tipo de esta forma, con el mismo nombre, ya no necesitas hacer el Cast y ya no va a tomar el Canvas del formulario

Código Delphi [-]
type  TPanel = class(ExtCtrls.TPanel);

Saluditos

[Davidcfres]

Empezado por Caro

Hola, si defines tu tipo de esta forma, con el mismo nombre, ya no necesitas hacer el Cast y ya no va a tomar el Canvas del formulario

Claro... estoy completamente de acuerdo.
pero creo que con esta modificacion el typo es diferente (todos los protected son accesibles) , y por eso prefiero utilisar otro nombre...

[Iron]

Ya consigo ver la linea en el Panel, he probado las dos versiones que poneis y funcionan bien , Gracias a todos.
Una última cosita, cuando creo la linea en el formulario, esta no se ve por el Panel y si la creo en el Panel, del mismo no sale. ¿Se puede crear una linea que se vea en los dos sitios?.

Gracias y un saludo

[Sedanbur]

Alguien me puede decir de donde puedo obtener la libreria Timage??? muchas gracias!!

[ecfisa]

Hola Sedanbur, bienvenido a Club Delphi .

Te invitamos a que leas nuestra guía de estilo.

El componente TImage, lo podes encontrar en la pestaña "Additional".

Saludos.

[Sedanbur]

Gracias por la respuesta y bienvenida, ya lei el enlace,. y encontre el componente TImage... hace mucho que no programo en Delphi..(desde el 2000) y estoy un poco oxidado.. jejjee.. tengo un par de proyectos para hacer, asi que seguro que estare por estos lados bastante seguido... saludos