Jump to content
Fivewin Brasil

evertonlb

Membros
  • Posts

    733
  • Joined

  • Last visited

  • Days Won

    18

Posts posted by evertonlb

  1. Vagner,bom dia. Sei que to correndo o risco de tua proxima mensagem conter um "Nao falo mais nada a respeito disso, CHEGA!!!!!" mas o seguinte cara... no Backgrnd.c tem sim a pintaget() mas ta da seguinte maneira.

    #ifndef __HARBOUR__

    CLIPPER PINTAGET( PARAMS ) // hWnd, hDC, nColor1, nColor2, nTipo,lCalendario

    #else

    // Ahora para Harbour

    HARBOUR HB_FUN_PINTAGET( PARAMS )

    #endif

    ta bem certinho isso?

    Porque sera que da o erro?

    como faco esse negocio funcionar?

    Me ajude por favor... prometo que se me ajudar um dia eu ajudo outro! hehehehehe

    cara so nao compro a vLib agora porque quero colocar uns gets diferentes e tals... nao adianta comprar ela agora e usa-la so daqui 60 dias!

    ainda ta 150,00 a vLib?

    Com a vLib nao corro o mesmo risco de dar esses paus?

    Atenciosamente

    Everton

    xHb 99.50/FW 2.4/MyMake/xDev/XP

  2. Olha pessoal,nao funciona. Nao sei o que to fazendo de errado,mas nao funciona.

    da os erros abaixo!

    Error: Unresolved external '_HB_FUN_PINTAGET' referenced from C:\ATLVRMM\TVGET.OBJ

    Error: Unresolved external '_HB_FUN_PBMPHEIGHT' referenced from C:\ATLVRMM\TVGET.OBJ

    Error: Unresolved external '_HB_FUN_PBMPWIDTH' referenced from C:\ATLVRMM\TVGET.OBJ

    Error: Unresolved external '_HB_FUN_TVBTNBMP' referenced from C:\ATLVRMM\TVGET.OBJ

    Error: Unresolved external '_HB_FUN_DITBACKGRD' referenced from C:\ATLVRMM\TVGET.OBJ

    Atenciosamente

    Everton

    Everton

    xHb 99.50/FW 2.4/MyMake/xDev/XP

  3. Vagner, fiz o seguinte:

    criei uma pasta e descompactei o que peguei no "dicas" dentro dela. veio entao, o backgrnd.c, teste.prg, mget.prg, vget.prg e vbntbmp.prg, vGet.CH e o vBntBmp.ch. li o leia-me.txt, e vi como "funciona" a vGet, coloquei os "parametros" conforme o exemplo. coloquei no script de compilacao do meu sistema, no MyMake, o bacgrnd.c e a vget.obj, e o vGet.ch, quando compilo apresenta 6 erros.se eu tirar a vGet.Obj, so aparce 2 ( hehehe ) so que esse vGet.obj foi criado quando compilei a vGet.prg junto com meus outros .PRG's, nao veio vGet.obj junto com o arquivo vGet que eu peguei. Vou tentar mais um pouco soh!

    Everton

    xHb 99.50/FW 2.4/MyMake/xDev/XP

  4. Vagner obrigado pelas respostas, mas o seguinte amigo, ainda nao deu certo. Tenho agora 28 mensagens de advertencia e uma de erro. Revisei o que vc disse pra fazer, mas, acho que fiz alguma coisa errada cara.Vou postar aqui as advertencias e o erro!

    Warning W8065 BACKGRND.C 33: Call to function 'hb_parni' with no prototype in function DITBACKGRD

    Warning W8065 BACKGRND.C 34: Call to function 'hb_parni' with no prototype in function DITBACKGRD

    Warning W8065 BACKGRND.C 35: Call to function 'hb_parnl' with no prototype in function DITBACKGRD

    Warning W8065 BACKGRND.C 36: Call to function 'hb_parnl' with no prototype in function DITBACKGRD

    Warning W8065 BACKGRND.C 37: Call to function 'hb_parni' with no prototype in function DITBACKGRD

    Warning W8065 BACKGRND.C 62: Call to function 'hb_parni' with no prototype in function PINTAGET

    Warning W8065 BACKGRND.C 63: Call to function 'hb_parni' with no prototype in function PINTAGET

    Warning W8065 BACKGRND.C 64: Call to function 'hb_parnl' with no prototype in function PINTAGET

    Warning W8065 BACKGRND.C 65: Call to function 'hb_parnl' with no prototype in function PINTAGET

    Warning W8065 BACKGRND.C 66: Call to function 'hb_parni' with no prototype in function PINTAGET

    Warning W8065 BACKGRND.C 178: Call to function 'hb_parnl' with no prototype in function VPALBTNPAI

    Warning W8065 BACKGRND.C 179: Call to function 'hb_parnl' with no prototype in function VPALBTNPAI

    Warning W8065 BACKGRND.C 180: Call to function 'hb_parnl' with no prototype in function VPALBTNPAI

    Warning W8065 BACKGRND.C 181: Call to function 'hb_parl' with no prototype in function VPALBTNPAI

    Warning W8065 BACKGRND.C 182: Call to function 'hb_parl' with no prototype in function VPALBTNPAI

    Warning W8065 BACKGRND.C 183: Call to function 'hb_parnl' with no prototype in function VPALBTNPAI

    Warning W8065 BACKGRND.C 184: Call to function 'hb_parl' with no prototype in function VPALBTNPAI

    Warning W8065 BACKGRND.C 185: Call to function 'hb_parl' with no prototype in function VPALBTNPAI

    Warning W8004 BACKGRND.C 236: 'bMenu' is assigned a value that is never used in function VPALBTNPAI

    Warning W8004 BACKGRND.C 236: 'bAdjust' is assigned a value that is never used in function VPALBTNPAI

    Warning W8065 BACKGRND.C 248: Call to function 'hb_parnl' with no prototype in function PBMPHEIGHT

    Warning W8065 BACKGRND.C 250: Call to function 'hb_parnl' with no prototype in function PBMPHEIGHT

    Warning W8065 BACKGRND.C 252: Call to function 'hb_retnl' with no prototype in function PBMPHEIGHT

    Warning W8065 BACKGRND.C 255: Call to function 'hb_retnl' with no prototype in function PBMPHEIGHT

    Warning W8065 BACKGRND.C 270: Call to function 'hb_parnl' with no prototype in function PBMPWIDTH

    Warning W8065 BACKGRND.C 272: Call to function 'hb_parnl' with no prototype in function PBMPWIDTH

    Warning W8065 BACKGRND.C 274: Call to function 'hb_retnl' with no prototype in function PBMPWIDTH

    Warning W8065 BACKGRND.C 277: Call to function 'hb_retnl' with no prototype in function PBMPWIDTH

    Erro:

    Error: Unresolved external '_HB_FUN_TVGET' referenced from C:\ATLVRMM\ATL0001.OBJ

    so adicionei no MyMake o backgrnd.c e o vGet.CH!

    obrigado!

    Everton

    xHb 99.50/FW 2.4/MyMake/xDev/XP

  5. Puxa Infelizmente ainda nao deu certo. Coloquei o backgrnd.C mas ai aumentou a quantidade de erros.

    o Mget.prg o Tvget.prg e o vBtnbmp.prg tem que compilar junto? tentei tira-los, coloca-los, colocar um por vez, colocar a BackGrnd.C o BackGrnd.obj, mas nao deu certo. Tenho que por o #include "vGet.ch" neh? COloquei ele no primeiro PRG ( main() ), coloquei ele no PRG que pus o vGet. Tem um jeito de isso dar certo, sei que tem, mas...

    Ta dando isso aqui oh!

    ( isso tirei do Output.txt do MyMake )

    \LIB\PSDK;;C:\FWH\LIB BACKGRND.C >> B32.BC

    C:\Borland\BCC55\BIN\BCC32 -M -c @B32.BC

    Borland C++ 5.5.1 for Win32 Copyright © 1993, 2000 Borland

    BACKGRND.C:

    Warning W8004 BACKGRND.C 236: 'bMenu' is assigned a value that is never used in function VPALBTNPAI

    Warning W8004 BACKGRND.C 236: 'bAdjust' is assigned a value that is never used in function VPALBTNPAI

    ( ai, mais abaixo...)

    Error: Unresolved external '__parni' referenced from C:\ATLVRMM\BACKGRND.OBJ

    Error: Unresolved external '__parl' referenced from C:\ATLVRMM\BACKGRND.OBJ

    Error: Unresolved external '__parnl' referenced from C:\ATLVRMM\BACKGRND.OBJ

    Error: Unresolved external '__retnl' referenced from C:\ATLVRMM\BACKGRND.OBJ

    Error: Unresolved external '_HB_FUN_TVGET' referenced from C:\ATLVRMM\ATL0001.OBJ

    Obrigado pela ajuda

    Everton

    Fw 2.4/xHb 99.50/XP

  6. Ola pessoal. Estou tentando colocar a vGet no meu sistema. peguei get ( normal ) que ja existia e alterei ele. so que esta dando os seguinte erros

    Error: Unresolved external '_HB_FUN_PINTAGET' referenced from C:\ATLVRMM\MGET.OBJ

    Error: Unresolved external '_HB_FUN_PBMPHEIGHT' referenced from C:\ATLVRMM\TVGET.OBJ

    Error: Unresolved external '_HB_FUN_PBMPWIDTH' referenced from C:\ATLVRMM\TVGET.OBJ

    Error: Unresolved external '_HB_FUN_VPALBTNPAINT' referenced from C:\ATLVRMM\VBTNBMP.OBJ

    Error: Unresolved external '_HB_FUN_DITBACKGRD' referenced from C:\ATLVRMM\TVGET.OBJ

    nao sei o que compilo junto. tentei colocar os PRG e os OBJ junto pra compilar no MyMake mas os erros continuam.

    Obrigado

    Fw 2.4/xHb 99.50/XP

  7. Ola pessoal. Estou tentando colocar a vGet no meu sistema. peguei get ( normal ) que ja existia e alterei ele. so que esta dando os seguinte erros

    Error: Unresolved external '_HB_FUN_PINTAGET' referenced from C:\ATLVRMM\MGET.OBJ

    Error: Unresolved external '_HB_FUN_PBMPHEIGHT' referenced from C:\ATLVRMM\TVGET.OBJ

    Error: Unresolved external '_HB_FUN_PBMPWIDTH' referenced from C:\ATLVRMM\TVGET.OBJ

    Error: Unresolved external '_HB_FUN_VPALBTNPAINT' referenced from C:\ATLVRMM\VBTNBMP.OBJ

    Error: Unresolved external '_HB_FUN_DITBACKGRD' referenced from C:\ATLVRMM\TVGET.OBJ

    nao sei o que compilo junto. tentei colocar os PRG e os OBJ junto pra compilar no MyMake mas os erros continuam.

    Obrigado

    Fw 2.4/xHb 99.50/XP

  8. Ei amigos. tenhum num Form um BtnBmp que chama uma funcao que tem um ListBox, gostaria que o cliente escolhesse o registro e ao pressionar enter eu recebesse o "retorno" desta funcao com o codigo do fornecedor escolhido no ListBox. Tem como?

    Obrigado

    Everton

    Fw 2.4/xHb 99.50/XP

  9. Ei amigos. tenhum num Form um BtnBmp que chama uma funcao que tem um ListBox, gostaria que o cliente escolhesse o registro e ao pressionar enter eu recebesse o "retorno" desta funcao com o codigo do fornecedor escolhido no ListBox. Tem como?

    Obrigado

    Everton

    Fw 2.4/xHb 99.50/XP

  10. Aproveitando a duvida ja solucionada do colega. Como faco pra mudar o cCaption de um botao?

    coloquei algo assim

    oBut:cCaption := "mudado"

    Ate coloquei um if pra verificar se a propriedade muda, e muda mesmo, mas obotao continuo com o caption antigo, ai, vi nuns exemplos e tentei colocar

    oBut:refresh()

    mas tambem nao deu nada..

    Obrigado

    Fw 2.4/xHb 99.50/XP

  11. Ok. fiquei tanto tempo preso no BITMAP, pelo menos aprendi sobre ele... troquei pelo BTNBMP, e funcionou beleza.

    Obrigado a todos que me ajudaram.

    Fw 2.4/xHb 99.50/XP

  12. oK. Amigos, este eh o codigo que escrevi.

    Obrigado pela ajuda.

    Function ATL0001()

    local oBrush, oBar, oRad

    SET _3DLOOK ON

    Public nRad2 := 1

    Public CodGrade := Space( 03 )

    Public cTexto12 := Space( 10 )

    Public cTexto13 := Space( 10 )

    ...

    *

    select Produtos

    set order to 01

    go top

    *

    CodigoProduto := NovoRegistro(@CodigoProduto)

    *

    DEFINE FONT oFONT1 NAME "Courier New" SIZE 8, 16

    ...

    defino outras fontes

    ...

    Define WINDOW oForm TITLE "Cadastro de Produtos" MDIChild;

    FROM 7, 55 to 552, 931 PIXEL COLOR 0, 14215660

    @ 34, 6 GROUP oGrp1 TO 512, 862 LABEL "" PIXEL;

    OF oForm COLOR 0, 14215660 FONT oFont1

    -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.

    ... Aqui esta a dita cuja. Olhe ja tentei por esta linha em varias partes,

    acho que nao muda nada, mas tentei...

    @ 238, 300 BITMAP oBmp NO BORDER FILENAME "c:\ATLVRMM\acha2.bmp" size 20, 20 OF OGRP1

    -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.

    DEFINE BRUSH oBrush STYLE TILED // FiveWin new predefined Brushes

    DEFINE CURSOR oHand HAND

    DEFINE BUTTONBAR OF oForm _3Dlook SIZE 28, 34 CURSOR oHand

    DEFINE BUTTON OF oForm:oBar NOBORDER ACTION NovoRegistro( @CodigoProduto );

    FILENAME "c:\padroes\novo.bmp" ;

    MESSAGE "Abre um registro novo"

    DEFINE BUTTON OF oForm:oBar NOBORDER ACTION Eai();

    FILENAME "c:\padroes\grava.bmp" ;

    MESSAGE "Grava os dados digitados"

    DEFINE BUTTON OF oForm:oBar NOBORDER ACTION Eai();

    FILENAME "c:\padroes\cancela.bmp";

    MESSAGE "Cancela dados digitados"

    @ 231, 7 FOLDER oFld1 Items "Estoque",;

    "Valores",;

    "Impostos",;

    "Produto Usado",;

    "Análise",;

    "Produção - 1",;

    "Produção - 2";

    SIZE 842, 242 PIXEL;

    OF oGrp1 COLOR 0, 14215660 FONT oFont2

    @ 5, 3 GROUP oGrp2 TO 216, 834 LABEL "Estoque" PIXEL;

    OF oFld1:aDialogs[1] COLOR 0, 14215660 FONT oFont2

    @ 3, 3 GROUP oGrp3 TO 215, 837 LABEL "Valores" PIXEL;

    OF oFld1:aDialogs[2] COLOR 0, 14215660 FONT oFont2

    @ 5, 3 GROUP oGrp4 TO 214, 835 LABEL "Impostos" PIXEL;

    OF oFld1:aDialogs[3] COLOR 0, 14215660 FONT oFont2

    @ 4, 4 GROUP oGrp5 TO 213, 836 LABEL "Produto Usado" PIXEL;

    OF oFld1:aDialogs[4] COLOR 0, 14215660 FONT oFont2

    @ 3, 6 GROUP oGrp6 TO 212, 835 LABEL "Análise Financeira" PIXEL;

    OF oFld1:aDialogs[5] COLOR 0, 14215660 FONT oFont2

    @ 3, 3 GROUP oGrp7 TO 217, 837 LABEL "Produção - 1" PIXEL;

    OF oFld1:aDialogs[6] COLOR 0, 14215660 FONT oFont2

    @ 3, 3 GROUP oGrp8 TO 210, 834 LABEL "Produção - 2" PIXEL;

    OF oFld1:aDialogs[7] COLOR 0, 14215660 FONT oFont2

    @ 47, 22 SAY oSay1 VAR "Código" SIZE 60, 13 PIXEL;

    OF oForm COLOR 0, 14215660 FONT oFont3

    @ 46, 178 SAY oSay2 VAR "Código da Fábrica" SIZE 108, 13 PIXEL;

    OF oForm COLOR 0, 14215660 FONT oFont3

    @ 47, 343 SAY oSay4 VAR "Código de Barras" SIZE 103, 14 PIXEL;

    OF oForm COLOR 0, 14215660 FONT oFont3

    @ 48, 507 SAY oSay4 VAR "Data de Cadastro" SIZE 134, 13 PIXEL;

    OF oForm COLOR 0, 14215660 FONT oFont3

    @ 84, 23 SAY oSay5 VAR "Seção" SIZE 42, 14 PIXEL;

    OF oForm COLOR 0, 14215660 FONT oFont3

    @ 118, 22 SAY oSay6 VAR "Tipo" SIZE 60, 14 PIXEL;

    OF oForm COLOR 0, 14215660 FONT oFont3

    @ 153, 23 SAY oSay7 VAR "Marca" SIZE 55, 12 PIXEL;

    OF oForm COLOR 0, 14215660 FONT oFont3

    @ 188, 22 SAY oSay8 VAR "Descrição" SIZE 62, 13 PIXEL;

    OF oForm COLOR 0, 14215660 FONT oFont3

    @ 225, 23 SAY oSay9 VAR "Fornecedor" SIZE 69, 11 PIXEL;

    OF oForm COLOR 0, 14215660 FONT oFont3

    @ 62, 23 GET oGet1 VAR CodigoProduto SIZE 115, 20;

    COLOR 0, 16777215 PIXEL OF oForm FONT oFont1

    @ 62, 508 GET oGet2 VAR DataCadastro SIZE 120, 20;

    COLOR 0, 16777215 PIXEL OF oForm FONT oFont1

    @ 62, 182 GET oGet3 VAR CodFabricante SIZE 115, 20;

    COLOR 0, 16777215 PIXEL OF oForm FONT oFont1

    @ 62, 343 GET oGet4 VAR CodBarras SIZE 120, 20;

    COLOR 0, 16777215 PIXEL OF oForm FONT oFont1

    @ 98, 23 GET oGet5 VAR CodSecao SIZE 61, 20;

    COLOR 0, 16777215 PIXEL OF oForm FONT oFont1

    @ 133, 23 GET oGet6 VAR CodTipo SIZE 60, 20;

    COLOR 0, 16777215 PIXEL OF oForm FONT oFont1

    @ 167, 23 GET oGet7 VAR CodMarca SIZE 60, 20;

    COLOR 0, 16777215 PIXEL OF oForm FONT oFont1

    @ 202, 23 GET oGet8 VAR Descricao SIZE 460, 20;

    COLOR 0, 16777215 PIXEL OF oForm FONT oFont1

    @ 238, 23 GET oGet9 VAR CodFornecedor SIZE 60, 20;

    COLOR 0, 16777215 PIXEL OF oForm FONT oFont1

    @ 46, 651 GROUP oGrp12 TO 252, 850 LABEL "Foto do Produto" PIXEL;

    OF oForm COLOR 0, 14215660 FONT oFont7

    @ 47,652 BITMAP oPhoto FILENAME cPhoto size 150, 250 OF oGrp12

    ACTIVATE WINDOW oForm ON INIT AjustaRad()

    Fw 2.4/xHb 99.50/XP

  13. Amigos, muito obrigado pelas dicas. Porem nao consegui fazer funcionar ( incivel neh? E eh so uma linha de comando! tsc, tsc, tsc...) Inclusive verifiquei o Help da xDev e, pessoal... nao aparece nada, nao da erro algum mas tambem nao aparece nada. tentei tirar o No Border, pora ver se pelo menos marcava o local com a borda, mas nada. Tenho um Form e sobre este Form tenho um Group, tentei colocar OF oForm, OF oGrp1, deixei sem e mesmo assim nao apareceu. troquei o "path" do BMP, alterei as coordenadas, mudei o size, mas infelizmente nao aparece o BMP. Que farei pois em tao dramatica situacao?

    Fw 2.4/xHb 99.50/XP

  14. Pessoal to comecando a fazer alguma coisas em FW e xHb e gostaria de colocar no cadastro de produtos um icone pra procurar o fornecedor deste item... a funcao pra achar o fornecedor sei como faz. Meu problema esta em colocar este icone! Nao posso dizer que ja tentei de tudo porque senao teria conseguido, mas realmente preciso de uma luz.

    to usando

    Obrigado

    Everton

    FW 2.4 + xHb 99.50.

  15. Pessoal to comecando a fazer alguma coisas em FW e xHb e gostaria de colocar no cadastro de produtos um icone pra procurar o fornecedor deste item... a funcao pra achar o fornecedor sei como faz. Meu problema esta em colocar este icone! Nao posso dizer que ja tentei de tudo porque senao teria conseguido, mas realmente preciso de uma luz.

    to usando

    Obrigado

    Everton

    FW 2.4 + xHb 99.50.

  16. id=red> Pessoal eh o seguinte estou compilando um programinha em FiveWin para xHarbour mas ta dando pau. Segue a mensagem a baixo. Preciso da informacao o mais rapido possivel... ( como todo mundo neh? )

    Error: Unresolved external '_hb_stack' referenced from C:\FWH\LIB\FIVEHC.LIB|FFWNDRUN

    Obrigado!

    Everton

  17. id=red> Pessoal eh o seguinte estou compilando um programinha em FiveWin para xHarbour mas ta dando pau. Segue a mensagem a baixo. Preciso da informacao o mais rapido possivel... ( como todo mundo neh? )

    Error: Unresolved external '_hb_stack' referenced from C:\FWH\LIB\FIVEHC.LIB|FFWNDRUN

    Obrigado!

    Everton

×
×
  • Create New...