Se borran la lineas dibujadas
 

Estimados amigos del Club
Ten el siguiente problema: al abrir una ventana cualquiera de otra aplicación se me borran las lineas dibujadas con la funciones "Moveto y lineto" del formulario que tengo abierto, ¿como puedo hacer para que esto no suceda?.
Muchas gracias y saludos.
Carlos Alberto

Es demasiado corto tu mensaje para comprender a fondo lo que estás haciendo, usando qué y por qué. Sin embargo, quizá debas dibujar esas líneas en el evento OnPaint del formulario. :)

De la ayuda de Delphi:

CarlosAlberto,

En el evento OnActivate del formulario en cuestión coloca el siguiente código:

Código Delphi [-]
procedure TFormX.FormActivate(Sender: TObject);
begin
   Refresh;
end;

El código anterior refresca el formulario al hacer Click sobre este. Adicionalmente te sugiero verificar en el Setup de tu Sistema si puedes ampliar la memoria asignada a la Tarjeta de Video, lo cual suele ser la causa de este tipo de problemas de refrescamiento.

Espero sea útil :)

Nelson.

Se borran las lineas dibujadas
 

Estimados amigos del club:
Gracias por sus repuestas pero hasta ahora se siguen borrando. En el evento OnActive del Form coloque "form1.Canvas.Refresh" pero no solucionó el problema. Explico con mas detalle: hice una aplicación en donde dibujo lineas horizontales y verticales en el canvas de un formulario, luego de dibujadas abro una aplicación por ejemplo el Word y al volver sobre mi aplicación me encuentro que las lineas dibujadas no están presentes en el formulario.
Saludos.
Carlos Alberto

Te han comentado que lo pongas en el onactivate y en el onpaint, ¿has probado los dos?

Hola Carlos.

Usando el evento OnPaint, como te sugiere Al, tendría que funcionar correctamente.

Ejemplo:

Código Delphi [-]
...
uses ShellApi;

procedure TForm1.DrawLines;
begin
  with Canvas do
  begin
    Pen.Width:= 3;
    MoveTo(40,100);
    LineTo(300,50);
    MoveTo(60,50);
    LineTo(350,90);
  end;
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  DrawLines
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Application.Handle, 'open', 'notepad.exe', nil, nil, SW_SHOWNORMAL);
end;

En el ejemplo, podrás comprobar que desplazando el notepad sobre las líneas del formulario, no se percibe el borrado de las mismas. En cambio si desactivas el llamado a DrawLines en el evento OnPaint (// DrawLines), el notepad se comporta como si fuese una goma de borrar.

Saludos.

CarlosAlberto,

Revisa este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
   i: Integer;
begin
   Canvas.FillRect(self.Canvas.ClipRect);
   Randomize;
   for i := 1 to 100 do
   begin
      Canvas.Pen.Color := RGB(Random(256), Random(256), Random(256));
      Canvas.LineTo(Random(ClientWidth), Random(ClientHeight));
   end;
end;

El código anterior dibuja 100 lineas de forma aleatoria sobre el Canvas de Form1, pero al redimensionar Form1 o superponer otra ventana sobre este, las líneas son Borradas en Runtime. Este código reproduce el problema de Persistencia de la Imagen descrito en tu requerimiento.

Revisa este código:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
   i: Integer;
   Image1 : TImage;
begin
   Image1 := TImage.Create(Self);
   Image1.Parent := Self;
   Image1.Height := ClientHeight;
   Image1.Width := ClientWidth;
   Image1.Canvas.FillRect(self.Canvas.ClipRect);
   for i := 1 to 100 do
   begin
      Image1.Canvas.Pen.Color := RGB(Random(256), Random(256), Random(256));
      Image1.Canvas.LineTo(Random(ClientWidth), Random(ClientHeight));
   end;
end;

El código anterior dibuja 100 lineas de forma aleatoria, pero con la diferencia de que no lo hace sobre el Canvas de Form1, sino sobre el Canvas de un control TImage creado en Runtime con las dimensiones de Form1 el cual resuelve el problema de Persistencia de la Imagen descrito anteriormente al redimensionar Form1 o superponer otra ventana sobre este.

Otra opción es el uso del evento OnPaint del formulario en cuestión descrito en mensajes previos.

Espero sea útil :)

Nelson.

El problema es que estas líneas no son persistentes.
Si deseas que lo sean debes programar tú esa persistencia. Es decir, deberás redibujar esas líneas cada vez que sea necesario. Creo que ya te han comentado los eventos a utilizar.

Dibjuar lineas y que no se borren
 

Estimados amigos del club:
Muchas gracias por sus repuestas. Probé la del Sr. usuario Ecfisa "Drawlines" y funcionó.
Saludos.
Carlos Alberto