PC Toledo

Não tive travamentos, para mim tá boa.

Ok

minha intenção era coloca o relógio junto com o poupador de tela...

Função para colocar uma barra de navegação do tipo "primeiro registro, anterior, proximo, ultimo, novo, excluir, editar, salvar, sair"

funct DbNav( L_,;
C_,;
_BOT_DEFAULT_,;
_ATIVO_,;
_ARRBOTOES_,;
HINT,;
_COR_ATIVA_,;
_COR_INATIVA_,;
COR_BOX,;
_FUNC_USER_,;
_ICO_BOTAO_,;
_SOMBRA ...

Rotina para colocar um relógio em tempo real na tela (DOS) ativando (ou não) sua rotina de poupar tela
** Rotina aproveitada do exemplo do help do Visual XHarbour e modificada por mim ****

PROCEDURE oRelogio(vPoupa)
***********************************************************
* oRelogio()
* Rotina ...

Função para ativar o mouse:

#include 'inkey.ch'

PROCEDURE oMouse()
LOCAL nEvent, nRow, nCol
MShow()

SET EVENTMASK TO 255
nEvent := Inkey(0.1)
IF nEvent == K_LBUTTONDOWN
nRow := MRow()
nCol := MCol()
@ nRow, nCol
ENDIF
RETURN


Inclua uma chamada para a função no laço principal de sua ...

#include "hwgui.ch"
STATIC Thisform
GLOBAL FRMCAD_FORN

FUNCTION cad_forn()

Private vEditaForn := .t.

public oButton4, oButton1, oEdit1, oEdit2, oLabel1, oLabel2, oLine1 ;
, oEdit3, oLabel3, oEdit4, oLabel4, oPage1, oLabel21, oEdit6, oEdit5 ;
, oLabel6, oLabel5, oEdit7, oLabel7, oEdit8 ...

Nada...

não funcionou.....

Valeu, já ajuda.

Obrigado!

Bom dia,

Onde posso encontrar um manual ou tutoria mais detalhado do HwGui, uma vez que o manual que acompanha não diz nada sobre funções como : GetkeyState, SetFocus, refresh, etc.... (apenas estou citando como exemplos)

Preciso de um que tenha todas as funções detalhadas.... e se possível com ...

Bom dia,

Estou com o seguinte problema:

quando entro em um formulário qualquer, avanço os campos e botões com ENTER, porém em determinadas situações, como em uma busca (abrindo a janela de busca) o sistema retém a ultima tecla pressionada, no caso o ENTER, e ele abre a janela de busca e como a ...

Utilizei tua rotina criando uma genérica para uso em qualquer formulário e funcionou corretamente



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

STATIC Thisform, oForm, oFont, oBrw

FUNCTION grid()
Local aItems := {}, g1, g2, oEdit1
PRIVATE gPes, vPes:="", keyAnt:=0, aDB ...

#BCC
VERSION=BCB.01
!ifndef CC_DIR
CC_DIR = $(MAKE_DIR)
!endif

!ifndef HB_DIR
HB_DIR = $(HARBOUR_DIR)
!endif

RECURSE= NO

SHELL =
COMPRESS = NO
EXTERNALLIB = NO
XFWH = NO
FILESTOADD = 5
WARNINGLEVEL = 0
USERDEFINE =
USERINCLUDE =
USERLIBS =
EDITOR = edit
GUI = NO
MT = NO
SRC02 = obj ...

Uso o xDev

Já tenho uma função Main(), que é a função de entrada do programa, este seria um "sub-programa" uma função mesmo, ou procedure.
Na função Main() tenho a chamada para diversas sub-rotinas, como Fornecedores(), bancos(), Cadastros(), etc...

Nenhuma aceita que eu coloque function Nome_da_rotina() com ...

Bom dia,

Estou com um problema, quando tento popular um grid, utilizando a rotina abaixo, ocorre um erro de executável que executou uma operação ilegal.

*************************************************
STATIC Thisform, oForm, oFont, oGrid

FUNCTION grid()
Local aItems := {}, g1 := {}, g2 ...