set key

[clebervn]

alguém pode me dar uma dica sobre o "set key". pq verificando aqui.... qq tecla de função do teclado, de F1 a F12, sempre me retorna q foi 0 (zero) o valor da lastkey(), o q tenho q mudar ??


obg

[sygecom]

Cleber, esta usando alguma LIB visual ? ex: Hwgui, Minigui, xHgtk ?

[clebervn]

sim, hwgui !

[sygecom]

Ao inves de usar LASTKEY use :

#include "windows.ch"
GetKeyState(VK_F1)
GetKeyState(VK_F2)
GetKeyState(VK_F3)
GetKeyState(VK_F4)
....
....
....

[clebervn]

certo... mas como faço isso pra chamar por exemplo, a calculadora (exemplo qq )

tipo, atualmente eu escrevia....

set key f2 to calculadora()

como fica no jeito q vc explicou acima ?

[sygecom]

Para o SET KEY ficaria assim:

Código: Selecionar todos

func main()

  INIT DIALOG oBOLENT_INICIO TITLE "titulo";
  AT 0,0 SIZE 790,180 ;
  FONT HFont():Add( '',0,-13,400,,,) CLIPPER  NOEXIT  ;
  STYLE DS_CENTER +WS_SYSMENU+WS_VISIBLE 

  SET KEY 0,VK_F2 TO {|| ShellExecute("calc") }

  @ 15,22 SAY oLabel1 CAPTION "Boleto Nº.:" OF oGroup1  SIZE 65,22
  @ 81,22 GET oNUMBOL VAR vNUMBOL OF oGroup1  SIZE 65,24 ;
  STYLE WS_DISABLED +WS_BORDER   PICTURE '999999'   ;
  TOOLTIP 'Informe o Numero do Boleto'

  @ 15,52 SAY oLabel4 CAPTION "Data.:" OF oGroup1  SIZE 38,22
  @ 57,52 GET DATEPICKER oDATA VAR vDATA OF oGroup1  SIZE 90,24 ;
  STYLE 0;
  TOOLTIP 'Informe a Data do Boleto'

  @ 10,4 GROUPBOX oGroup1 CAPTION "Dados do Fornecedor e do Boleto"  SIZE 770,81  ;
  COLOR x_BLUE

  @ 679,95 BUTTONEX oButtonex2 CAPTION "&Cancelar"  SIZE 100,38 ;
  BITMAP (HBitmap():AddResource(1005)):handle  ;
  STYLE WS_TABSTOP   ;
  ON CLICK {|| DBCLOSEALL(),ENDDIALOG() };
  TOOLTIP 'Clique Aqui para Cancelar e Voltar aos Menus'

ACTIVATE DIALOG oBOLENT_INICIO

[clebervn]

deu o seguinte erro ..

Error BASE/1099 Erro nos parƒmetros: __ObjHasMsg
Called from ->__OBJHASMSG(0)
Called from hdialog.prg->SETDLGKEY(533)
Called from RH.PRG->MAIN(94)

HwGUI 2.16 xHarbour build 1.0.0 Intl. (SimpLex)
Date:18/12/08
Time:15:13:30

aproveitando... e se so pra chamar uma função do meu sistema, deveria ser assim ??

SET KEY 0,VK_F5 TO {|| FUNCAO1() }



OBG

[sygecom]

Post o codigo que vc usou e deu o erro.

[clebervn]

Código: Selecionar todos

#include "windows.ch"
#include "guilib.ch"
#include "inkey.ch"
#include "hwgui.ch"

#define x_LIGHTGREEN 12507070
#define x_BLUE       16711680
#define x_DARKBLUE   10027008
#define x_WHITE      16777215
#define x_CYAN       16776960
#define x_BLACK             0
#define x_RED             255
#define x_GREEN         32768
#define x_GRAY        8421504
#define x_YELLOW        65535
#define SINAL_MAIS    CHR(109)
#define SINAL_MENOS   CHR(107)
#define CRLF          CHR(13)+CHR(10)  // PULO DE LINHA



FUNCTION Main
PARAMETERS JRCTAG

Local Form_Main
Local oFont := Nil
Local nColor

Public oDir := "\"+Curdir()+"\"
PUBLIC cNomLabel, cObjLabel
PUBLIC oFontNegr, oFontMenu, oFontNorm

PRIVATE oIcon := HIcon():AddResource("ICONE") ,;
        oLogo := HBitmap():AddResource("LOGO2")

PRIVATE oMenu00, oSplash, cSenha, oLabelRH, cLabelRH := "", nVersao9 := 160
cNomLabel := "cLabelRH"
cObjLabel := "oLabelRH"

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850

HB_LANGSELECT("PT")
HB_SETCODEPAGE("PT850" )

SET EXCLUSIVE OFF
SET DELE ON
SET EPOCH TO 1930
SET DELETE ON
SET DATE BRIT
SET DELETE ON
SET SCORE OFF
SET CONFIRM ON

***** Set as teclas especiais *****
SET KEY 0,VK_F2 TO {||RHEMPRES()}
SET KEY 0,VK_F5 TO {||ShellExecute("calc")}
......

RETURN  .T.

[sygecom]

Coloque dentro da TELA do dialog, ou seja depois do INIT DIALOG