GPF con RichEdit

[MOISES]

Hola Antonio:

Al copiar un texto en un RichEdit con control y V, se produce un GPF.

El contenido de hb_out.log es:

Called from SENDMESSAGE(0)
Called from (b)TWINDOW(571) in .\source\classes\WINDOW.PRG
Called from TRICHEDIT:SENDMSG(0) in .\source\classes\WINDOW.PRG
Called from TRICHEDIT:PASTE(943) in .\source\classes\TRICHEDI.PRG
Called from TRICHEDIT:KEYDOWN(839) in .\source\classes\TRICHEDI.PRG
Called from TRICHEDIT:HANDLEEVENT(619) in .\source\classes\TRICHEDI.PRG
Called from _FWH(3345) in .\source\classes\WINDOW.PRG
Called from DIALOGBOX(0)
Called from TDIALOG:ACTIVATE(286) in .\source\classes\DIALOG.PRG
Called from FACTURO(3909) in c:\software\facturacion.PRG


Y la función FACTURO, línea 3909 es:

ACTIVATE DIALOG oDlg CENTERED

Agradezco de antemano tu atención.

[Antonio Linares]

Moises,

Acabo de construir FWH\samples\TestRich.prg y he cargado el fichero testrtf.rtf pulsando el botón "Load RTF file", luego he copiado un párrafo de él mismo y lo he pegado en él, y ha funcionado bien. Luego he abierto un fichero TXT, he copiado un párrafo y lo he pegado en TestRich.exe sin problemas.

Puedes proporcionar un ejemplo, ó una secuencia de pasos, para reproducir el error ? gracias

[MOISES]

Antonio:

Muchas gracias por tu atención.

No es fácil de reproducir. He preparado un ejemplo autocontenido y no consigo que falle.

No se si es por el conjunto de ventanas de la aplicación principal: WNDMAIN -> Diálogo -> Diálogo con Folder y pestaña del folder, el foco o bien al tipo de contenido que se le pega con Control y V.

[manuelcalerosolis]

Hablando de RicheEdit, tengo q decir q no libera la fuente q usa.

He tenido q hacer algo asi pero lo ideal seria q este en su propio método end.

METHOD end() INLINE ( ::oRTF:oFont:end(), ::oRTF:end(), ::oRTF := nil )

Saludos.

[Antonio Linares]

Manuel,

Creo que el fallo puede estar aqui:

Code: Select all  Expand view

  if oFont == nil
      DEFINE FONT ::oFont NAME "ARIAL" SIZE 0,If( LargeFonts(), -11, -13 )
   else
      ::SetFont( oFont )
   endif

En realidad ese código debería ser:

Code: Select all  Expand view

   if oFont == nil
      DEFINE FONT ::oFont NAME "ARIAL" SIZE 0,If( LargeFonts(), -11, -13 )
   endif

   ::SetFont( oFont )
 

Puedes probarlo y ver si asi no te queda ese font pendiente de liberar ? gracias