FiveTech Software tech support forums

Karina. REDEFINE BTNBMP oBtn[3] ID 302 OF oDlg; 2007; CENTER; NOROUND; PROMPT "Salir"; GRADIENT BtnGradRed() oBtn[3]:bAction = <|| lExit := .T. oDlg:End() SysRefresh() hb_gcAll(.T.) Return Nil > Albeiroval, intenta asi por favor: #Define aPubGrad {| lInvert | If( lInvert, ...

Karina. REDEFINE BTNBMP oBtn[3] ID 302 OF oDlg; 2007; CENTER; NOROUND; PROMPT "Salir"; GRADIENT BtnGradRed() oBtn[3]:bAction = <|| lExit := .T. oDlg:End() SysRefresh() hb_gcAll(.T.) Return Nil >

... Id 4001 of oDlg ; // aContols 9 Prompt "&Salir" ; ACTION (oDlg:End()) ACTIVATE DIALOG oDlg //ON INIT oListBox:SetFocus() //VALID lExit CENTERED close all return nil //----------------------------------------------------------------------------// function MisGEts( oDlg, oDbf ) ...

José Luis,

Using DATA lExit INIT .F. automatically initializes it to .F.

I noticed that the INIT clause doesn't assign .F. to lExit so I changed the code: METHOD Activate() CLASS TAlbum   local hWndMain   ::CreateWindow()   ::CreateControls()   ::SetVScroll()  ...

José Luis, Add this new DATA in Class TAlbum: DATA lExit INIT .F. and modify this method this way: METHOD Activate() CLASS TAlbum   ::CreateWindow()   ::CreateControls()   ::SetVScroll()   ::oWnd:bResized := { ...

... ::oImageList := nil ) ),; If( ! Empty( ::oImageListPages ), ::oImageListPages:End(),),; ::oWnd := nil ,; ::oDevice:oPreview := nil ,; ::lExit := .T. ) if ::oDevice:lPrvModal if ::oWndMain == nil StopUntil( { || ::lExit } ) else hWndMain := WndMain():hWnd StopUntil( { || ::lExit .or. ...

leandro wrote:Buenos días para todos,

Requiero ejecutar una función al momento de cerrar el preview de la impresión, justo al momento en que se cierre la ventana.

Hola Leandro:

La clase TPreview tiene una data : lExit .T. when the preview window has exited

Saludos.

Jose

... "SAVE" SIZE 100,35 PIXEL OF oDlg FLAT WHEN oRec:Modified() ; ACTION ( oRec:City := dtos( date() ) + "/" + time() ,oRec:Save(), lExit := .t., oDlg:End() ) The customer numbers are one after the other but chronology is not guaranteed. Best regards Otto http://mybergland.com/FWForum/Clip6.jpg

... ; ON INIT ( oRec:PlaceControls( oPanel, oSayFont, oFixed, lReadOnly, lNavigate, cMsg ), If( bInit != nil, Eval( bInit, oDlg ),) ) ; VALID ( /* lExit .and. */ oRec:CloseMsg() )

... #INCLUDE "TSButton.ch" //----------------------------------------------------------------------------// function Main() local oDlg, lExit := .f., oBtn DEFINE DIALOG oDlg FROM 5, 5 TO 15, 40 TITLE "A Dialog Box" @ 3, 4 BUTTON "&Ok" OF oDlg SIZE 40, 12 @ 3, ...

Silvio,

You need a extra function, to define the dialog-Toolbar on dialog INIT

´´´´
´´´´
ACTIVATE DIALOG oDlg VALID lExit ;
ON INIT SHOW_BAR(oDlg)

RETURN NIL

// ----

FUNCTION SHOW_BAR(oDlg)
LOCAL oBar
.......

Best regards
Uwe

the window remains opened because it belongs to the operating system, not to the PRG :-) Try this: local lExit := .F. ... ACTIVATE WINDOW oWnd StopUntil( { || lExit } ) From the window, change lExit to .T. to finally exit. Wwoooowwww ! And that is working ! :D Very fine ! So ...

the window remains opened because it belongs to the operating system, not to the PRG

Try this:

local lExit := .F.

...

ACTIVATE WINDOW oWnd

StopUntil( { || lExit } )

From the window, change lExit to .T. to finally exit.

... SIZE nAnchoDialogo, nAltoDialogo @ nL, nC BUTTON oBtn PROMPT "OPCION-1" OF oDlg SIZE nLB*nAnchoLetra,nAltoLetra ACTION ( nSeleccion:=1, lExit := .T., oDlg:End() ) @nL, nC BUTTON oBtn2 PROMPT "OPCION-2" OF oDlg SIZE nLB*nAnchoLetra,nAltoLetra ACTION ( nSeleccion:=2, lExit := ...