FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour GET ACTION com SPINNER ?? (RESOLVIDO)
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
GET ACTION com SPINNER ?? (RESOLVIDO)
Posted: Mon Jan 04, 2010 08:01 PM
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
ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Re: GET ACTION com SPINNER ??
Posted: Wed Jan 06, 2010 07:19 PM

?

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Re: GET ACTION com SPINNER ?? (resolvido)
Posted: Wed Jan 06, 2010 07:59 PM

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,;

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
Re: GET ACTION com SPINNER ?? (RESOLVIDO)
Posted: Mon Jan 25, 2010 11:20 AM
SGS,

Si, tu solución es correcta, gracias :-)

Tambien habría que cambiar estas líneas:
Code (fw): Select all Collapse
         @ 0, ::nWidth - ::nHeight - If( ::lSpinner, 20, 0 ) BUTTONBMP ::oBtn OF Self ;
         ACTION ( Eval( oThis:bAction, oThis ), oThis:SetFocus() ) ;
         SIZE ::nHeight - 4, ::nHeight - 4 PIXEL
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Re: GET ACTION com SPINNER ?? (RESOLVIDO)
Posted: Mon Jan 25, 2010 12:38 PM

obrigado

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin

Continue the discussion