Pessoal, estou tentando entender o comando #command read que consta no std.ch mas tenho uma duvida quanto a ultima instrucao ao final do comando "(GetList)" .
#command READ => ReadModal( GetList ) ; GetList := {} ; ( GetList )
Alguem saberia me dizer do que se trata?
Eu precisava alterar o getsys.prg para incluir mais um parametro de cordenadas do mouse, para que o GET passe a aceitar eventos de botoes em console. Ja esta praticamente tudo certo só falta isso.
Na realidade eu gostaria de entender pra nao cometer nenhum bobagem e tambem ganhar tempo.
Penso em assim:
ReadModal (GetList, nPos, lIsMouse, getMouseButtons )
GetList = {}
Posso fazer assim? ou falta alguma coisa? Digo isso pois nao entendi o "(GetList)" e se isso pode complicar algo.
Obriagdo!
Como funciona o #command read do std.ch ?
Moderador: Moderadores
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
Como funciona o #command read do std.ch ?
Não significa nada.lwinter escreveu:Alguem saberia me dizer do que se trata?
Até já usei isso pra compilar LIBs gráficas com -w3 -es2.
Código: Selecionar todos
PROCEDURE Main
LOCAL x
(x)
RETURN
Desse jeito usa.... pra nada, mas usa.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
Como funciona o #command read do std.ch ?
Retirado do std.ch:
Código: Selecionar todos
#define HB_SYMBOL_UNUSED( symbol ) ( ( symbol ) )
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Como funciona o #command read do std.ch ?
Quer dizer que se eu compilar com (variavel) engana o compilador com as diretivas -es2 -w3?
Interessante mesmo! Cada dia aprendendo um pouco de Harbour.
Interessante mesmo! Cada dia aprendendo um pouco de Harbour.
Como funciona o #command read do std.ch ?
testei e nao é que funcionou!!!
Muito bom agora vou tapear o compilador quando precisar....kkkk... as vezes estou no meio do dev e tenho que ficar inventado moda para compilar , agora nao preciso mais.
Muito bom agora vou tapear o compilador quando precisar....kkkk... as vezes estou no meio do dev e tenho que ficar inventado moda para compilar , agora nao preciso mais.
Como funciona o #command read do std.ch ?
Esse GetList é uma variável private, provavelmente. Se for ainda acho melhor usar local GetList := {}. É como eu fazia na época do Clipper. Isso evita problemas com gets aninhados. Continua sendo uma boa prática.

