Dibujar linea en panel

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

Empezado por Iron

Este mensaje no debería estar aquí, sino en gráficos, pero no se borrarlo.
Perdón

No hay problema, ya te lo muevo yo.

[*Caro*]

Hola, así directo no puedes acceder al Canvas del Panel, primero tienes que desprotegerlo defínete este tipo en tu unit.

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

con eso ya deberías poder acceder al Canvas del Panel, sino, tienes que usar algún componentes que tenga el Canvas, como el TPaintBox, TImage......

Sobre como lo tienes no te esta dibujando detras, esta tomando el Canvas del formulario es por eso que te lo dibuja en el formulario.

Saluditos

[Iron]

No me sale , al poner

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

Me da error, el primero: (Expected ´:´ but ´=´found) lo cambié y ahora me da el siguiente error: (Expected an identifier but class found), espera un identificador pero encuentra una clase .

¿Alguna sugerencia, gracias?

[*Caro*]

Empezado por Iron

Me da error, el primero: (Expected ´:´ but ´=´found) lo cambié y ahora me da el siguiente error: (Expected an identifier but class found), espera un identificador pero encuentra una clase .

¿Alguna sugerencia, gracias?

Hola de nuevo, tienes que definirlo como un nuevo tipo.

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TPanel = class(ExtCtrls.TPanel);
 
type
  TForm1 = class(TForm)
    Panel1: TPanel;
  private
    { Private declarations }
  ..................................

fijate donde lo he puesto, con eso no debería darte errores.

Saluditos

[marcoszorrilla]

Doy fe de que lo propuesto por Caro, funciona correctamente.

Un Saludo.

[Iron]

He puesto el nuevo Type y no da fallo ninguno, pero no se ve :

Código Delphi [-]
if tipo_pantalla_=3 then begin;
        statictext2.Font.Color :=clWindowText;
        statictext2.Caption:='En Varios Puntos.';
        panel4.Visible:=true;
        statictext3.Font.Color :=clblue;
        statictext3.Caption:='DESABILITADO.';
        panel1.Enabled:=false;
           // Dibujamos lo que falta.
               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;
      end;

Si en lugar de poner Panel4, pongo el nombre del formulario, la linea se ve donde no hay Panel´s.Gracias por vuestras respuestas

[marcoszorrilla]

Según te he comentado yo mismo he hecho la prueba y funciona correctamente, lo que puede ocurrir es que tus coordenadas están fuera virtualmente del Tpanel y por eso no se ve nada.

Prueba por ejemplo con:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  with panel1 do
   begin
   canvas.Pen.Color:=clBlack;
   canvas.Pen.Width:=1;
   canvas.Pen.Style:=psSolid;
   canvas.MoveTo(10,10);
   canvas.LineTo(500,500);
  end;
end;

Un Saludo.