FiveTech Software tech support forums

... 100 e não 116 @ 2, 2 METER oProg1 VAR nActual TOTAL nTotal OF oDlg SIZE 200, 20 @ 3, 9 BUTTON "Ok" ACTION oDlg:End() oDlg:bStart = { || Increase( oProg1, nTotal ) } ACTIVATE DIALOG oDlg CENTER return nil function Increase( oProg1 , nTotal ) local n := 0 oProg1:nTotal := ...

... Bars" @ 1, 1 PROGRESS oProg1 SIZE 80, 12 @ 1, 20 PROGRESS oProg2 SIZE 12, 50 VERTICAL @ 3, 9 BUTTON "Ok" ACTION oDlg:End() oDlg:bStart = { || Increase( oProg1, oProg2 , nTotal ) } ACTIVATE DIALOG oDlg CENTER ; ON INIT ( oProg1:SetRange( 0, nTotal ), oProg1:SetStep( 1 ),; oProg2:SetRange( ...

... Bars" @ 1, 1 PROGRESS oProg1 SIZE 80, 12 @ 1, 20 PROGRESS oProg2 SIZE 12, 50 VERTICAL @ 3, 9 BUTTON "Ok" ACTION oDlg:End() oDlg:bStart = { || Increase( oProg1, oProg2 , nTotal ) } ACTIVATE DIALOG oDlg CENTER ; ON INIT ( oProg1:SetRange( 0, nTotal ), oProg1:SetStep( 1 ),; oProg2:SetRange( ...

function Animate(nTip,bAction) local oDlg, oAnimate define dialog oDlg resource 'PLAYANIMATE' oAnimate := TAnimate():Redefine( 160, oDlg ) oDlg:bStart := {|| Eval( bAction, odlg ), oDlg:End(), SysRefresh() } oDlg:lhelpicon := .f. activate dialog oDlg centered on init(if(nTip=1,oAnimate:copyfiles(),; ...

... /* */ Local oDlg, bAction bAction := {|| WaitSeconds( 0.02 ) } define dialog odlg ; from 0,0 to 0,0 ; style nOr( DS_MODALFRAME, WS_POPUP ) oDlg:bStart := {|| Eval( bAction, oDlg ), oDlg:End(), SysRefresh() } activate dialog odlg on init(oDlg:hide()) return nil

... de datos..." @ 0.5, 2 SAY oText VAR cMsg SIZE 180, 20 OF oDlg @ 2, 2 METER oMeter VAR nActual TOTAL 100 OF oDlg SIZE 200, 20 oDlg:bStart:={||lVal:=Hb_UnZipFile(cFile,{|cFile,nPos|oText:SetText("Descomprimiendo"+CRLF+cFile),; nActual:=nPos/nFiles*100,oMeter:Set(nActual)},.T.,,cPathDescarga,aFiles,NIL ...

Hakan,

Not yet. The only solution by now is to create the GETs not from the ON INIT clause of the dialog.

In example, you could create them from:
oDlg:bStart = { || CreateGets() }

... reuniendo archivos..." @ 0.5, 2 SAY oText VAR cMsg SIZE 180, 20 OF oDlg @ 2, 2 METER oMeter VAR nActual TOTAL 100 OF oDlg SIZE 200, 20 oDlg:bStart:={||lVal:=Hb_ZIPFILE(cFile,aFile, 9,{|cFile,nPos|oText:SetText("Comprimiendo "+cFile),; nActual:=nPos/nLen*100,oMeter:Set(nActual)} ...

Shridhar,

I am not sure about what you want to do exactly, but maybe you could use oWnd:bStart that is executed just once, when the window is initially shown

... principal a la vista, como por ejemplo presentar una clave de acceso, una petición de datos iniciales, etc. Normalment utilizo el CodBlock bStart de TDIALOG, pero tiene el inconveniente de que está situado antes de evaluar el bPainted con lo que nuestra pantalla principal, si tenía dibujado ...

... line , the aplication freezes on the paint clausule from the main window : ACTIVATE WINDOW oWnd MAXIMIZED ; ON INIT ( Start_Hen(DataDir , oWnd , bStart ) ) ; /* ON PAINT ( BmpTiled( hDC , oBmpTiled ),; PalBmpDraw( hDC,; ( oWnd:nHeight() / 2 ) - ( oBmp:nHeight() / 2 ) - 50,; ( oWnd:nWidth() / ...

Antonio,
skin1,skin2.exe all are ok.
but mine app dialog seems only a blink after add oDlg:bStart := {|| oSkin := Skin( oDlg, "Blue_skin" ) } .
TKS!
Shuming Wang

... oLbxLista:SetColor(RGB(0,0,0),RGB(242,244,255)) // oSay1:SetFont(oSayFnt1) oLbxLista:SetFont(oFntLista) oLbxLista:SetItems(aLista) oDlgSitef:bStart:={|| oLbxLista:SetFocus() } ACTIVATE DIALOG oDlgSitef CENTERED resource: OPERACOES_SITEF_ADM DIALOG 281, 43, 310, 302 STYLE DS_MODALFRAME | WS_POPUP ...

... WS_POPUP ) ELSE DEFINE DIALOG oDlg ; FROM 0,0 TO 4, Max( Len( cCaption ), Len( cTitle ) ) + 4 ; TITLE cTitle ; STYLE DS_MODALFRAME ENDIF oDlg:bStart := { || Eval( bAction, oDlg ), oDlg:End(), SysRefresh() } oDlg:cMsg := cCaption nWidth := oDlg:nRight - oDlg:nLeft setdialogesc(.f.) //AQUI Possivel ...

Try putting oGet03:GoBottom() in the INIT clause or in the bStart codeblock of the dialog.

EMG