No [x]Harbour ALT gr+Tecla n funciona.

[Eduardo Borio]

Ola,
Antes de eu migrar os sistemas pra Harbour, as teclas ALT+O e ALT gr + O (ex, eu usava pra ordenar o TBrowse) funcionavam perfeitamente, mas gora
so funciona com o ALT esquerdo, com o direito nao.

Qual seria o codigo dessa tecla? Alguem tem alguma sugestao... exceto deixar de usar o ALT da direita. Mtos usuarios usam a anos e estao reclamando muito.

Obrigado.

[sygecom]

Bom dia, fiz um teste rapido aqui e funcionou.
Qual versão do seu Harbour ?
Já tentou com xHarbour ?
Está usando alguma LIB grafica ?

[Eduardo Borio]

Ola, obrigado pela resposta.
No meu pc funciona normalmente por ser teclado americano. Mas nos clientes que tem teclado com a tecla Alt gr, n funciona.
Nao uso lib grafica, uso harbour-1.0.0. (xharbour n esta 100% compativel com a minha aplicacao).
Obrigado

[sygecom]

Pois é que estranho, post um pequeno exemplo com .PRG e .EXE para poder testar aqui, o meu tem o ALT gr, e está funcionando tudo certo.

[Alexandre Silva]

OI,,
Alguem resolveu esta questao..
Supondo que o usuario esteja em um Browse, eum determinado registro, lá pelo meio, e resolva chamar umas das funcoes de atalho (ALT_C para calculadora por exemplo) basta apertar ALT que o registro vai sofrer um GOTOP..
O Harbour nao espera pressionar a segunda tecla..!!
Tenho vairios atalhos.. que os usuarios ja estao acostumados..so falta isso para poder colocar a versao em Harbour 2.1. (com hbmk2,

Código: Selecionar todos

#include 'inkey.ch'
Function Main
 tecla := inkey(0)  
 If TECLA = K_ALT_C
     alert('Alt+c pressionado: '+str(K_ALT_C))
 else'
     alert('Apenas tecla ALT pressionada')
 EndIf

[Itamar M. Lins Jr.]

Ola!
Tem um post bem grande meu no grupo de desenvolvedores sobre esse problema.
Atualize o seu Harbour.
Verifique se tem alguns virus.

Na realidade eu não sei se foi só aquela versão que peguei do Harbour ou se foi um virus, porque no meu note também deu esse problema.
No entanto depois que atualizei do SVN e recompilei tudo o problema resolveu-se e fiquei sem saber ao certo o que ocorreu.


Saudações,
Itamar M. Lins Jr.

[Pablo César]

Só a tecla ALT não funciona e nem a ALT Gr no exemplo a seguir mas o resto parece funcionar, compile e veja até os eventos do mouse ele detecta, claro o segundo parâmetro do INKEY faz a diferença. Terá também que desabilitar o ALT-C pois é saída interna no xBase para que não interfira.

Código: Selecionar todos

#include "inkey.ch"

Function main()
local k
setcancel(.f.)
? "<Esc> - Saida"
Do While (.t.)
   k:=inkey(0,INKEY_ALL)
   ? " Tecla: "+str(k,7)
   if k==27 .and. nextkey()==0
      exit
   endif
enddo
Return nil

Existe outro código que detecta as teclas inclusive ALT, CTRL, SHIFT, CAPS LOCK, INSERT, NUM LOCK, só que em HMG em modo gráfico. Para quem estiver interessado ja disponibilizei na seção Downloads em: https://pctoledo.org/forum/fileba ... 154&page=1

[Itamar M. Lins Jr.]

Tem um super teste para isso feito pelo Przmek.
Olha a pasta tests do Harbour e compilar o exemplo gtkeys.prg, pega tudo inclusive o mouse.
SHIFT+@ encerra o teste.

Código: Selecionar todos

/*
 * $Id: gtkeys.prg 16507 2011-03-26 02:32:52Z druzus $
 */

/*
 * Harbour Project source code:
 *    demonstration/test code for GT keyboard input
 *
 * Copyright 2007 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
 * www - http://harbour-project.org
 *
 */

#include "inkey.ch"
#ifdef __HARBOUR__
#include "hbgtinfo.ch"
#endif

function main()
local k, i, s
local aKeys := { ;
 { "K_UP",               5, "Up arrow, Ctrl-E"                }, ;
 { "K_DOWN",            24, "Down arrow, Ctrl-X"              }, ;
 { "K_LEFT",            19, "Left arrow, Ctrl-S"              }, ;
 { "K_RIGHT",            4, "Right arrow, Ctrl-D"             }, ;
 { "K_HOME",             1, "Home, Ctrl-A"                    }, ;
 { "K_END",              6, "End, Ctrl-F"                     }, ;
 { "K_PGUP",            18, "PgUp, Ctrl-R"                    }, ;
 { "K_PGDN",             3, "PgDn, Ctrl-C"                    }, ;
 { "K_CTRL_UP",        397, "Ctrl-Up arrow"                   }, ;
 { "K_CTRL_DOWN",      401, "Ctrl-Down arrow"                 }, ;
 { "K_CTRL_LEFT",       26, "Ctrl-Left arrow, Ctrl-Z"         }, ;
 { "K_CTRL_RIGHT",       2, "Ctrl-Right arrow, Ctrl-B"        }, ;
 { "K_CTRL_HOME",       29, "Ctrl-Home, Ctrl-]"               }, ;
 { "K_CTRL_END",        23, "Ctrl-End, Ctrl-W"                }, ;
 { "K_CTRL_PGUP",       31, "Ctrl-PgUp, Ctrl-Hyphen"          }, ;
 { "K_CTRL_PGDN",       30, "Ctrl-PgDn, Ctrl-^"               }, ;
 { "K_ALT_UP",         408, "Alt-Up arrow"                    }, ;
 { "K_ALT_DOWN",       416, "Alt-Down arrow"                  }, ;
 { "K_ALT_LEFT",       411, "Alt-Left arrow"                  }, ;
 { "K_ALT_RIGHT",      413, "Alt-Right arrow"                 }, ;
 { "K_ALT_HOME",       407, "Alt-Home"                        }, ;
 { "K_ALT_END",        415, "Alt-End"                         }, ;
 { "K_ALT_PGUP",       409, "Alt-PgUp"                        }, ;
 { "K_ALT_PGDN",       417, "Alt-PgDn"                        }, ;
 { "K_ENTER",           13, "Enter, Ctrl-M"                   }, ;
 { "K_RETURN",          13, "Return, Ctrl-M"                  }, ;
 { "K_SPACE",           32, "Space bar"                       }, ;
 { "K_ESC",             27, "Esc, Ctrl-["                     }, ;
 { "K_CTRL_ENTER",      10, "Ctrl-Enter"                      }, ;
 { "K_CTRL_RETURN",     10, "Ctrl-Return"                     }, ;
 { "K_CTRL_RET",        10, "Ctrl-Return (Compat.)"           }, ;
 { "K_CTRL_PRTSCR",    379, "Ctrl-Print Screen"               }, ;
 { "K_CTRL_QUESTION",  309, "Ctrl-?"                          }, ;
 { "K_ALT_ENTER",      284, "Alt-Enter"                       }, ;
 { "K_ALT_RETURN",     284, "Alt-Return"                      }, ;
 { "K_ALT_EQUALS",     387, "Alt-Equals"                      }, ;
 { "K_ALT_ESC",        257, "Alt-Esc"                         }, ;
 { "KP_CENTER",        332, "Keypad CENTER (5)"               }, ;
 { "KP_ALT_ENTER",     422, "Keypad Alt-Enter"                }, ;
 { "KP_CTRL_5",        399, "Keypad Ctrl-5"                   }, ;
 { "KP_CTRL_SLASH",    405, "Keypad Ctrl-/"                   }, ;
 { "KP_CTRL_ASTERISK", 406, "Keypad Ctrl-*"                   }, ;
 { "KP_CTRL_MINUS",    398, "Keypad Ctrl--"                   }, ;
 { "KP_CTRL_PLUS",     400, "Keypad Ctrl-+"                   }, ;
 { "KP_ALT_5",           5, "Keypad Alt-5"                    }, ;
 { "KP_ALT_SLASH",     420, "Keypad Alt-/"                    }, ;
 { "KP_ALT_ASTERISK",  311, "Keypad Alt-*"                    }, ;
 { "KP_ALT_MINUS",     330, "Keypad Alt--"                    }, ;
 { "KP_ALT_PLUS",      334, "Keypad Alt-+"                    }, ;
 { "K_INS",             22, "Ins, Ctrl-V"                     }, ;
 { "K_DEL",              7, "Del, Ctrl-G"                     }, ;
 { "K_BS",               8, "Backspace, Ctrl-H"               }, ;
 { "K_TAB",              9, "Tab, Ctrl-I"                     }, ;
 { "K_SH_TAB",         271, "Shift-Tab"                       }, ;
 { "K_CTRL_INS",       402, "Ctrl-Ins"                        }, ;
 { "K_CTRL_DEL",       403, "Ctrl-Del"                        }, ;
 { "K_CTRL_BS",        127, "Ctrl-Backspace"                  }, ;
 { "K_CTRL_TAB",       404, "Ctrl-Tab"                        }, ;
 { "K_ALT_INS",        418, "Alt-Ins"                         }, ;
 { "K_ALT_DEL",        419, "Alt-Del"                         }, ;
 { "K_ALT_BS",         270, "Alt-Backspace"                   }, ;
 { "K_ALT_TAB",        421, "Alt-Tab"                         }, ;
 { "K_CTRL_A",           1, "Ctrl-A, Home"                    }, ;
 { "K_CTRL_B",           2, "Ctrl-B, Ctrl-Right arrow"        }, ;
 { "K_CTRL_C",           3, "Ctrl-C, PgDn, Ctrl-ScrollLock"   }, ;
 { "K_CTRL_D",           4, "Ctrl-D, Right arrow"             }, ;
 { "K_CTRL_E",           5, "Ctrl-E, Up arrow"                }, ;
 { "K_CTRL_F",           6, "Ctrl-F, End"                     }, ;
 { "K_CTRL_G",           7, "Ctrl-G, Del"                     }, ;
 { "K_CTRL_H",           8, "Ctrl-H, Backspace"               }, ;
 { "K_CTRL_I",           9, "Ctrl-I, Tab"                     }, ;
 { "K_CTRL_J",          10, "Ctrl-J"                          }, ;
 { "K_CTRL_K",          11, "Ctrl-K"                          }, ;
 { "K_CTRL_L",          12, "Ctrl-L"                          }, ;
 { "K_CTRL_M",          13, "Ctrl-M, Return"                  }, ;
 { "K_CTRL_N",          14, "Ctrl-N"                          }, ;
 { "K_CTRL_O",          15, "Ctrl-O"                          }, ;
 { "K_CTRL_P",          16, "Ctrl-P"                          }, ;
 { "K_CTRL_Q",          17, "Ctrl-Q"                          }, ;
 { "K_CTRL_R",          18, "Ctrl-R, PgUp"                    }, ;
 { "K_CTRL_S",          19, "Ctrl-S, Left arrow"              }, ;
 { "K_CTRL_T",          20, "Ctrl-T"                          }, ;
 { "K_CTRL_U",          21, "Ctrl-U"                          }, ;
 { "K_CTRL_V",          22, "Ctrl-V, Ins"                     }, ;
 { "K_CTRL_W",          23, "Ctrl-W, Ctrl-End"                }, ;
 { "K_CTRL_X",          24, "Ctrl-X, Down arrow"              }, ;
 { "K_CTRL_Y",          25, "Ctrl-Y"                          }, ;
 { "K_CTRL_Z",          26, "Ctrl-Z, Ctrl-Left arrow"         } }
aadd(aKeys, { "K_ALT_A",          286, "Alt-A"                          }  )
aadd(aKeys, { "K_ALT_B",          304, "Alt-B"                          }  )
aadd(aKeys, { "K_ALT_C",          302, "Alt-C"                          }  )
aadd(aKeys, { "K_ALT_D",          288, "Alt-D"                          }  )
aadd(aKeys, { "K_ALT_E",          274, "Alt-E"                          }  )
aadd(aKeys, { "K_ALT_F",          289, "Alt-F"                          }  )
aadd(aKeys, { "K_ALT_G",          290, "Alt-G"                          }  )
aadd(aKeys, { "K_ALT_H",          291, "Alt-H"                          }  )
aadd(aKeys, { "K_ALT_I",          279, "Alt-I"                          }  )
aadd(aKeys, { "K_ALT_J",          292, "Alt-J"                          }  )
aadd(aKeys, { "K_ALT_K",          293, "Alt-K"                          }  )
aadd(aKeys, { "K_ALT_L",          294, "Alt-L"                          }  )
aadd(aKeys, { "K_ALT_M",          306, "Alt-M"                          }  )
aadd(aKeys, { "K_ALT_N",          305, "Alt-N"                          }  )
aadd(aKeys, { "K_ALT_O",          280, "Alt-O"                          }  )
aadd(aKeys, { "K_ALT_P",          281, "Alt-P"                          }  )
aadd(aKeys, { "K_ALT_Q",          272, "Alt-Q"                          }  )
aadd(aKeys, { "K_ALT_R",          275, "Alt-R"                          }  )
aadd(aKeys, { "K_ALT_S",          287, "Alt-S"                          }  )
aadd(aKeys, { "K_ALT_T",          276, "Alt-T"                          }  )
aadd(aKeys, { "K_ALT_U",          278, "Alt-U"                          }  )
aadd(aKeys, { "K_ALT_V",          303, "Alt-V"                          }  )
aadd(aKeys, { "K_ALT_W",          273, "Alt-W"                          }  )
aadd(aKeys, { "K_ALT_X",          301, "Alt-X"                          }  )
aadd(aKeys, { "K_ALT_Y",          277, "Alt-Y"                          }  )
aadd(aKeys, { "K_ALT_Z",          300, "Alt-Z"                          }  )
aadd(aKeys, { "K_ALT_1",          376, "Alt-1"                          }  )
aadd(aKeys, { "K_ALT_2",          377, "Alt-2"                          }  )
aadd(aKeys, { "K_ALT_3",          378, "Alt-3"                          }  )
aadd(aKeys, { "K_ALT_4",          379, "Alt-4"                          }  )
aadd(aKeys, { "K_ALT_5",          380, "Alt-5"                          }  )
aadd(aKeys, { "K_ALT_6",          381, "Alt-6"                          }  )
aadd(aKeys, { "K_ALT_7",          382, "Alt-7"                          }  )
aadd(aKeys, { "K_ALT_8",          383, "Alt-8"                          }  )
aadd(aKeys, { "K_ALT_9",          384, "Alt-9"                          }  )
aadd(aKeys, { "K_ALT_0",          385, "Alt-0"                          }  )
aadd(aKeys, { "K_F1",              28, "F1, Ctrl-Backslash"             }  )
aadd(aKeys, { "K_F2",              -1, "F2"                             }  )
aadd(aKeys, { "K_F3",              -2, "F3"                             }  )
aadd(aKeys, { "K_F4",              -3, "F4"                             }  )
aadd(aKeys, { "K_F5",              -4, "F5"                             }  )
aadd(aKeys, { "K_F6",              -5, "F6"                             }  )
aadd(aKeys, { "K_F7",              -6, "F7"                             }  )
aadd(aKeys, { "K_F8",              -7, "F8"                             }  )
aadd(aKeys, { "K_F9",              -8, "F9"                             }  )
aadd(aKeys, { "K_F10",             -9, "F10"                            }  )
aadd(aKeys, { "K_F11",            -40, "F11"                            }  )
aadd(aKeys, { "K_F12",            -41, "F12"                            }  )
aadd(aKeys, { "K_CTRL_F1",        -20, "Ctrl-F1"                        }  )
aadd(aKeys, { "K_CTRL_F2",        -21, "Ctrl-F2"                        }  )
aadd(aKeys, { "K_CTRL_F3",        -22, "Ctrl-F4"                        }  )
aadd(aKeys, { "K_CTRL_F4",        -23, "Ctrl-F3"                        }  )
aadd(aKeys, { "K_CTRL_F5",        -24, "Ctrl-F5"                        }  )
aadd(aKeys, { "K_CTRL_F6",        -25, "Ctrl-F6"                        }  )
aadd(aKeys, { "K_CTRL_F7",        -26, "Ctrl-F7"                        }  )
aadd(aKeys, { "K_CTRL_F8",        -27, "Ctrl-F8"                        }  )
aadd(aKeys, { "K_CTRL_F9",        -28, "Ctrl-F9"                        }  )
aadd(aKeys, { "K_CTRL_F10",       -29, "Ctrl-F10"                       }  )
aadd(aKeys, { "K_CTRL_F11",       -44, "Ctrl-F11"                       }  )
aadd(aKeys, { "K_CTRL_F12",       -45, "Ctrl-F12"                       }  )
aadd(aKeys, { "K_ALT_F1",         -30, "Alt-F1"                         }  )
aadd(aKeys, { "K_ALT_F2",         -31, "Alt-F2"                         }  )
aadd(aKeys, { "K_ALT_F3",         -32, "Alt-F3"                         }  )
aadd(aKeys, { "K_ALT_F4",         -33, "Alt-F4"                         }  )
aadd(aKeys, { "K_ALT_F5",         -34, "Alt-F5"                         }  )
aadd(aKeys, { "K_ALT_F6",         -35, "Alt-F6"                         }  )
aadd(aKeys, { "K_ALT_F7",         -36, "Alt-F7"                         }  )
aadd(aKeys, { "K_ALT_F8",         -37, "Alt-F8"                         }  )
aadd(aKeys, { "K_ALT_F9",         -38, "Alt-F9"                         }  )
aadd(aKeys, { "K_ALT_F10",        -39, "Alt-F10"                        }  )
aadd(aKeys, { "K_ALT_F11",        -46, "Alt-F11"                        }  )
aadd(aKeys, { "K_ALT_F12",        -47, "Alt-F12"                        }  )
aadd(aKeys, { "K_SH_F1",          -10, "Shift-F1"                       }  )
aadd(aKeys, { "K_SH_F2",          -11, "Shift-F2"                       }  )
aadd(aKeys, { "K_SH_F3",          -12, "Shift-F3"                       }  )
aadd(aKeys, { "K_SH_F4",          -13, "Shift-F4"                       }  )
aadd(aKeys, { "K_SH_F5",          -14, "Shift-F5"                       }  )
aadd(aKeys, { "K_SH_F6",          -15, "Shift-F6"                       }  )
aadd(aKeys, { "K_SH_F7",          -16, "Shift-F7"                       }  )
aadd(aKeys, { "K_SH_F8",          -17, "Shift-F8"                       }  )
aadd(aKeys, { "K_SH_F9",          -18, "Shift-F9"                       }  )
aadd(aKeys, { "K_SH_F10",         -19, "Shift-F10"                      }  )
aadd(aKeys, { "K_SH_F11",         -42, "Shift-F11"                      }  )
aadd(aKeys, { "K_SH_F12",         -43, "Shift-F12"                      }  )
aadd(aKeys, { "K_MOUSEMOVE",     1001, "mouse move"                     }  )
aadd(aKeys, { "K_LBUTTONDOWN",   1002, "mouse left button down"         }  )
aadd(aKeys, { "K_LBUTTONUP",     1003, "mouse left button up"           }  )
aadd(aKeys, { "K_RBUTTONDOWN",   1004, "mouse right button down"        }  )
aadd(aKeys, { "K_RBUTTONUP",     1005, "mouse right button up"          }  )
aadd(aKeys, { "K_LDBLCLK",       1006, "mouse left button double click" }  )
aadd(aKeys, { "K_RDBLCLK",       1007, "mouse right button double click"}  )
aadd(aKeys, { "K_MBUTTONDOWN",   1008, "mouse middle button down"       }  )
aadd(aKeys, { "K_MBUTTONUP",     1009, "mouse middle button up"         }  )
aadd(aKeys, { "K_MDBLCLK",       1010, "mouse middle button double click" }  )
aadd(aKeys, { "K_MMLEFTDOWN",    1011, "Mouse Move Left Down"           }  )
aadd(aKeys, { "K_MMRIGHTDOWN",   1012, "Mouse Move Right Down"          }  )
aadd(aKeys, { "K_MMMIDDLEDOWN",  1013, "Mouse Move Middle Down"         }  )
aadd(aKeys, { "K_MWFORWARD",     1014, "Mouse Wheel Forward"            }  )
aadd(aKeys, { "K_MWBACKWARD",    1015, "Mouse Wheel Backward"           }  )
aadd(aKeys, { "K_NCMOUSEMOVE",   1016, "Non-Client Area Mouse Movement" }  )
aadd(aKeys, { "HB_K_RESIZE",     1101, "screen dimension changed"       }  )
aadd(aKeys, { "HB_K_CLOSE",      1102, "close button hit"               }  )
aadd(aKeys, { "HB_K_GETFOCUS",   1103, "focus restored"                 }  )
aadd(aKeys, { "HB_K_LOSTFOCUS",  1104, "focus lost"                     }  )
aadd(aKeys, { "HB_K_CONNECT",    1105, "remote terminal connected"      }  )
aadd(aKeys, { "HB_K_DISCONNECT", 1106, "remote terminal disconnected"   }  )

? os(), version(), date(), time()

mdblclk(250)
setcancel(.f.)
//altd(0)

#ifdef __HARBOUR__
   set( _SET_EVENTMASK, hb_bitOR( INKEY_ALL, HB_INKEY_GTEVENT ) )
   hb_gtInfo(HB_GTI_ESCDELAY,50)
   hb_cdpSelect( "PLMAZ" )
   hb_setTermCP( "PLISO" )
   ? hb_gtVersion(1), hb_gtVersion()
#else
   #ifdef INKEY_ALL
      set(_SET_EVENTMASK,INKEY_ALL)
   #endif
#endif

? "@ - interrupt, keycodes checking: "
?
while (.t.)
   k:=inkey(0)
   if (i:=ascan(aKeys, { |x| x[2]==k }))!=0
      ? " key:"+str(aKeys[i,2],7)+"  "+padr(aKeys[i,1],18)+aKeys[i,3]
   elseif k>=32 .and. k<=126 .or. (k>=160 .and. k<=255) .or.;
          (k>=0 .and. k<=255 .and. IsAlpha(chr(k)))
      ? "char:"+str(k,7)+"  "+chr(k)
   else
      ? " key:"+str(k,7)
   endif
//   ?? "  ("+ltrim(str(maxrow()))+":"+ltrim(str(maxcol()))+")"

   if k==asc("@") .and. nextkey()==0
      exit
#ifdef __HARBOUR__
   elseif k==K_CTRL_INS
      if alert( "Would you like to show clipboard text?", { "YES", "NO" } ) == 1
         s := hb_gtInfo( HB_GTI_CLIPBOARDDATA )
         ? "Clipboard text: [" + s + "]"
      endif
   elseif k==K_CTRL_END
      if alert( "Would you like to set clipboard text?", { "YES", "NO" } ) == 1
         s := hb_tstostr( hb_datetime() ) + hb_eol() + ;
              "Harbour " + hb_gtVersion() + " clipboard test" + hb_eol()
         ? "New clipboard text: [" + s + "]"
         hb_gtInfo( HB_GTI_CLIPBOARDDATA, s )
      endif
#endif
   endif
enddo
?
return nil

Saudações,
Itamar M. Lins Jr.

[Pablo César]

o exemplo gtkeys.prg, pega tudo inclusive o mouse

Pois é... foi através dele que me baseei mas discordo de ti, pois não pega tudo não. Pelo menos eu testei compilando com Harbour 2.0 através da IDE da HMG e não detecta apenas o "ALT" quando pressionado e também não detecta o "Alt Gr". Melhor exemplo que encontrei foi um complemento em C que o colega uruguaio postou (já na sessão Downloads para quem quiser conferir).

[Alexandre Silva]

Agradeco a todos, algumas consideracoes..
Estou começando.. usando harbour em modo console puro, usando hbmk2 projeto.hbp
Tinha instalado a versao 2.0 e logo depois acabei encontrando a 2.1 (harbour-nightly-win)

Quanto a questao do ALT, o problema esta acontecendo na versao 2.1, voltei para versao 2.0 e está ok.. o que é uma pena, porque alguma coisa aconteceu ai..


1-Vamos esquecer o ALT C (que é influenciado pelo setcancel() , suponde um ALT_J que uso para calcular juros, se estiver no browsedb, ao apertar a telcla ALT, retorna codigo 31, equivalente ao CTRL PGUP , como se a tecla ALT fosse uma tecla independente, deslocando meu arquivo para o primeiro registro (já que CONTROL PAGE UP) está configurado para isso..

2-Usando -gtwvt no .HBP ( nao aconte o problema)

3-Voltei para versao 2.0 aguardando uma soluçao melhor..

4-Outra coisa que sinto problema, debugando no clipper eu digitava ALT D, abria o fonte, se digitasse WP MATRIZ, por exemplo, apertasse tab até a janela de Watch, podia abrir e ver seu conteudo, por linha e coluna..

No harbour, tem que apertar ALT D e ESC, e o ESC pode te tirar do local, que voce queria parar, e para ver o conteudo de uma matriz, tem que usar o ALT_M (monitor) mas ai nao tem opcao de escolher apenas uma variavel,
é assim mesmo ??

[Itamar M. Lins Jr.]

Ola!

Pois é... foi através dele que me baseei mas discordo de ti, pois não pega tudo não. Pelo menos eu testei compilando com Harbour 2.0 através da IDE da HMG e não detecta apenas o "ALT" quando pressionado e também não detecta o "Alt Gr".

Com a sua versão do Harbour provavelmente usando BCC, porque aqui com a versão do SVN 2.1 Mingw pega essas teclas citadas.
De qualquer forma, é um problema estranho porque parou de acontecer aqui comigo.
E com muitos outros usuários que fizeram o teste não ocorreu o problema do ALT.
O Viktor me mandou um arquivo gtwin.c para fazer uns testes, e novamente não ocorreu mais o problema.
Pode ser um problema com o leiaute do teclado USA-internacional. Mas como não está mais ocorrendo aqui fica dificil isolar o problema e dizer com certeza o que ocorreu, até porque só ocorreu na minha maquina e na do Alexandre, outras pessoas fizeram o teste e não ocorreu o problema.

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Ola!
Alexandre atualize o Harbour, se não usa SVN deixa para baixar depois dia 22/04/2011.
A meia noite é gerado automaticamente uma nova versão do SVN.

2011-04-21 16:56 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
* ChangeLog
! Addes missing change to 2011-04-21 01:00 UTC+0200 Viktor Szakats (harbour.01 syenar.hu):
* src/rtl/gtwin/gtwin.c
! Reverted optimization patch in
2011-03-30 14:20 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
It caused strange effects (<Alt> key causing INKEY()
to return <Ctrl+PgUp> on some national keysets or some
other region related attributes, it was reported by few
users from Brazil.

Saudações,
Itamar M. Lins Jr.

[Alexandre Silva]

Opa..
Legal !! Após baixar a ultima versao 2.1, o problema do ALT foi resolvido.. :{
Agora tenho o seguinte problema, qual include devo colocar para usar a funcao CURDRIVE() ??
nao versao 2.0 nao precisava indicar..

[sygecom]

Tente com: hb_CurDrive()

[Alexandre Silva]

Beleza.. ) mais uma funcao para a colecao..
valeu