designer hwgui

[clebervn]

Alguém tem manual dessa ferramenta ?
é boa
pq a utilizei aqui e está dando mto erro, não salva o q foi feito.... etc

[infosys2]

Eu fiz alguns testes aqui e conseguiu salvar normal..

Quanto a manual eu acredito que nao tem.

[esbasso]

Alguém tem manual dessa ferramenta ?
é boa
pq a utilizei aqui e está dando mto erro, não salva o q foi feito.... etc

Quais os erros Clebervn?

a não ser que tem uma versão muito antiga

baixe a mais atual daqui
http://www.engersoft.com.br/download/util/designer.zip

e poste erros que por ventura voce encontrar

-------------------------------
Nota de Moderação (Toledo): mensagem editada para colocar a tag [ quote ]
Veja como utilizar esta tag: faq.php?mode=bbcode#f20

[clebervn]

Encontrei mtos problemas de "paus" dando na hora de desenhar e salvar....
Embora estamos ainda desenhando as telas pelo menos para serem reaproveitadas
Meu problema maior não é esse, é como se compila via prompt qdo é mais de um programa....

postei ja no tópico correspondente

obg

[esbasso]

ja que tu boa vontade é pequena...
tambem abandonei

[clebervn]

Desculpe se me fiz mal expressar...
O q acontece tb é o seguinte.....

Criamos uma telinha pelo designer e qdo vamos por junto do projeto para compilar, a tela acaba ficando diferente e não aceitando certos elementos... tipo label

ex :

oLabel1:name := "teste"

da erro... seria alguma biblioteca q tem q compilar junto ? pq vi q na guilib.ch os comandos estao diferentes mesmo

[esbasso]

voce deve estar usando uma versão antiga da HWGUI.
Voce precisa atualizar lib
A TUA LIB é muit antiga
ATUALIZE DO CVS OU DE
https://sourceforge.net/project/platfor ... p_id=94178

[clebervn]

Eu pus um VALID em um get meu mas da erro...

minha compilação é com hbmake <arquivo>.bc

dentro esta assim :

#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
HWGUI = xhwgui
GUI = YES
MT = NO
SRC03 = obj
PROJECT = rh.exe $(PR)
OBJFILES = $(SRC03)\RH.obj $(SRC03)\RHDADOSSIN.obj $(OB)
PRGFILES = RH.PRG RHDADOSSIN.PRG $(PS)
OBJCFILES = $(OBC)
CFILES = $(CF)
RESFILES =
RESDEPEN =
TOPMODULE = RH.PRG
LIBFILES = hwgui.lib procmisc.lib hwg_qhtm.lib lang.lib vm.lib rtl.lib rdd.lib macro.lib pp.lib dbfntx.lib dbfcdx.lib dbffpt.lib common.lib gtgui.lib gtnul.lib codepage.lib ct.lib tip.lib pcrepos.lib hsx.lib hbsix.lib
EXTLIBFILES =
DEFFILE =
HARBOURFLAGS = -w0
CFLAG1 = -OS $(SHELL) $(CFLAGS) -d -c -L$(HB_DIR)\lib
CFLAG2 = -I$(HB_DIR)\include;$(CC_DIR)\include
RFLAGS =
LFLAGS = -L$(CC_DIR)\lib\obj;$(CC_DIR)\lib;$(HB_DIR)\lib -Gn -M -m -s -Tpe -x -aa -L$(HWGUI)\lib
IFLAGS =
LINKER = ilink32

ALLOBJ = c0w32.obj $(OBJFILES) $(OBJCFILES)
ALLRES = $(RESDEPEN)
ALLLIB = $(USERLIBS) $(LIBFILES) import32.lib cw32.lib
.autodepend

#DEPENDS

#COMMANDS
.cpp.obj:
$(CC_DIR)\BIN\bcc32 $(CFLAG1) $(CFLAG2) -o$* $**

.c.obj:
$(CC_DIR)\BIN\bcc32 -I$(HB_DIR)\include $(CFLAG1) $(CFLAG2) -o$* $**

.prg.obj:
$(HB_DIR)\bin\harbour -D__EXPORT__ -n -go -I$(HB_DIR)\include $(HARBOURFLAGS) -I$(HWGUI)\include -o$* $**

.rc.res:
$(CC_DIR)\BIN\brcc32 $(RFLAGS) $<

#BUILD

$(PROJECT): $(CFILES) $(OBJFILES) $(RESDEPEN) $(DEFFILE)
$(CC_DIR)\BIN\$(LINKER) @&&!
$(LFLAGS) +
$(ALLOBJ), +
$(PROJECT),, +
$(ALLLIB), +
$(DEFFILE), +
$(ALLRES)
!


Pode-se compilar xharbour com hwgui assim
mesmo pondo a versão 2.17 ainda esta aparecendo a 2.16.... não é só copiar por cima

desculpe minhas perguntas, mas to apanhando um pouco do hwgui

obg

[sygecom]

