Esse "SET" que você recomenda, já faz parte do Harbour, correto?De repente pode precisar algo do tipo:
SET( _SET_EVENTMASK, INKEY_ALL - INKEY_MOVE )
Isso também acontece comigo, o pessoal manda private p/ mim do LetoDb, HBQT, HBIDE... vc é contra a HBIDE ? é contra HBQTPergunta:
Por acaso tem algo contra mostrar o caminho aos usuários?
Isso de desviar assunto espanta usuários do fórum.
Tem que funcionar da mesma forma que no clipper. Qual é a versão do Harbour que vc está usando ?Um "LastKey()" dentro de uma função do "DBEdit" não está detectando o toque de teclas. F1, F2 e etc nada, somente ESC. O que pode ser?
Código: Selecionar todos
DBedit(05,16,18,64,oCampo,'DBedit31','',oCabeca,' ')
Function DBedit31
Parameters Modo
Aguarde('F2-Muda ordem "'+IndexKey()+'"')
//Tecla := LastKey()
RetDb := 1
If Modo = 4
If LastKey() = 27
RetDb := 0
ElseIf LastKey() = -1
If IndexKey() = 'CODIGRU'
Set Order To 2
ElseIf IndexKey() = 'DESCGRU'
Set Order To 1
Endif
Go Top
RetDb := 2
Endif
Endif
Return (RetDb)
Código: Selecionar todos
// Para vc verem que eu já usei essas coisas... GTWVW, GTWVG etc e tals... agora vc já pegam tudo sem bugs, no inicio era dureza!!!
#IFdef __PLATFORM__Windows
wvw_setcodepage(,255)
wvw_SetMainCoord( .t. )
setmode(wvw_maxmaxrow(),wvw_maxmaxcol())
if gtinfo(GTI_DESKTOPWIDTH) > 1023
wvw_SetFont(,'Courer New',29,12)
else
wvw_SetFont(, 'Courier New', 22, 10, 0 )
endif
set dirseparator("\")
hb_setcodepage([PTISO])
hb_langselect([PT])
#ELSE
hb_settermcp([LINUX],[PT850])
hb_setcodepage([PTISO])
hb_langselect([PT])
Hb_settermcp("LINUX","ACSC")
set dirseparator("/")
set FileCase("lower")
set DirCase("lower")
#ENDIF
Código: Selecionar todos
@24,0 SAY "SPACE-Tag/Untag ESC-End F2-List by code F3-List by name"
DBEDIT(0,0,20,79,{"IIF(aScan(aTagList,field->code)!=0,'X',' ')",;
"code",;
"name"},"myFunc",,{"Tag","Code","Name"})
DBCLOSEALL()
RETURN 0
// ------------------------------------------------
// Dbedit Key Handle routine
FUNCTION MyFunc(status, fld_ptr)
Local nReturn := 1, nKey, nPos
nKey = LASTKEY()
DO CASE
CASE status == 4
IF nKey == K_SPACE
IF (nPos := aScan(aTagList,field->code)) != 0
ADEL(aTagList,nPos)
ASIZE(aTagList,LEN(aTagList)-1)
ELSE
aadd(aTagList,field->code)
ENDIF
nReturn := 2
ELSEIF nKey == K_ESC
nReturn := 0
ELSEIF nKey == K_F2
doReport(1)
ELSEIF nKey == K_F3
doReport(2)
ENDIF
ENDCASE
RETURN nReturn
Entendido. Já estou fazendo uns teste aqui.SET( _SET_EVENTMASK, INKEY_ALL - INKEY_MOVE )
Essa é a que uso, que atende o modo geral, que inclui as teclas do mouse, e retira a movimentação do mouse pra não atrapalhar.
A intenção por enquanto é rodar essa rotina isolada, ver se são detectadas as teclas de função.
Lembrando, não sei se é o seu caso, alguns teclados deixam desativar as teclas de função.
Vai que aconteceu isso justo agora.
o inkey.ch é interessante pra não depender do código da tecla.
Mas comece testando aquela rotina isolada.
Vai ficar mais fácil identificar se precisa algo mais.
Eu sei, mas é porque antes deu mexer para encontrar o que poderia ser acabei modificando. Observe que tem a variável "tecla" e a mesma esta comentada. Mas pelo visto tanto faz eu fazer lendo o buffer uma única vez ou várias vezes separadamente que no meu caso não funcionou.No seu exemplo, vc faz diferente usa lastkey() várias vezes, basta ler o buffer do teclado uma vez só.
Pois é, o meu objetivo final é chega a colocar o mesmo para rodar no Linux. Mas no meu caso se roda no terminal sem o ambiente gráfico (GNome, KDE e etc) já estaria de bom tamanho. Com relação a impressão, eu já imaginava que seria assim, pois já mexi com o "Clip" (Linux) e nele era dessa forma que deveria ser feito, ou seja, gerar o arquivo depois imprimir.
Então vc precisa colocar isso nos fontes separando comando do LINUX e do Windows.
Impressão mesmo é outra coisa que precisa modificar, deverá criar em arquivo p/ depois enviar.
Tem que abrir um de cada vez se tentar abrir tudo junto da pau! Pelo menos foi isso que entendi.o problema ocorre no momento de abrir arquivos simultaneamente e não sequencialmente, desculpe minha falha. O problema também pareçe ser uma limitação real dos sistemas operacionais XP, 2k3 e Vista como mencionado pelo MVP no MS Group e que infelizmente não foi corrigido e muito menos sofre qualquer alteração na mudança do valor do dado Windows no parametro SharedSection.
No 2000 server já abre 16.384 !! conforme nota da MS imagine no Win7/8 segundo Quintas só abre 240 e sou eu que estou fazendo confusão.Com o Windows 2000 server, o limite de identificadores de arquivos abertos foi expandido para 16.384 (conforme observado com "Net Config server"). Enquanto o limite de identificadores de arquivos abertos foi expandido, o erro ainda pode ocorrer a menos que o uso de um circuito virtual separado por cada servidor de Terminal foi ativado.
Eu disse que atualmente meu aplicativo possui 120 arquivos, e como o cliente usa duas janelas, de empresas diferentes, totaliza 240 arquivos.segundo Quintas só abre 240
Servidor de Terminal, não é o Terminal Service?separado por cada servidor de Terminal
Olá José Quintas,Acho que faltou outra coisa também, não sei se faz diferença, mas qual a versão do Harbour que está usando?
E naquele programa isolado, aparecem as teclas de função?
Se estiver usando harbour 3.2 ou 3.4, outra coisa que pode ajudar a desvendar o mistério, mas vamos por partes:
Tem lá o projeto em HBP.
Inclua no projeto -inc
Isso é compilação incremental, só compila o que for alterado.
Num primeiro momento, pra forçar recompilação de tudo:
hbmk2 seuprojeto.hbp -rebuild
altere esse fonte que está brigando com ele, só pra que ele mude de data e seja recompilado.
agora recompile com debug:
hbmk2 seuprojeto.hbp -b
e agora é só rodar o programa, teclar ctrl-D, e acompanhar pelo debug pra ver o que acontece nesse módulo.
Código: Selecionar todos
PROCEDURE Main
SetMode( 25, 80 )
CLS
oStru := { { "CODIGRU", "C", 10, 0 }, { "DESCGRU", "C", 10, 0 } }
dbCreate( "teste", oStru )
USE teste
INDEX ON CODIGRU TAG ( "PRIMEIRO" )
INDEX ON DESCGRU TAG ( "SEGUNDO" )
APPEND BLANK
REPLACE CODIGRU WITH "PRIMEIRO", DESCGRU WITH "SEGUNDO"
APPEND BLANK
REPLACE CODIGRU WITH "SEGUNDO", DESCGRU WITH "PRIMEIRO"
USE teste
SET INDEX TO teste
SET ORDER TO 1
DBedit(05,16,18,64,,'DBedit31','',,' ')
CLOSE DATABASES
RETURN
FUNCTION DBedit31
PARAMETERS Modo
@ 24, 0 SAY 'F2-Muda ordem "'+IndexKey()+'"'
//Tecla := LastKey()
RetDb := 1
If Modo = 4
If LastKey() = 27
RetDb := 0
ElseIf LastKey() = -1
If IndexKey() = 'CODIGRU'
Set Order To 2
ElseIf IndexKey() = 'DESCGRU'
Set Order To 1
Endif
Go Top
RetDb := 2
Endif
Endif
Return RetDb