Cerrar Dialogo al perder el foco

[Marcelo Via Giglio]

Holas,

el siguiente codigo funciona

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg

   DEFINE DIALOG oDlg FROM 5, 5 TO 20, 40

   oDlg:bLostFocus = { || oDlg:end() }

   ACTIVATE DIALOG oDlg CENTERED

return nil
 

pero cuando el dialogo es definido desde recursos no, esto funcionaba en versiones previas a la 9.06 si no me equivoco y dejo de funcionar con las versiones nuevas.

Alguna idea?

saludos

Marcelo

[Carles]

M,

He testeado en 10.8 y funciona OK

[Daniel Garcia-Gil]

Saludos

probado en la 10.12 y funciona bien

[Marcelo Via Giglio]

Holas,

gracias por responder, tienen razon, funciona, mi problema es que hice un mal ejemplo, el problema es cuando hay algun control mas en el dialog por ejemplo un botton.

Recuerdo que lo utilice para hacer un calendario emergente y que si uno hacia click fuera del dialogo este se cerraba, esto dejo de funcionar, pero veo que la solucion es que el dialogo se cierre cuando se pierda el foco del control definido en el dialogo y no asi del dialogo en si, esto creo que funcionara.

Gracias y saludos

Marcelo

[Daniel Garcia-Gil]

Marcelo

Prepara un ejemplo que podamos reproducir el error

Gracias

[Marcelo Via Giglio]

Daniel,

no estoy seguro que sea un error, por ejemplo, lo siguiente no cierra el dialogo

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, b

   DEFINE DIALOG oDlg FROM 5, 5 TO 20, 40

   @ 2,2 BUTTON b PROMPT 'Close' OF oDlg ACTION oDlg:end()

   oDlg:bLostFocus = { || oDlg:end() }

   ACTIVATE DIALOG oDlg CENTERED

return nil
 
 

pero lo siguiente si

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, b

   DEFINE DIALOG oDlg FROM 5, 5 TO 20, 40

   @ 2,2 BUTTON b PROMPT 'Close' OF oDlg ACTION oDlg:end()

   b:bLostFocus = { || oDlg:end() }

   ACTIVATE DIALOG oDlg CENTERED ON INIT b:setFocus()

return nil
 
 

Antes funciono, no recuerdo la version pero era 7... u 8... pero creo que de esta manera me sirve, no se si es lo esperado, Uds. lo diran

Muchas gracias por la atencion

saludos

Marcelo

[horacio]

No sé si digo un disparate pero para poder cerrar el dialogo cuando pierde el foco, este debe ser NoWait, sin esta característica el dialogo nunca pierde el foco. Saludos

[ronaldo]

tente utilizar assim:

odlg:bstart:={||oDlg:bLostFocus = { || oDlg:end() } }

Ronaldo

[antolin]

Horacio, si no me equivoco, el dialogo, si tiene controles, nunca toma el foco, las NOWAIT menos. Yo utilizo muchas de esas ventanitas y siempre la cierro cuando TODOS los controles dejan de tener foco. No encontré otra solución.

Un saludo

[horacio]

Aqui te pongo un ejemplo que funciona

Code: Select all  Expand view

Define Dialog oDlg from 6, 18 To 180, 190 Of oVarGlobales : oWndMain Pixel Font oFonts1

   oDlg : nStyle    :=  nOr( WS_POPUP )
   oDlg : bRClicked := { || oDlg : End() }
   @ 2, 2 Group oGrupo To oDlg : nRight / 2 - 8, oDlg : nBottom / 2 - 8 Label "" Of oDlg Pixel

   @ 0, 0 ListBox oLbx Fields "" Size 85, 100 Pixel Of oDlg Font oFonts
   oLbx : SetArray( aPeriodos )
   With Object oLbx
      :bLine         := { | nAt | nAt := oLbx : nAt, { Alltrim( aPeriodos[ nAt ][ 1 ] ) } }
      :bFont         := { | nRow, nCol, nStyle | If( nStyle == 1, oFonts3 : hFont, If( nStyle == 3 .and. ( nCol == 2 .or. nCol == 3 .or. nCol == 4 .or. nCol == 5  .or. nCol == 6 .or. nCol == 7 ), oFonts3 : hFont, ) ) }
      :lDrawHeaders  := .f.
      :nHeaderHeight := 15
      :aHJustify     := { 2, 2,2,2,2 }
      :aJustify      := { 0 }
      :nClrFFore     := CLR_RED
      :nLineHeight   := 20
      :aColSizes     := { 100 }
      :lCellStyle    := .f.
      :nClrLine      := RGB( 235, 235, 235 )
      :bLDblClick    := { || ConmutaBase( oLbx, aPeriodos, oDlg )  }
      :bKeyDown      := { | nKey | If( nKey == VK_RETURN, ConmutaBase( oLbx, aPeriodos, oDlg ), )  }
      :nClrPane      := { || If( oLbx : nAt % 2 == 0, RGB( 245,245,245 ), RGB( 255,255,255 )) }
      :nLineStyle    := 5
      :nHeaderStyle  := 6                                                                                                                                                                             //If( nStyle == 3 .and. nCol == 3, CLR_BLACK, )
      :nFooterStyle  := 5
      :bTextColor    := { | nRow, nCol, nStyle | If( nStyle == 1, CLR_HEAD, ) }
      //:bBkColor       := { | nRow, nCol, nStyle | If( nStyle == 3 .and. nCol == 1, CLR_WHITE, ) }
   End

Activate Dialog oDlg On Init( oDlg : bLostFocus := { || oDlg : End() }, oDlg : Move( oVarGlobales : oWndMain : nBottom + ( oVarGlobales : oWndMain : oMsgBar : nTop - 4 - oVarGlobales : oWndMain : oMsgBar : nBottom ) - oDlg : nHeight, oVarGlobales : oWndMain : oMsgBar : nRight - ( oDlg : nWidth + 150 ) ), Centra( oDlg ), oLbx : Refresh(), oLbx : Paint() ) Valid( oFuente1 : End(), oFuente2 : End(), oFonts : End(), oFonts1 : End(), oFonts2 : End(), oFonts3 : End(), oVarGlobales : oWndMain : SetFocus(), .t. ) NoWait
 

Espero te sirva
Saludos

[Antonio Mart.]

viewtopic.php?f=3&t=25706&start=30#p143679