Use the "TAB" or "ENTER" to change cell

[dioneib]

Is there any way to change the cell in a "Grid" component using the "TAB" key or "ENTER".
Use the mouse for this is not productive.


Thank you in advance.
hugs
Dionei

[Fred Tomke]

Hi, yes there is: check the the Form.OnCancelClose event which is invoked when pressing enter.
I used this in this sample project.

Regards, Fred

[dioneib]

I managed to move forward.
Navigation is perfect.
The code is presented below:

(defun c:DBEngenharia_BCDADOS/Form_Geral/Grid_Legenda#OnEndLabelEdit (Row Column / iColunas iLinhas lCelula iRow iColumn)

  ;direcionar a navegação da grid
  (setq iColunas (dcl-Grid-GetColumnCount DBEngenharia_BCDADOS/Form_Geral/Grid_Legenda))
  (setq iLinhas  (dcl-Grid-GetRowCount DBEngenharia_BCDADOS/Form_Geral/Grid_Legenda))
  (setq lCelula  (dcl-Grid-GetCurCell DBEngenharia_BCDADOS/Form_Geral/Grid_Legenda))
  (setq iRow     (car lCelula))
  (setq iColumn  (cadr lCelula))

  ;se não estiver na ultima coluna
  (if (< iColumn iColunas)
    (progn
      ;;setar a proxima coluna e navegar normalmente semmudar a linha
      (setq iColumn (1+ iColumn))
     )
    (progn
      ;se for a ultima coluna então vai para a primeira colunha
      (setq iColumn 1)

      (if (< iRow iLinhas)
        (progn
          ;se for a ultima coluna mas nao a ultima linha então muda de linha
          (setq iRow (1+ iRow))
         )
        (progn
          ;se for a ultima linha então vai para a primeira linha
          (setq iRow 0)
         )
       ) ;;if (< iRow iLinhas)

     )
   )  ;;if (< iColumn iColunas)


  (dcl-Grid-SetCurCell DBEngenharia_BCDADOS/Form_Geral/Grid_Legenda iRow iColumn)
  (dcl-Grid-StartCellEdit DBEngenharia_BCDADOS/Form_Geral/Grid_Legenda iRow iColumn)
  (princ)
)



However the "Cancel" button stopped working:

(defun c:DBEngenharia_BCDADOS/Form_Geral/TextButton_Cancelar#OnClicked ( / )
  (dcl-Form-Close DBEngenharia_BCDADOS/Form_Geral 20)
   (princ)
  )


For each click on the grid cell button advances in one position.


Can I remove the "Cancel" button but prefer before asking what can I do to leave it running. I also realize that by pressing the Techa "Esc" the form closes. I ask if it is possible to intercept the "Esc" key. The procedure by clicking the "Cancel" button may be extamente the same as when you press the tecvla "Esc".

Excuse my English. Do not dominate your language.

I await more instructions.
Dionei

[Peter2]

If I understand it correctly, maybe "OnSelChanged" is the right event.

[Fred Tomke]

Hi, have you looked into the sample of my last post?

[...]However the "Cancel" button stopped working[...]

I do not see the whole code and project, but I'm afraid, that the callback function is not called.
I recomment you to study the sample I've mentioned before.

[...]I ask if it is possible to intercept the "Esc" key.[...]

Yes, of course you can. You can see this in the sample I've mentioned before.

Regards, Fred

[dioneib]

Excuse Me. In my brower did not show the link to download your example.
Thus I tried to guide me only by the post's comments.
I downloaded your example and I will study its source code.
Thank you greatly for your promptness and give sequenncia in the coming days.
We currently have more urgent activities to be developed.
Inform the results soon.

hugs
Dionei

[dioneib]

Dear Fred


Your example does not reflect my need.


I am sending the full sample.
Tetarei detail explain my need.

If you are missing some lisp function, just ask.

The project must be copied to a folder that is
PATH in AUTOCAD.

To start you must open the file TESTE.DWG

Load TESTE.LSP.
Use the syntax:

(Load "teste.lsp")

To start the program type in the AutoCAD command line:

EG <enter>


The Grid will be automatically populated.
This is not the problem.

The way I am sending the program it works perfectly
with the exception of navigation between cells of Grid.

The "Delete Row" buttons, "Insert Row", "Add Line" and "Cancel"
work exactly as I need.

The button "Update Drawing" is beside the point and inhibit some routines
he performed in order to not take them longer.






But What do I desire is to move the cursor on the Grid using the key
TAB or Enter key. I was able to do using the TAB key.

For the navigation function will be necessary to remove the
reviews of defun c: DBEngenharia_BCDADOS / Form_Geral / Grid_Legenda # OnEndLabelEdit

Leave it as follows:


(defun c:DBEngenharia_BCDADOS/Form_Geral/Grid_Legenda#OnEndLabelEdit (Row Column / qtd_loc material_loc dimensoes_loc peso_espec qtd_dimensoes
                                                                                   espessura_loc largura_loc comprimento_loc peso_peca diametro_loc
                                                                                   iColunas iLinhas lCelula iRow iColumn)

  ;direcionar a navegação da grid
  (setq iColunas (dcl-Grid-GetColumnCount DBEngenharia_BCDADOS/Form_Geral/Grid_Legenda))
  (setq iLinhas  (dcl-Grid-GetRowCount DBEngenharia_BCDADOS/Form_Geral/Grid_Legenda))
  (setq lCelula  (dcl-Grid-GetCurCell DBEngenharia_BCDADOS/Form_Geral/Grid_Legenda))
  (setq iRow     (car lCelula))
  (setq iColumn  (cadr lCelula))

  ;se não estiver na ultima coluna
  (if (< iColumn iColunas)
    (progn
      ;;setar a proxima coluna e navegar normalmente semmudar a linha
      (setq iColumn (1+ iColumn))
     )
    (progn
      ;se for a ultima coluna então vai para a primeira colunha
      (setq iColumn 1)

      (if (< iRow iLinhas)
        (progn
          ;se for a ultima coluna mas nao a ultima linha então muda de linha
          (setq iRow (1+ iRow))
         )
        (progn
          ;se for a ultima linha então vai para a primeira linha
          (setq iRow 0)
         )
       ) ;;if (< iRow iLinhas)

     )
   )  ;;if (< iColumn iColunas)


  (dcl-Grid-StartCellEdit DBEngenharia_BCDADOS/Form_Geral/Grid_Legenda iRow iColumn)
  (princ)
)




Run the program by typing
EG <enter>

in the AutoCAD command line.



notice that you can now move the Grid using
TAB.

In entando the domouse use was impaired.

The Mouse no longer obeys properly.

By clicking on a column the focus does not remain in the column indicated.

The "Delete Row" buttons, "Insert Row", "Add Line" and "Cancel"
fucnionava that do not work properly anymore.

When I click on "Cancel" the focus of the behavior an Grid
makes the cursor walks cell by cell.

Similar events occur when using the other buttons.

I think that by getting to make a button to work the other
also function properly.


I wish the end rsultado was the grid running
the TAB and the buttons all working properly.


I look forward tips and suggestions.

hugs

Dionei