Botao com wvg
Enviado: 28 Jun 2014 19:18
Fiz alguns botoes com wvg mas encontrei alguns problemas:
- O sistema não para em cima do botao com foco
- O botao com foco nao obedece ENTER, apenas click com mouse
- Nao eh possivel mover o foco entre os botoes com TAB ou setas pros lados
- O sistema não para em cima do botao com foco
- O botao com foco nao obedece ENTER, apenas click com mouse
- Nao eh possivel mover o foco entre os botoes com TAB ou setas pros lados
Código: Selecionar todos
nBt1Alt := WvgPushButton():New()
nBt1Alt:PointerFocus := .t.
nBt1Alt:border := .t.
nBt1Alt:Caption := "ALTERAR"
nBt1Alt:Create( , , { (LINHA_F-1) * (-1), (COLUNA_I+02) * (-1) }, { -1.5, -9 } )
nBt1Alt:activate := {|| RetornoAltera() }
nBt2Exc := WvgPushButton():New()
nBt2Exc:PointerFocus := .t.
nBt2Exc:border := .t.
nBt2Exc:Caption := "EXCLUIR"
nBt2Exc:Create( , , { (LINHA_F-1) * (-1), (COLUNA_I+12) * (-1) }, { -1.5, -9 } )
nBt2Exc:activate := {|| RetornoExclui() }
nBt3Ret := WvgPushButton():New()
nBt3Ret:PointerFocus := .t.
nBt3Ret:border := .t.
nBt3Ret:Caption := "RETORNA"
nBt3Ret:Create( , , { (LINHA_F-1) * (-1), (COLUNA_I+22) * (-1) }, { -1.5, -9 } )
nBt3Ret:activate := {|| RetornoCancel() }
nBt2Exc:SetFocus()