Sim, é só compiar as LIB e os INCLUDE, que deve aparecer 2.17. Post o exemplo que esta compilando:
no link abaixo postei varios exemplos de Hwgui:
http://www.4shared.com/dir/9103314/4c5c ... aring.html

[clebervn]

Segue em anexo o arquivo do erro q deu, note q embora eu copiando a versão 2.17 ainda aparece q é 2.16...

esta dando problema qdo dou um resfresh nas variaveis....Segue o programa :

Código: Selecionar todos

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

STATIC Thisform
FUNCTION rhdadSin
 RETURN _rhdadSin()

FUNCTION _rhdadSin

 PRIVATE nCodigo := 0 , cTipo := "", cNome  := "", cCodent := "", cLograd := "", cNumero := "" ;
        ,cComple := "", cCnpj := "", cBairro:= "", cCep    := "", cCidade := "", cUf     := "" ;
		,cDDD    := "", cTel  := "", cRamal := "", nAliqp  := 0.0000 
 PRIVATE vCodigo := 0 , vTipo := "", vNome  := "", vCodent := "", vLograd := "", vNumero := "" ;
        ,vComple := "", vCnpj := "", vBairro:= "", vCep    := "", vCidade := "", vUf     := "" ;
		,vDDD    := "", vTel  := "", vRamal := "", vAliqp  := 0.0000 

 PRIVATE oLabel1, oOwnerbutton1, oLabel2, oLabel3, oLabel4, oLabel5, oLabel6, oLabel7 ;
        ,oLabel8, oLabel9, oLabel10, oLabel11, oLabel12, oButton1, oButton2

  INIT DIALOG oDlg TITLE "Dados cadastrais de sindicatos" ;
    ICON HIcon():AddFile('IMAGES\Soft.ico')  ;
    AT 40,167 SIZE 674,477 NOEXIT  ;
    STYLE WS_POPUP+WS_CAPTION+DS_CENTER +WS_SYSMENU
    Thisform := oDlg

   Abre_tabela() 
   // SAY
   @ 71,20 SAY oLabel1 CAPTION "Código"  SIZE 80,19 ;
        STYLE SS_RIGHT   
   @ 71,52 SAY oLabel2 CAPTION "Nome"  SIZE 80,21 ;
        STYLE SS_RIGHT    
   @ 71,92 SAY oLabel3 CAPTION "CNPJ"  SIZE 80,19 ;
        STYLE SS_RIGHT     
   @ 42,120 SAY oLabel4 CAPTION "Código entidade"  SIZE 109,20 ;
        STYLE SS_RIGHT     
   @ 71,159 SAY oLabel5 CAPTION "Logradouro"  SIZE 80,20 ;
        STYLE SS_RIGHT   
   @ 71,191 SAY oLabel6 CAPTION "Número"  SIZE 80,20 ;
        STYLE SS_RIGHT   
   @ 58,225 SAY oLabel7 CAPTION "Complemento"  SIZE 93,20 ;
        STYLE SS_RIGHT   
   @ 71,255 SAY oLabel8 CAPTION "Cep"  SIZE 80,20 ;
        STYLE SS_RIGHT   
   @ 71,289 SAY oLabel9 CAPTION "Bairro"  SIZE 80,20 ;
        STYLE SS_RIGHT   
   @ 71,322 SAY oLabel10 CAPTION "Cidade"  SIZE 80,20 ;
        STYLE SS_RIGHT   
   @ 71,356 SAY oLabel11 CAPTION "UF"  SIZE 80,20 ;
        STYLE SS_RIGHT   
   @ 51,387 SAY oLabel12 CAPTION "Ddd/Tel/Ramal"  SIZE 100,20 ;
        STYLE SS_RIGHT   

   // GET 
   @ 155,20 GET vCodigo  VAR nCodigo SIZE 40,24   PICTURE '999' MAXLENGTH 3  ; 
        TOOLTIP "Digite Código do Sindicato" ;
		VALID{||fValidSin(nCodigo,1)}
   @ 155,52 GET vNome    VAR cNome   SIZE 311,24  MAXLENGTH 80  ; 
        TOOLTIP "" 
   @ 155,90 GET vCnpj    VAR cCnpj   SIZE 136,24  PICTURE '@R 99.999.999/9999-99'  ; 
        TOOLTIP ""
   @ 155,119 GET vCodent VAR cCodent SIZE 80,24   ; 
        TOOLTIP ""
   @ 155,159 GET vLograd VAR cLograd SIZE 307,24  MAXLENGTH 80  ; 
        TOOLTIP ""
   @ 155,191 GET vNumero VAR cNumero SIZE 80,24   ; 
        TOOLTIP ""
   @ 155,224 GET vComple VAR cComple SIZE 305,24  ; 
        TOOLTIP ""
   @ 155,255 GET vCep    VAR cCep    SIZE 80,24   PICTURE '@R 99999-999'  ; 
        TOOLTIP ""
   @ 155,289 GET vBairro VAR cBairro SIZE 302,24  ; 
        TOOLTIP ""
   @ 155,322 GET vCidade VAR cCidade SIZE 302,24  ; 
        TOOLTIP ""
   @ 155,355 GET vUf     VAR cUf     SIZE 27,24   ; 
        TOOLTIP ""
   @ 155,386 GET vTel    VAR cTel    SIZE 165,24  ; 
        TOOLTIP ""
		
   // BUTTONS
   @ 199,20 OWNERBUTTON oOwnerbutton1  SIZE 68,23  ON CLICK {|| f_msg() } ;
        TEXT 'Buscar'  ;
        COORDINATES 0, 0, 0, 0   
   @ 438,431 BUTTON oButton1 CAPTION "&Confirmar"  SIZE 90,30 ;
        STYLE WS_TABSTOP  
   @ 538,433 BUTTON oButton2 CAPTION "Cancela&r"  SIZE 90,30 ;
        STYLE WS_TABSTOP  

   ACTIVATE DIALOG oDlg 

