Antonio, a classe BTNBMP não conta com a opção DESIGN?
Obrigado
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour BTNBMP design ?
oBtnBmp:lDrag := .T.
Grato Antonio
Antonio, é possÃvel executar uma ação em um objeto SAY (design) depois de clicar sobre o mesmo e arrastar, ou seja, ao soltar o botão do mouse?
Acontece que tenho que dar um refresh no objeto depois de arrastar!
Obrigado
Prueba a usar oSay:bLButtonUp = { || ... }
Obrigado Antonio, mais não funcionou!
for i:=1 to len(PoBtc)
@ lin,col say PoBtc[i] OF oWndp DESIGN PIXEL SIZE 100,20 BORDER
PoBtc[i]:bLButtonUp = { || PoBtc[i]:refresh(),msg("aqui") }
next
Grato
for i:=1 to len(PoBtc)
@ lin,col say PoBtc[i] OF oWndp DESIGN PIXEL SIZE 100,20 BORDER
PoBtc[i]:bLButtonUp = { || PoBtc[i]:refresh(),msg("aqui") }
next
Grato
Asi no lo puedes hacer. Tienes que usar "detached locals":
for i:=1 to len(PoBtc)
@ lin,col say PoBtc[i] OF oWndp DESIGN PIXEL SIZE 100,20 BORDER
PoBtc[i]:bLButtonUp = GenBlock( PoBtc, i )
next
...
static function GenBlock( PoBtc, i )
return { || PoBtc[ i ]:Refresh(), MsgInfo( "aqui" ) }desculpe Antonio mais também não funciona!
Obrigado
Pruébalo asÃ:
for i:=1 to len(PoBtc)
@ lin,col say PoBtc[i] PROMPT "say" OF oWndp DESIGN PIXEL SIZE 100,20 BORDER
PoBtc[i]:bLButtonUp = GenBlock( PoBtc, i )
PoBtc[i]:lWantClick = .T.
next
...
static function GenBlock( PoBtc, i )
return { || PoBtc[ i ]:Refresh(), MsgInfo( "aqui" ) }Mais uma vez me desculpe, ainda não funciona! Acredito que seja algo com o objeto say.
Obrigado!
Tienes que hacer una modificación en la Clase TControl para poder procesar bLButtonUp estando en modo diseño:
METHOD LButtonUp( nRow, nCol, nKeyFlags ) CLASS TControl
...
if GetFocus() != ::hWnd
SetFocus( ::hWnd )
endif
if ! Empty( ::bLButtonUp ) // Nuevo!
Eval( ::bLButtonUp, nRow, nCol, nKeyFlags, Self ) // Nuevo!
endif // Nuevo!
return 0
...Perfeito Antonio... Funcionou perfeitamente!
Estas correções já estão na nova versão do FW?
Muito Obrigado!
Olá Antonio,
No meu caso, uso assim e funciona perfeitamente.
Isto estaria correto também ?
Abraços,
Rossine.
No meu caso, uso assim e funciona perfeitamente.
...
if GetFocus() != ::hWnd
SetFocus( ::hWnd )
endif
** return 0 <<-- Tirar esta linha
endif
return Super:LButtonUp( nRow, nCol, nKeyFlags )Isto estaria correto também ?
Abraços,
Rossine.
Obrigado, Regards, Saludos
Rossine.
Harbour and Harbour++
Rossine.
Harbour and Harbour++
Rossine,
> Isto estaria correto também ?
No, porque en la Clase TWindow se vuelve a evaluar.
Por eso hay que usar return 0, para que no se llame a Super:LButtonUp
OK Antonio 
Obrigado pela explicação.
Rossine.
Obrigado, Regards, Saludos
Rossine.
Harbour and Harbour++
Rossine.
Harbour and Harbour++