Marcar Grid e ir para Proxima coluna

[Nascimento]

amigos venho aqui novamente para perguntar se tem como tipo
eu teclar "X" no teclado em uma grid e ir marcando e descendo a proxima linha
selecionando os itens ?? a grid contera basicamente 3 colunas exemplo {"MARCAR","NOME","NUMERO"}
ao descer a linha so fica o foco na coluna marcar da proxima linha

que tanto use o "X" do teclado quanto o click do mouse se eu clicar na coluna marcar adiciona um "X" na coluna

[Toledo]

Amigo, veja o demo que está na pasta C:\MiniGUI\SAMPLES\BASIC\CheckBox_Grid.
Neste demo você pode selecionar os itens clicando no CheckBox ou pressionando a Barra de Espaço do teclado, mas com o ON KEY você pode executar um código para selecionar o item utilizando uma outra tecla (ON KEY VK_X OF Form_1 ACTION {|| SuaFuncao()}).

Para selecionar:

Código: Selecionar todos

nItem:=Form_1.Grid_1.Value
Form_1.Grid_1.CheckboxItem (nItem) := .t.

Abraços,

[Nascimento]

por Toledo você pode executar um código para selecionar o item utilizando uma outra tecla (ON KEY VK_X OF Form_1 ACTION {|| SuaFuncao()}).

pelo que vi o exemplo vai se encaixar no que preciso so nao entendi como mudar o backspace para o "X" e ao mesmo tempo pular uma linha da grid

[Toledo]

Como disse na minha mensagem anterior, use o comando ON KEY VK_X OF Form_1 ACTION {|| SuaFuncao()}, então antes de:

Código: Selecionar todos

Form_1.center
Form_1.activate

Coloque o comando:

Código: Selecionar todos

ON KEY VK_X OF Form_1 ACTION {|| SuaFuncao()}

Na função SuaFuncao():

Código: Selecionar todos

Func SuaFuncao()
nItem:=Form_1.Grid_1.Value
Form_1.Grid_1.CheckboxItem (nItem) := .t.
Form_1.Grid_1.Value:=nItem+1
Return Nil

ATENÇÃO: não testei, mas acho que vai funcionar.

Abraços,

[Nascimento]

Amigo da erro justamente na linha da on key
sim devo te esquecido estou usando a minigui extended
se troco a "VK_X" por ESCAPE funciona mais preciso que seja o tal do "X" :%

[Toledo]

Amigo, troque o comando ON KEY por este:

Código: Selecionar todos

ON KEY X OF Form_1 ACTION {|| SuaFuncao()} TO lRet

Abraços,

[rubens]

Bom dia Toledo...

No grid a barra de espaço parece que é padrão para selecionar uma linha né...? não vi nenhum on key no código.

Eu preciso fazer isso num browse. mas não encontrei nenhuma informação no help da minigui.

Para definir o escape para fazer algo faço assim:
ON KEY ESCAPE ACTION ThisWindow.Release

E para definir barra de espaço?
Tentei
ON KEY SPACE ACTION ThisWindow.Release
ON KEY SPACEBAR ACTION ThisWindow.Release

e deu erro na compilação

Obg
Rubens

[Toledo]

E para definir barra de espaço?
Tentei
ON KEY SPACE ACTION ThisWindow.Release
ON KEY SPACEBAR ACTION ThisWindow.Release

Faltou tentar... ON KEY BACK ACTION ThisWindow.Release

Abraços,

[Toledo]

Ops... tecla errada... BACK é a BackSpace.

Vou fazer um teste e depois eu volto.

Abraços,

[Toledo]

Amigo, não existe nenhum ON KEY para a Barra de Espaço. Quando no grid existe um CheckBox, a barra de espaço já é usada para marcar/desmarcar o CheckBox da linha selecionada.

Abraços,

[rubens]

Obrigado... Toledo... imaginei isso mesmo... porque na relação do hmgs não tem on key para barra de espaço... vou definir outra tecla ou deixa no enter..

Obg

Rubens

[Nascimento]

Amigo(s) com checkbox nao deu muito certo no meu caso , entao como fazer no mesmo estilo colocar um "X" na coluna Marcar e ir para a proxima

tentei

Form_1.Grid_1.Item (1) := "X" , mais nao deu certo

[Toledo]

Amigo, seria algo assim:

Código: Selecionar todos

Func SuaFuncao()
nItem:=Form_1.Grid_1.Value
Form_1.Grid_1.Cell(nItem,1) := "X"
Form_1.Grid_1.Value:=nItem+1
Return Nil

Abraços,

[Nascimento]

isso mesmo obg caro amigo , Resolvido