Moderador: Moderadores
#include "inkey.ch"
#include "visual2.ch"
#include "Getexit.ch"
#include "wvtwin.ch" // FW_MEDIUM //
#include "hbgtinfo.ch" // HB_GTI_DESKTOPWIDTH //
#include "sysadm.ch"
//-------------------------------------------------------------------
INIT PROCEDURE Configura()
Request Hb_Lang_Pt
Request Hb_CodePage_Pt850
Request Hb_Gt_Wvt_Default
Request Hb_Lang_Pt
Request Wvt_SetCodePage
Request DbfCdx
RddSetDefault("DbfCdx")
Hb_LangSelect("PT")
Hb_SetCodePage( "PT850" )
Wvt_SetCodePage(255) // Pagina de codigo 850 //
//HB_GtInfo( HB_GTI_CLOSABLE, .F. ) // quer bloquear o botão X de fechamento?
//HB_GtInfo( HB_GTI_ICONFILE, "icone_do_app.ico" )
HB_GtInfo( HB_GTI_WINTITLE, tituloDesktop + versaoSistema )
HB_GtInfo( HB_GTI_MAXIMIZED, .t. ) // janela WideScreen
//SET EVENTMASK to 159
mSetCursor( .t. )
Hb_GtInfo( HB_GTI_FONTNAME , "Ms San Serif")
Hb_GtInfo( HB_GTI_FONTSIZE, 9)
Do Case
Case HB_GtInfo(HB_GTI_DESKTOPWIDTH) >= 1023
//Wvt_SetFont('VisualLib',15,7,FW_MEDIUM,2) //28,10,0 FW_NORMAL, FW_BOLD, FW_BLACK
//Hb_GtInfo( HB_GTI_FONTNAME , "Ms San Serif")
//Hb_GtInfo( HB_GTI_FONTSIZE, 9)
Case HB_gtinfo(HB_GTI_DESKTOPWIDTH) >= 800
Wvt_SetFont('VisualLib',21,11,FW_MEDIUM,2) //28,10,0 FW_NORMAL, FW_BOLD, FW_BLACK
//Hb_GtInfo( HB_GTI_FONTNAME , "Ms San Serif")
//Hb_GtInfo( HB_GTI_FONTSIZE, 9)
OtherWise
//Wvt_SetFont('VisualLib',15,7,FW_MEDIUM,2) //28,10,0 FW_NORMAL, FW_BOLD, FW_BLACK
//Hb_GtInfo( HB_GTI_FONTNAME , "Ms San Serif")
//Hb_GtInfo( HB_GTI_FONTSIZE, 9)
EndCase
Set Key -8 To calen()
Set Key -9 To calculadora()
SetMode(30,100)
Set Softseek On
Set Cursor On
Set Scoreboard Off
Set Date To British
Set Century On
Set Deleted On
RETURN (nil)
//-------------------------------------------------------------------
// End Off INIT PROCEDURE System
//-------------------------------------------------------------------
FUNCTION main()
//
DeskTop(tituloDesktop,"w+/b",,.f.) //string "", string COR, setmode, font
//LoginAcesso()
MontaMainMenu()
MontaBarraInferior()
RETURN (nil)
//-------------------------------------------------------------------
// End Off Entry Point MAIN PROCEDURE System
//-------------------------------------------------------------------
Antonio escreveu:Pessoal!!!
Consegui a utilização da Visual Lib com xHarbour 1.2.3 Simplex (20140725), acredito que é o changelog mais recente desde ontem a noite.
Obrigado.
!vl850.com
!avantft.com
hbmk2: Processando op‡äes do ambiente: -compiler=mingw
hbmk2: Processando arquivo de configura‡Æo:
G:\MVinfo\hmg.3.0.35\harbour\bin\hbmk.cfg
hbmk2: Processando: LIBVISUAL.hbc
hbmk2: Compilando...
In file included from G:/MVinfo/hb32/EXEMPLOS/visuallib/vlib.prg:2606:
G:/MVinfo/hmg.3.0.35/harbour/include/hbapi.h:1025: error: expected ')' before 'hInstance'
G:/MVinfo/hmg.3.0.35/harbour/include/hbapi.h:1026: error: expected ')' before '*' token
hbmk2: Erro: Executando compilador C. 1
gcc.exe -c -O3 -march=i586 -mtune=pentiumpro -fomit-frame-pointer -O3 -Wall -W -IG:/MVinfo/hmg.3.0.35/harbour/include -IG:/MVinfo/hmg.3.0.35//include -IG:/MVinfo/hb32/EXEMPLOS/visuallib -IG:/MVinfo/hb32/EXEMPLOS/visuallib/ .hbmk\win\mingw\vlib.c -o .hbmk/win/mingw/vlib.o
microvolution escreveu:conforme arquivo em anexo, o erro diz que não foi encontrada a LIB GTWVW
microvolution escreveu:eu prefiro o primeiro exemplo que é o seu, pois a visuallib aqui apresentada é a mesma usada no clipper, já a sua parece ser mais moderna.
***********************************
* INCLUDES E REQUESTS NECESSµRIAS *
***********************************
# include "visual2.ch"
# include "inkey.ch"
# include "hbgtinfo.ch"
# include "setcurs.ch"
# include "dbedit.ch"
# include "common.ch"
#ifndef _linux_
# include "icones.ch"
#endif
*---------------*
FUNCTION MAIN() && PROGRAMA PRINCIPAL --- TUDO COME€A AQUI .. RS
*---------------*
//altd() // debug
#ifdef _linux_
REQUEST HB_GT_XWC
REQUEST HB_CODEPAGE_PT850
REQUEST HB_CODEPAGE_PTISO
REQUEST HB_CODEPAGE_PLISO
REQUEST HB_LANG_PT
REQUEST HB_LANG_PLISO
hb_settermcp('LINUX','PT850') // Caracteres
hb_setcodepage('PT') // Pagina de codigo para os DBFs
set(105,1)
set(106,1)
#else
REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
HB_LANGSELECT( 'PT' )
HB_SETCODEPAGE( "PT850" )
#endif
*******************************
** USAR INDICES DRIVE DBFCDX **
*******************************
REQUEST DESCEND
REQUEST DBFCDX
REQUEST DBFFPT
RddSetDefault("DBFCDX")
DbSetDrive("DBFCDX")
********************************************************************************
** USA A BIBLIOTECA GTWVT.LIB **
********************************
#ifndef _linux_
REQUEST WVT_SETCODEPAGE
WVT_SETCODEPAGE(255)
WVT_SETTITLE(HB_OEMTOANSI("CONTROLE - Sistema de GestÆo Comercial Integrado"))
WVT_SETICON( ID_MAINICON )
if file("PAR.DBF") // destaca tela
use PAR alias PAR shared
if PAR->cc_destaca = "S"
wvt_setfont("courier new",1,0)
endif
PAR->(DBCLOSEAREA())
endif
do case
case HB_gtinfo(HB_GTI_DESKTOPWIDTH) > 1023
if file("PAR.DBF")
use PAR alias PAR shared
if PAR->cc_tela = "N"
HB_gtinfo(HB_GTI_FONTWIDTH,12)
HB_gtinfo(HB_GTI_FONTSIZE, 22)
else
HB_gtinfo(HB_GTI_FONTWIDTH,12)
HB_gtinfo(HB_GTI_FONTSIZE, 27)
endif
PAR->(DBCLOSEAREA())
else
HB_gtinfo(HB_GTI_FONTWIDTH,12)
HB_gtinfo(HB_GTI_FONTSIZE, 22)
endif
case HB_gtinfo(HB_GTI_DESKTOPWIDTH) > 799
if file("PAR.DBF")
use PAR alias PAR shared
if PAR->cc_tela = "N"
HB_gtinfo(HB_GTI_FONTWIDTH,10)
HB_gtinfo(HB_GTI_FONTSIZE, 20)
else
HB_gtinfo(HB_GTI_FONTWIDTH,10)
HB_gtinfo(HB_GTI_FONTSIZE, 22)
endif
PAR->(DBCLOSEAREA())
else
HB_gtinfo(HB_GTI_FONTWIDTH,10)
HB_gtinfo(HB_GTI_FONTSIZE, 20)
endif
otherwise
HB_gtinfo(HB_GTI_FONTWIDTH, 8)
HB_gtinfo(HB_GTI_FONTSIZE, 17)
endcase
#endif
********************************************************************************
** DIFINI€ÇO DOS SETïS **
*************************
SET DATE BRITISH
SET CENTURY ON
SET EPOCH TO 1990
SET CURSOR ON
SET WRAP ON
SET SCOREBOARD OFF
SET DELETED ON
SET EXCLUSIVE OFF
SET INTENSITY ON
SET BELL OFF
SET CONFIRM ON
SET CURSOR ON
SET EVENTMASK TO 159
#ifndef _linux_
SET KEY K_CTRL_V TO WVT_PASTEFROMCLIPBOARD()
// SET KEY K_CTRL_C TO Copiandoo()
#endif
WvT_SetAltF4Close( .F. )
SETCANCEL(.F.) // NÆO DEIXA SAIR COM O ALT+C
****************************************************************
** MONTA TELA INICIAL DO SISTEMA **
***********************************
DESKTOP("³ CONTROLE - Sistema de GestÆo Comercial Integrado ³")
@03,00 say replicate(" ",80) color "w*/w*"
set color to "B/W*"
@01,01 say "Usu rio - "
@01,40 say padl(DataExt(date()),39)
@03,00 say " Cadastros Estoque Vendas Compras Financeiro Relat¢rios Utilit rio Sair" color "N+/W*"
@03,02 say "C" color "r+/w*"
@03,13 say "E" color "r+/w*"
@03,22 say "V" color "r+/w*"
@03,31 say "o" color "r+/w*"
@03,39 say "F" color "r+/w*"
@03,51 say "R" color "r+/w*"
@03,63 say "U" color "r+/w*"
@03,75 say "S" color "r+/w*"
if file("par.dbf")
use par alias par shared
if PAR->cc_fundoT = "S"
for l := 4 to 22 step 2
@ l ,00 say "ÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÂÄ" color "bg/w"
@ l+1,00 say "ÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÄÁÄÄÂÄÁÄ" color "bg/w"
end
endif
par->(dbclosearea())
endif
//************************ Fundo Branco letras verdes*
SET COLOR TO BG*/NW
@ 08,02 CLEAR TO 21,77
***************************************************
SET COLOR TO +R*/NW
@ 10,05 SAY '======================================================================'
@ 12,05 SAY '²²²²²²² ²²²²²²² ²² ²² ²²²²²²²² ²²²²²²² ²²²²²²² ²² ²²²²²²'
@ 13,05 SAY '²² ²² ²² ²²² ²² ²² ²² ²² ²² ²² ²² ²² '
@ 14,05 SAY '²² ²² ²² ²² ² ²² ²² ²²²²² ²² ²² ²² ²²²²²²'
@ 15,05 SAY '²² ²² ²² ²² ²²² ²² ²² ²² ²² ²² ²² ²² '
@ 16,05 SAY '²²²²²²² ²²²²²²² ²² ²² ²² ²² ²² ²²²²²²² ²²²²²²² ²²²²²²'
@ 18,05 SAY '======================================================================'
SET COLOR TO BG*/NW
@ 19,05 SAY ' S I S T E M A D E A U T O G E S T Ç O I N T E G R A D O '
***********************************
*** BARRA DE UTILIDADES ATALHOS ***
***********************************
set color to "W+/B+"
@24,00 say replicate(" ",26)
@24,00 say padc("[F1]Sobre [F4]Calc [F5]Data/Hora [F6]E_mail [F7]Senha [F8]Finalizar",80)
@24,07 say "F1" color "R/B+"
@24,17 say "F4" color "R/B+"
@24,26 say "F5" color "R/B+"
@24,40 say "F6" color "R/B+"
@24,51 say "F7" color "R/B+"
@24,61 say "F8" color "R/B+"
*****************************************************************************
** FUN€åES NECESSµRIAS PARA O INICIO DO PROGRAMA **
***************************************************
GERADBF() && GERA OS DBF SE NAO EXISTIR --> FUNCOES.PRG
//VALIDA() && VERIFICA DATA DE VALIDADE DO SISTEMA --> FUNCOES.PRG
VERIFCDX() && VERIFICA SE EXISTE OS INDICES --> FUNCOES.PRG
CRIA_SENHA() && CRIA SENHA DEFAULT DO SISTEMA "CTRL" SE NAO EXISTIR
ABRE_ARQ() && ABRE OS ARQUIVOS -- FUNCOES.PRG
Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes