GET ACTION com SPINNER ?? (RESOLVIDO)

[MGA]

Sr. Antonio,

Não esta aparecendo o botão quando uso ACTION no GET + SPINNER, algum exemplo de como utilizar?

veja:


rc:
FROMRES DIALOG 0, 0, 150, 150
STYLE DS_MODALFRAME | WS_BORDER | WS_DLGFRAME | WS_POPUP | WS_SYSMENU
FONT 8, "MS Sans Serif"
CAPTION "Dialog"
BEGIN
EDITTEXT 100, 11, 10, 80, 15, ES_AUTOHSCROLL|WS_VSCROLL
EDITTEXT 101, 10, 40, 80, 15, ES_AUTOHSCROLL|WS_VSCROLL
EDITTEXT 102, 9, 70, 129, 17, ES_AUTOHSCROLL|WS_VSCROLL
EDITTEXT 103, 10, 100, 130, 14, ES_AUTOHSCROLL|WS_VSCROLL
END

[MGA]

?

[MGA]

method CreateButton()

de:
::oBtn := TBtnBmp():New(0,::nWidth - nBmpWidth - 4,nBmpWidth,::nHeight - 4,;

por:
::oBtn := TBtnBmp():New(0,::nWidth - nBmpWidth - if(::lSpinner,20,4),nBmpWidth,::nHeight - 4,;

[Antonio Linares]

SGS,

Si, tu solución es correcta, gracias

Tambien habría que cambiar estas líneas:

Code: Select all  Expand view

         @ 0, ::nWidth - ::nHeight - If( ::lSpinner, 20, 0 ) BUTTONBMP ::oBtn OF Self ;
         ACTION ( Eval( oThis:bAction, oThis ), oThis:SetFocus() ) ;
         SIZE ::nHeight - 4, ::nHeight - 4 PIXEL
 

[MGA]

obrigado