RETURN oDlg:lresult

function f_msg()
msginfo("teste")
return nil

function abre_tabela()
use rhsind alias sind shared new
if !file("sind1.ntx")
   index on codigo to sind1
endif
set index to sind1   
go top 
return nil

FUNCTION fValidSin(vVar,vTipOpe)
Local oDlg:=GetModalHandle()
DO CASE 
   CASE vTipOpe == 1
        seek vVar
        IF eof()
		   cTipo   := ""
		   cNome   := ""
		   cCodent := "" 
		   cLograd := ""
		   cNumero := ""
           cComple := ""
		   cCnpj   := ""
		   cBairro := ""
		   cCep    := ""
		   cCidade := ""
		   cUf     := "" 
		   cDDD    := ""
		   cTel    := ""
		   cRamal  := ""
		   nAliqp  := 0.0000 
        ELSE
		   cTipo   := sind->tipo
		   cNome   := sind->nome
		   cCodent := sind->codent
		   cLograd := sind->lograd
		   cNumero := sind->numero
           cComple := sind->comple
		   cCnpj   := sind->cnpj
		   cBairro := sind->bairro
		   cCep    := sind->cep
		   cCidade := sind->cidade
		   cUf     := sind->uf
		   cDDD    := sind->ddd
		   cTel    := sind->tel
		   cRamal  := sind->ramal
		   nAliqp  := sind->aliqp
		ENDIF  
		
        vNome:Refresh()
        vCodent:Refresh()
		vLograd:Refresh()
        vNumero:Refresh()
        vComple:Refresh()
		vCnpj  :Refresh()
		vBairro:Refresh()
		vCep   :Refresh()
		vCidade:Refresh()
		vUf    :Refresh()
		vDDD   :Refresh()
		vTel   :Refresh()
		vRamal :Refresh()
		
ENDCASE
RETURN .t.

Nota de Moderação (Sygecom): mensagem editada para colocar a tag [ CODE ]
Veja como utilizar esta tag: faq.php?mode=bbcode#f20

[esbasso]

Voce esta confundindo os OBJETOS com as variaveis
O DESIGNER NÃO GERA ESTE CODIGO
PRIVATE vCodigo := 0 , vTipo := "", vNome := "", vCodent := "", vLograd := "", vNumero := "" ;
,vComple := "", vCnpj := "", vBairro:= "", vCep := "", vCidade := "", vUf := "" ;
,vDDD := "", vTel := "", vRamal := "", vAliqp := 0.0000

VOCE NÃO PODE ATRIBUIR VALORES AOS OBJETOS somente as variaveis

vCodigo é um OBJETO não uma variavel
nCodigo é a VARIAVEL
PARA DAR UM REFRESH EM TODOS OS OBJETOS FAÇA APENAS THISFORM:REFRESH()

[alceu11]

Luis Fernando Basso
Bom dia

Eu estou com problema na ide designer versao 5/2/2010 as 15,01hs baixei a no forum
veja a imagem http://img260.imageshack.us/i/editmenu.jpg/

na hora que vou escrever o codigo.
thisform:close()

nem entra para eu digitar, poderia arrumar este problema.

Olha trabalho com programacao VFP a muito tempo,
E esta sua IDE é exelente nota 10 )

dbfview nao esta fechando as tabelas. apos abri-las!!!

Se corrigir isto

Esta IDE vc nao pode fornecer os codigos fontes

emall alceu11@yahoo.com.br

[esbasso]

Foi corrigido , pode baixar daqui
http://www.engersoft.com.br/download/util/xdesigner.rar

[alceu11]

Obrigado
Luis Fernando
Ja baixei e testei ok..
pode ver este problema
no dbf view ; http://img704.imageshack.us/img704/9928/dbfwiew.jpg

depois de abrir a tabela, e fechar e sair e
entrar de novo nao consigo acessar a tabela , em um novo form. ele diz que o arquivo esta sendo usado,
nao vejo uma forma de dar um close all nete, ou use

[esbasso]

Não me parece ser problema do DESIGNER. Esta mensagem é do WINDOWS. Algo esta errado ai. Parece que esta tentando salvar.