FiveTech Software tech support forums

Por probar, que tal un refresco del botón:

REDEFINE BTNBMP oBtnFldALU[1] ID 500 OF oFldALUM:aDialogs[2] UPDATE;
ACTION (nSALVAR := 2, oBarALUM:UPDATE(), oFldALUM:SetOption(3), oFldALUM:aDialogs[3]:UpDate(),oBtnALUM[5]:Refresh() )

... WHEN (nSALVAR > 1); ACTION ( graba(oDbfALUM, oBrwALUM), MSGWAIT("Espere, Guardando Datos..."), oFldALUM:SetOption(1) ) REDEFINE BTNBMP oBtnFldALU[1] ID 500 OF oFldALUM:aDialogs[2] UPDATE; ACTION (nSALVAR := 2, oBarALUM:UPDATE(), oFldALUM:SetOption(3), ...

... oDlg2:bPainted := { | hDC | GradientFill( hDC, 0, 0, oDlg1:nHeight, oDlg1:nWidth, { { 0.50, 16054371, 128 } } ) } oPages:SetOption( 1 ) return nil Best Regards Uwe :lol:

Carlos, > Programa: Code.prg Linea 72: No esta definidas las variables : nOption, nOldOption Code: @ 4, 0 TABS ::oTabs OF Self ; ON CHANGE ( ::SetOption( nOption, nOldOption ),; ::SetText( "Source editor: " + ::oActiveEdit:cFileName ) ) > La variable nOption si esta definida en folder.ch. ...

... ::nFdHeight ) endif return nil y el ON init oFold:lPaint:=.t. , oFold:Hide() , oFold:Show() y me queda un TPAGES que lo manjejo con oFold:SetOption desde la clase de andres reyes salu2

... { .f., .f., .f., .f., .f., .f.} poi per fare il bottone per andare avanti di un folder REDEFINE BUTTON obtn_next OF oFld:aDialogs[1] ACTION oFld:SetOption(2) poi per il resto devi chiedere a emg

... ejemplo y te lo envio. Prueba esto que encontre por alli...da una idea: Prueba asi: oFold:aDialogs[3]:bGotFocus := {|| lbItmRsl:SetFocus() } oFold:SetOption(3)

Ya lo he puesto,
pero no noto ningún cambio.

Lo he probado quitando el oTab:SetOption(1), y vuelve a dar el error.

... CANCEL TEXT ON_BOTTOM REDEFINE SBUTTON tchbtn[23] ID 4017 OF oDlg1 RESOURCE "NOTES" ACTION(oTabs:SetOption(2),oTabs:refresh(),MostraTotalTC(aProdtch,@nTtPagar,nPedido,aMesa,vtsay,otsay,cMod,lvendabal),pFaobRW:setfocus()) CANCEL TEXT ON_BOTTOM if ...

Silvio,

Just modify the code this way and it paints fine in XP too:

MENUITEM "Normal" ACTION ( oPages:SetOption( 1 ), oDlg:SetSize( 255, 245, .T. ) )
MENUITEM "Scientific" ACTION ( oPages:SetOption( 2 ), oDlg:SetSize( 485, 245, .T. ) )

... sorry I used setsize function function BuildMenu( oPages ,oDlg) local oMenu MENU oMenu 2007 MENUITEM "Type" MENU MENUITEM "Normal" ACTION (oPages:SetOption( 1 ) , oDlg:setsize( 255, 245),oDlg:refresh()) MENUITEM "Scientific" ACTION (oPages:SetOption( 2 ), oDlg:setsize( 485, 245),oDlg:refresh()) ...

... Since you are calling another modal dialog from bChange the built-in dialog doesn't get displayed until after you close the modal one. Look at the setOption() method. You might try moving the bChange eval to after the dialog show(), but I don't know what other consequences this might have. Note ...

... for the black part ? In the moment, the 1. Button on top of the Button-list is a <Dummy-button> with a blank child. I just do SetOption(1), before i carry on with the selected function. In this way the background is filled. http://www.pflegeplus.com/pictures/outlook2.jpg ...

... =========== Called from: win32ole.prg => TOLEAUTO:_SORT(0) Called from: pcustomer.prg => (b)CUSTOMER(206) Called from: TTabs.prg => TTABS:SETOPTION(712) Called from: TTabs.prg => TTABS:LBUTTONDOWN(632) Called from: => TWINDOW:HANDLEEVENT(0) Called from: CONTROL.PRG => TTABS:HANDLEEVENT(0) ...

Prueba así:

oRadMenu:SetOption( 1 )

Revisa samples\TestRad.prg para que veas donde se crea oRadMenu