Hay alternativa a DoubleBuffered?

[Panasys]

Hola amigos, he utilizado bastante DoubleBuffered en mis apps debido a que utilizo imágenes que se cargan o cambian en tiempo de ejecución.

El parpadeo desaparece o por lo menos es mucho menor, pero la interfaz cambia mucho, los panels pasan a blanco y no toman el color del form, los botones tienen un borde no muy estetico, fallan los labels que muestran distinta informacion segun las variables del momento etc etc.

Si no lo uso, tengo el parpadeo

Bien y entonces ?

Hay alguna alternativa? o es eso o nada? (Uso Delphi 7 y Win7)

Un abrazo.

Javier

[[maeyanes]]

Hola...

Solo úsala en los componentes donde en realidad se necesite evitar el parpadeo. La mayoría de los controles funcionan de forma correcta con DoubleBuffered desactivado.



Saludos...

[Panasys]

Pero no se usarlo por componente

Podrias ayudarme?

En el form lo activo desde el Create.

Pero en un TIMage no me aparece como una opcion o propiedad.

Gracias

Javier

[ecfisa]

Hola Panasys.

Algo que te va a aligerar la carga de imágenes desde disco (LoadFromFile) es hacer una carga previa en un TList de las imágenes que vayas a utilizar.

Te hice un ejemplo general, pero lo podés modificar sin mucho problema para adaptarlo a tu necesidad.

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

procedure CargarImagenes(Ruta, Ext: string; Lst: TList; SLst: TStrings);
var
  P: TPicture;
  B: TBitMap;
  SR: TSearchRec;
begin
  Lst.Clear;
  P:= TPicture.Create;
  try
    Ruta:= IncludeTrailingPathDelimiter(Ruta);
    if FindFirst(Ruta+Ext, faArchive, SR) = 0 then
    begin
      repeat
        P.LoadFromFile(Ruta+SR.Name);
        B:= TBitMap.Create;
        B.Height:= P.Graphic.Height;
        B.Width := P.Graphic.Width;
        B.Canvas.Draw(0,0,P.Graphic);
        Lst.Add(B);
        SLst.Add(SR.Name);
      until FindNext(SR) <> 0;
      FindClose(SR);
    end;
  finally
    P.Free;
  end;
end;

Un ejemplo de llamada:

Código Delphi [-]
procedure TForm1.btnCargarClick(Sender: TObject);
var
  i: Integer;
  LstImg: TList;
  TS: TStrings;
begin
  LstImg:= TList.Create;
  TS:= TStringList.Create;
  try
    CargarImagenes('C:\TEMP', '*.JPG', LstImg, TS);
    for i:= 0 to LstImg.Count -1 do
    begin
      Image1.Picture.Bitmap:= LstImg[i];
      ShowMessage(TS[i]);
    end;
  finally
    LstImg.Free;
    TS.Free;
  end;
end;

Claro que en el momento de la carga se produce una demora, pero es una sola vez, además si hay que mostrar otra vez una imágen,
no hay que ir al disco a buscarla...

Saludos.

[Panasys]

Me parece una excelente idea y el codigo buenisimo, lo voy a probar, esto funcionaria para PNG?

Ya tengo el componente PNG en mi D7 instalado, ya que creo iconos que el usuario cambia en una pantalla y tienen transparencias.

Despues estas imagenes tendran las propiedades Drag and Drop para que el usuario las acomode donde le queden bien.

Lo voy a probar y mil gracias. Igual sigo sin saber como usar DoubleBuffered en cada componente sin agregarlo directamente al form.

Sera que no lo trae el D7?

Un abrazo y gracias como siempre.

Javier

[ecfisa]

Hola Panasys.

Ya tengo el componente PNG en mi D7 instalado, ya que creo iconos que el usuario cambia en una pantalla y tienen transparencias.

Realmente no lo sé, también uso D7 pero no tengo ese componente , vas a tener que probar...

Igual sigo sin saber como usar DoubleBuffered en cada componente sin agregarlo directamente al form.

Si al inicio del form haces:

Código Delphi [-]
begin
  DoubleBuffered:= True
end;

La propiedad será aplicada a todos los componentes que desciendan de TWinControl y pertezcan a dicho form, es decir que si no lo hacés el valor por defecto será False. Luego podrás poner la propiedad DoubleBuffered en True en cada componente, siempre que descienda de la clase TWinControl por supuesto.

Un saludo.

[Panasys]

Gracias !

Mas claro imposible !

Ahora me pondre a trabajar.

El componente es el MPNG, lo unico que hace es que el TImage te acepte PNG.

No te agrega nada a la paleta, anda bien.

Saludos y gracias nuevamente.

Javier