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, ;
{ { 1 ...

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
>

... BUTTON oBtn1 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&#40;&#41; CLASS TAlbum&nbsp; &nbsp;local hWndMain&nbsp; &nbsp;::CreateWindow&#40;&#41;&nbsp; &nbsp;::CreateControls&#40;&#41;&nbsp; &nbsp;::SetVScroll&#40;&#41;&nbsp; &nbsp;::oWnd:bResized := &#123; |t,w ...

José Luis,

Add this new DATA in Class TAlbum:

DATA lExit INIT .F.

and modify this method this way:

METHOD Activate&#40;&#41; CLASS TAlbum ::CreateWindow&#40;&#41; ::CreateControls&#40;&#41; ::SetVScroll&#40;&#41; ::oWnd:bResized := &#123; |t,w,h| ::Resize&#40; t, w, h &#41; &#125; if ::oWnd ...

... End(), ::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

... 40 BTNBMP PROMPT "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&#58;//mybergland ...

... prg)

METHOD Edit( lReadOnly, lNavigate, cTitle, cMsg, bInit ) CLASS TDataRow

y finalmente

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

... FiveWin.ch"
#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, 12 BUTTON oBtn PROMPT ...

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 ! Very fine ! So all power of script we can ...

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.

... oDlg 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 := .T., oDlg:End ...