[Lazarus-es] Función de API LockWindowUpdate para Linux

[Ricardo Arratia]

Gracias amigo por tu respuesta, cuando programaba en delphi usaba la
siguiente función de clases para crear ventanas:

class procedure Tf_sName.MostrarVentana(ATag : Integer);
var
 i : Integer;
 f : TForm;
begin
  LockWindowUpdate(Application.MainForm.Handle);
  try
    for i := Screen.FormCount - 1 downto 0 do begin
      f := Screen.Forms[i];
      if(f is Self) then begin
        if(f.WindowState = wsMinimized) then
          f.WindowState := wsNormal;
        f.BringToFront;
        Exit;
      end;
    end;
    f := Create(Application);
    f.Tag := ATag;
    f.Show;
  finally
    LockWindowUpdate(0);
  end;
end;

La función LockWindowUpdate se usaba para evitar el feo efecto parpadeo,
ahora al trasladar este código a Lazarus para programar en ambiente gnome en
Linux ya no dispongo de las funciones de API en Linux, porque estás son API
de Windows, por eso buscaba una función alternativa para esta rutina, pero
tal vez ni siquiera sea necesaria.

Gracias por tu respuesta. Bueno sería tener un manual de API, (si existe)
para funciones del entorno gnome



-- 
Ricardo Arratia Joglar
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20090907/abcd872f/attachment-0002.html>