[Lazarus-es] Comportamiento de Lazarus diferente en Windows a Linux

Ismael L. Donis Garcia slibre en natio.co.cu
Lun Feb 7 19:18:50 CET 2022


Na da que ver al menos lacontante no tendría nada que ver con los eventos:

  txtregEnter(Sender);
  txtregExit(Sender);
  txtcompEnter(Sender);

En ese caso solo sería el evento:
  txtcompExit(Sender);

Además antes solo tenía:
   ckey:=#13;
   txtreg.Text:=lstcom.Selected.Caption;
   txtcomp.SetFocus;
   txtcomp.Text:=lstcom.Selected.SubItems[0];
   txtcompKeyPress(Sender, ckey);

Sin especificar SO, pero en linux no se disparaban los eventos y en windows si, eso fue lo que me extraño y por eso tuve que poner código diferente en dependencia del SO que se estuviera ejecutando.

Saludos Reiterados
--
Ismael
Devuan User: http://distrowatch.com/table.php?distribution=devuan
Web Site: https://gitlab.uic.cu/ismael.donis/sistema-de-contabilidad-general/
  ----- Original Message ----- 
  From: Maxi via Lazarus-es 
  To: Spanish version of Lazarus List 
  Cc: Maxi 
  Sent: Monday, February 07, 2022 9:57 AM
  Subject: Re: [Lazarus-es] Comportamiento de Lazarus diferente en Windows a Linux


  debes usar las contantes de teclas no el #13, que seguramente en linux la maneja diferente


  El lun, 31 ene 2022 a las 14:12, Ismael L. Donis Garcia via Lazarus-es (<lazarus-es en lists.lazarus-ide.org>) escribió:

    He venido presentando problemas con Linux ya que no se me disparan los eventos al igual que Linux an instanciar un formulario.

    Esto es un comportamiento normal o algo que tengo mal configurado o un error de lazarus?

    Por ejemplo he tenido que hacer lo siguiente para poder resolver algunos problemas, pero en otros me está siendo complicado por el código que tengo implementado.

     with Tfccomp.Create(nil) do
     try
        Show;
        {$IFDEF UNIX}
          txtregEnter(Sender);
          txtreg.Text:=lstcom.Selected.Caption;
          txtregExit(Sender);
          txtcomp.SetFocus;
          txtcompEnter(Sender);
          txtcomp.Text:=lstcom.Selected.SubItems[0];
          txtcompExit(Sender);
        {$ELSE}
          ckey:=#13;
          txtreg.Text:=lstcom.Selected.Caption;
          txtcomp.SetFocus;
          txtcomp.Text:=lstcom.Selected.SubItems[0];
          txtcompKeyPress(Sender, ckey);
        {$ENDIF}
        Hide;
        Showmodal;
     finally
       Free;
     end;

    Los eventos

          txtregEnter(Sender);
          txtregExit(Sender);
          txtcompEnter(Sender);
          txtcompExit(Sender);

    En Linux NO se disparan de forma automática, en windows SI

    Saludos Cordiales
    --
    Ismael
    Devuan User: http://distrowatch.com/table.php?distribution=devuan
    Web Site: https://gitlab.uic.cu/ismael.donis/sistema-de-contabilidad-general/
    _______________________________________________
    Lazarus-es mailing list
    Lazarus-es en lists.lazarus-ide.org
    https://lists.lazarus-ide.org/listinfo/lazarus-es





  -- 

  El que pregunta aprende, y el que contesta aprende a responder.

  No a la obsolecencia programada: http://www.rtve.es/noticias/20110104/productos-consumo-duran-cada-vez-menos/392498.shtml



------------------------------------------------------------------------------


  _______________________________________________
  Lazarus-es mailing list
  Lazarus-es en lists.lazarus-ide.org
  https://lists.lazarus-ide.org/listinfo/lazarus-es
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20220207/1190da7e/attachment.htm>


Más información sobre la lista de distribución Lazarus-es