Alain da Silva

Pessoal? Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5

E ai galera? Alguma solução? Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5

Tudo bem Marcelo, eu acabei postando errado este comando, eu ja tinha alterado p/ OBRW:LNOHSCROLL:=.F., só que eu não estou usando o WS, estou fazendo da forma programada.Usando esta opção OBRW:LNOHSCROLL:=.F., o browse continua me mostrando uma barra de rolagem na horizontal e vertical. Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5

Bom dia pessoal, estou trabalhando em uma TCBROWSE e no WS eu conseguia tirar as barras de rolagem, só que na forma programada não estou conseguindo. #INCLUDE "TCBROWSE.CH" FUNCTION LOCTRI() *----------- DEFINE A TELA ----------------------------* DEFINE DIALOG BUSCATRI FROM 1, 1 TO 200, 300 ; TITLE "Tabela de Tributação"; STYLE nOr(WS_POPUP, ; WS_VISIBLE, ; WS_CAPTION) PIXEL BUSCATRI: LHELPICON := .F. // TIRA A ? DA JANELA BUSCATRI:bRClicked = { || MsgInfo( OemToAnsi( "Sem Efeito" ), ; ( OemToAnsi( "Informação" ) ) ) } *-------------------------------------* XFAL=ALIAS() SELE 5 DBSETORDER(1) DBGOTOP() @003,010 BROWSE OBRW OF BUSCATRI SIZE 120,80 PIXEL ADD COLUMN TO BROWSE OBRW DATA ARQTRI->CODIGO WIDTH 78 ALIGN CENTER HEADER "Codigo" ADD COLUMN TO BROWSE OBRW DATA STR(ARQTRI->ALIQUOTA,2) WIDTH 78 ALIGN CENTER HEADER "Alíquota" ADD COLUMN TO BROWSE OBRW DATA STR(ARQTRI->REDUCAO,5,2) WIDTH 78 ALIGN CENTER HEADER "Redução" OBRW:NFREEZE := 3 OBRW:CTOOLTIP := "ESCOLHE TRIBUTAÇÃO" OBRW:LNOHSCROLL:=.T. OBRW:BLDBLCLICK = { | NKEY | IIF( NKEY = VK_RETURN,(MANUTPRO("A"),INICIAGETPRO(OGNC,ognc2,FOLPRO:NOPTION)),.T.)} OBRW:REFRESH() ACTIVATE DIALOG BUSCATRI CENTER SELE &XFAL RETURN NIL id=code>id=code>Vocês poderiam verificar o que esta errado e me passar as opções, por exemplo eu teclar o ENTER, CORES NA COLON, ETC... Obrigado. Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5 Editado por - boingo on 14/06/2007 08:51:16

Bom dia pessoal, estou trabalhando em uma TCBROWSE e no WS eu conseguia tirar as barras de rolagem, só que na forma programada não estou conseguindo. #INCLUDE "TCBROWSE.CH" FUNCTION LOCTRI() *----------- DEFINE A TELA ----------------------------* DEFINE DIALOG BUSCATRI FROM 1, 1 TO 200, 300 ; TITLE "Tabela de Tributação"; STYLE nOr(WS_POPUP, ; WS_VISIBLE, ; WS_CAPTION) PIXEL BUSCATRI: LHELPICON := .F. // TIRA A ? DA JANELA BUSCATRI:bRClicked = { || MsgInfo( OemToAnsi( "Sem Efeito" ), ; ( OemToAnsi( "Informação" ) ) ) } *-------------------------------------* XFAL=ALIAS() SELE 5 DBSETORDER(1) DBGOTOP() @003,010 BROWSE OBRW OF BUSCATRI SIZE 120,80 PIXEL ADD COLUMN TO BROWSE OBRW DATA ARQTRI->CODIGO WIDTH 78 ALIGN CENTER HEADER "Codigo" ADD COLUMN TO BROWSE OBRW DATA STR(ARQTRI->ALIQUOTA,2) WIDTH 78 ALIGN CENTER HEADER "Alíquota" ADD COLUMN TO BROWSE OBRW DATA STR(ARQTRI->REDUCAO,5,2) WIDTH 78 ALIGN CENTER HEADER "Redução" OBRW:NFREEZE := 3 OBRW:CTOOLTIP := "ESCOLHE TRIBUTAÇÃO" OBRW:LNOHSCROLL:=.T. OBRW:BLDBLCLICK = { | NKEY | IIF( NKEY = VK_RETURN,(MANUTPRO("A"),INICIAGETPRO(OGNC,ognc2,FOLPRO:NOPTION)),.T.)} OBRW:REFRESH() ACTIVATE DIALOG BUSCATRI CENTER SELE &XFAL RETURN NIL id=code>id=code>Vocês poderiam verificar o que esta errado e me passar as opções, por exemplo eu teclar o ENTER, CORES NA COLON, ETC... Obrigado. Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5 Editado por - boingo on 14/06/2007 08:51:16

Kapiaba, eu copiei os arquivos: folder.prg folder.ch para o diretório do programa e estou compilando o folder.prg com minha aplicação. Acontece o seguinte erro na compilação. _HB_FUN_FLDPAINT _HB_FUN_ENUMINDE Seria o caso de recompilar a FIVEHX.LIB? Como faz p/ recompilar? No meu LNK eu só coloquei estas libs do fwh: \FWH\lib\FiveH.lib + \FWH\lib\FiveHC.lib + \FWH\lib\BtnGet32.lib + Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5

E aí Kapiaba, tudo bem. Fiz o seguinte, voltei os arquivos originais folder.prg p/ fwh\source\classes, folder.ch p/ fwh\include , mas agora na hora de compilar da o seguinte erro. "syntax error at 'folder'" Como faço para colocar cor na orelha do folder? Não é dessa forma que se define o folder com cor?. REDEFINE FOLDER FOLCLI ID 101 OF TLCLI1; PROMPT "Pesquisa por Razão Social","Pesquisa por Nome Fantasia"; DIALOGS "TABCLI","TABCLI1" ON CHANGE(INICIAGETCLI(OGNC,ognc2,FOLCLI:NOPTION)); BITMAPS "", "" ; TABCOLOR CLR_RED ; FOCUSCOLOR CLR_BLUE id=code>id=code>Agradeço a força. Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5 Editado por - boingo on 29/05/2007 14:52:30

Pessoal, outro problema. Estou querendo por cor nas orelhas do folder. Na mudança do FW p/ FWH as opções escritas nas orelhas do folder sumiram e tive que mudar no ws o componente TFolder para SYSTABCONTROL32, que fez mostrar as opções novamente. Baixei o arquivo 473foldbmp que tinhas os arquivos: foldbmp32.lib, folder.ch, folder.prg. Copiei o arquivos: folder.lib para c:\fwh\lib folder.ch para c:\fwh\include folder.prg para c:\fwh\source\classes No meu programa de cliente coloquei #include "folder.ch" e no folder o seguinte código: REDEFINE FOLDER FOLCLI ID 101 OF TLCLI1; PROMPT "Pesquisa por Razão Social","Pesquisa por Nome Fantasia"; DIALOGS "TABCLI","TABCLI1" ON CHANGE(INICIAGETCLI(OGNC,ognc2,FOLCLI:NOPTION)); BITMAPS "", "" ; TABCOLOR CLR_RED ; FOCUSCOLOR CLR_BLUE id=code>id=code>Só que nada muda, as opções do folder fica no tom cinza padrão do windows. Este comando TABCOLOR CLR_RED e FOCUSCOLOR CLR_BLUE não teria que mudar a cor ou não tem nada a ver o que estou falando. Obrigado. Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5

Pessoal, outro problema. Estou querendo por cor nas orelhas do folder. Na mudança do FW p/ FWH as opções escritas nas orelhas do folder sumiram e tive que mudar no ws o componente TFolder para SYSTABCONTROL32, que fez mostrar as opções novamente. Baixei o arquivo 473foldbmp que tinhas os arquivos: foldbmp32.lib, folder.ch, folder.prg. Copiei o arquivos: folder.lib para c:\fwh\lib folder.ch para c:\fwh\include folder.prg para c:\fwh\source\classes No meu programa de cliente coloquei #include "folder.ch" e no folder o seguinte código: REDEFINE FOLDER FOLCLI ID 101 OF TLCLI1; PROMPT "Pesquisa por Razão Social","Pesquisa por Nome Fantasia"; DIALOGS "TABCLI","TABCLI1" ON CHANGE(INICIAGETCLI(OGNC,ognc2,FOLCLI:NOPTION)); BITMAPS "", "" ; TABCOLOR CLR_RED ; FOCUSCOLOR CLR_BLUE id=code>id=code>Só que nada muda, as opções do folder fica no tom cinza padrão do windows. Este comando TABCOLOR CLR_RED e FOCUSCOLOR CLR_BLUE não teria que mudar a cor ou não tem nada a ver o que estou falando. Obrigado. Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5

Agora funcionou perfeito. Valeu Paulo, obrigado pela ajuda. Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5

Como vai Paulo? Fiz as alterações que você falou, e ainda não funcionou. Ex: meu browse está em ordem alfabética no primeiro registro, ai eu digito "ASSIS", já na letra "A" meu browse vai para o fim de arquivo, na segunda letra "S" ele localiza o cliente "ASSIS", quando eu digito o segundo "S", ele vai novamente para o fim de arquivo. *-------- reorg.prg (como estou reorganizando) USE ARQCLI NEW EXCL INDE ON STR(CODIGO,5) TAG CLICOD TO ARQCLI; INDE ON RAZAO TAG CLIRAZ TO ARQCLI; INDE ON ESTADO TAG CLIEST TO ARQCLI; INDE ON CGCCLI TAG CLICNPJ TO ARQCLI; INDE ON FANTASIA TAG CLIFANTA TO ARQCLI; id=code>id=code> *------ cadcli.prg REDEFINE GET OGNC VAR CNOM ID 101 PICTURE "@!" OF FOLCLI:ADIALOGS[1] ; ON CHANGE ( ::ASSIGN(), DBSETORDER(2),; IF( DBSEEK( UPPER(SUBSTR(CNOM,1, ::NPOS -1) + CHR( NKEY )) ),; ( LISTCLI:UPSTABLE(), LISTCLI:REFRESH(), .T. ),; ( LISTCLI:UPSTABLE(), LISTCLI:REFRESH(), .T. ) ) ) UPDATE id=code>id=code>Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5 Editado por - boingo on 29/05/2007 10:19:01 Editado por - boingo on 29/05/2007 11:20:35 Editado por - boingo on 29/05/2007 11:22:41

Tudo bem Sérgio. Função ABRE1() *--------- programa entrada.prg --------* FUNCTION ABRE1 SELE 1 USE ARQCLI INDEX ARQCLI IF BLOQUEIO()=.F. RETURN(.F.) ENDIF RETURN(.T.) FUNCTION BLOQUEIO IF NETERR() MSGALERT("Arquivo Bloqueado p/manutenção.","Mensagem") RETURN(.F.) ENDIF RETURN(.T.) Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5

Pessoal bom dia. É o seguinte, estou mudando de fwclipper para fwh e a minha rotina de busca e atualização do browse que antes funcionava agora não localiza mais o arquivo. Vejam o código e me digam se no fwh tem que fazer algo a mais. No programa principal function main() REQUEST DBFCDX REQUEST HB_CODEPAGE_PT850 REQUEST HB_LANG_PT HB_SETCODEPAGE("PT850") HB_LANGSELECT("PT") SETHANDLECOUNT(255) // NUMERO MAXIMO DE ARQUIVOS ABERTOS RDDSETDEFAULT("DBFCDX") ****************** *--------- cadastro de clientes ---------* #INCLUDE "FIVEWIN.CH" #INCLUDE "folder.CH" #INCLUDE "corget.CH" #INCLUDE "TCBROWSE.CH" #DEFINE COR 14483196 // AMARELO ENBRANQUECIDO #DEFINE COR1 14410170 #DEFINE COR2 14810095 #DEFINE COR3 RGB(255,128,128) #DEFINE COR4 RGB(90,240,120) FUNCTION CADCLI() LOCAL TLCLI1,CNOM,CNOM2,TABCLI,OBTN:=ARRAY(6) IF ABRE1()=.F. ///// abre arquivo de clientes MSGALERT("NAO FOI POSSIVEL ABRIR OS ARQUIVOS, TENTE NOVAMENTE...","MENSAGEM",TLCLI:END()) ENDIF DEFINE DIALOG TLCLI1 RESNAME "TABCLIP" TLCLI1 : LHELPICON := .F. // TIRA A ? DA JANELA REDEFINE FOLDER FOLCLI ID 101 OF TLCLI1; PROMPT "Pesquisa por Razão Social","Pesquisa por Nome Fantasia"; DIALOGS "TABCLI","TABCLI1"; BITMAPS "", "" ; TABCOLOR CLR_RED ; FOCUSCOLOR CLR_BLUE REDEFINE BROWSE LISTCLI ID 103 OF FOLCLI:ADIALOGS[1] COLORS CLR_BLACK,COR FONT OGETFNT CURSOR OCUR UPDATE ADD COLUMN TO BROWSE LISTCLI DATA STRZERO(ARQCLI->CODIGO,5) WIDTH 78 ALIGN CENTER HEADER "Codigo" ADD COLUMN TO BROWSE LISTCLI DATA ARQCLI->RAZAO WIDTH 300 HEADER "Razao Social" ADD COLUMN TO BROWSE LISTCLI DATA ARQCLI->CIDADE WIDTH 200 HEADER "Cidade" ADD COLUMN TO BROWSE LISTCLI DATA ARQCLI->FONE1 WIDTH 20 HEADER "Telefone" LISTCLI:NCLRPANE := { || COR1 } LISTCLI:CTOOLTIP := "DUPLO CLICK ALTERA ITEM" LISTCLI:NLINESTYLE := 3 // TIPO DE LINHA DA GRADE LISTCLI:NCLRBACKHEAD := COR2 // COR DO FUNDO DO CABEÇALHO LISTCLI:NCLRBACKFOCUS := CLR_BLUE // COR DO CURSOR EM CIMA DO ÖTEM LISTCLI:NCLRFOREFOCUS := CLR_WHITE // COR DA LETRA DA BARRA ATIV LISTCLI:NFREEZE := 3 // NÃO PERMITE ALTERAR O TAM. DA COLUNA C/ O MOUSE <-> LISTCLI:BLDBLCLICK = { | NKEY | IIF( NKEY = VK_RETURN,(MANUTCLI("A"),INICIAGET(OGNC)),.T.)} LISTCLI:LNOHSCROLL:=.T. // SCROLL BAR, NÃO USAR .T., POIS ABORTA, SE SE CLICA NA BARRA LISTCLI:REFRESH() REDEFINE GET OGNC VAR CNOM ID 101 PICTURE "@!" OF FOLCLI:ADIALOGS[1] ; ON CHANGE ( ::ASSIGN(), DBSETORDER(2),; IF( DBSEEK( UPPER(SUBSTR(CNOM,1, ::NPOS -1) + CHR( NKEY )) ),; ( LISTCLI:UPSTABLE(), LISTCLI:REFRESH(), .T. ),; ( LISTCLI:UPSTABLE(), LISTCLI:REFRESH(), .T. ) ) ) UPDATE ACTIVATE DIALOG TLCLI1 CENTERED RESIZE16 VALID SAIDLG ON INIT(INICIAGET(OGNC),XSETFOCUS(OGNC),OGNC:REFRESH()) RETURN NIL *---------------------- Por favor me ajudem. Obrigado galera. Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5 Editado por - boingo on 29/05/2007 08:32:41

Pessoal bom dia. É o seguinte, estou mudando de fwclipper para fwh e a minha rotina de busca e atualização do browse que antes funcionava agora não localiza mais o arquivo. Vejam o código e me digam se no fwh tem que fazer algo a mais. No programa principal function main() REQUEST DBFCDX REQUEST HB_CODEPAGE_PT850 REQUEST HB_LANG_PT HB_SETCODEPAGE("PT850") HB_LANGSELECT("PT") SETHANDLECOUNT(255) // NUMERO MAXIMO DE ARQUIVOS ABERTOS RDDSETDEFAULT("DBFCDX") ****************** *--------- cadastro de clientes ---------* #INCLUDE "FIVEWIN.CH" #INCLUDE "folder.CH" #INCLUDE "corget.CH" #INCLUDE "TCBROWSE.CH" #DEFINE COR 14483196 // AMARELO ENBRANQUECIDO #DEFINE COR1 14410170 #DEFINE COR2 14810095 #DEFINE COR3 RGB(255,128,128) #DEFINE COR4 RGB(90,240,120) FUNCTION CADCLI() LOCAL TLCLI1,CNOM,CNOM2,TABCLI,OBTN:=ARRAY(6) IF ABRE1()=.F. ///// abre arquivo de clientes MSGALERT("NAO FOI POSSIVEL ABRIR OS ARQUIVOS, TENTE NOVAMENTE...","MENSAGEM",TLCLI:END()) ENDIF DEFINE DIALOG TLCLI1 RESNAME "TABCLIP" TLCLI1 : LHELPICON := .F. // TIRA A ? DA JANELA REDEFINE FOLDER FOLCLI ID 101 OF TLCLI1; PROMPT "Pesquisa por Razão Social","Pesquisa por Nome Fantasia"; DIALOGS "TABCLI","TABCLI1"; BITMAPS "", "" ; TABCOLOR CLR_RED ; FOCUSCOLOR CLR_BLUE REDEFINE BROWSE LISTCLI ID 103 OF FOLCLI:ADIALOGS[1] COLORS CLR_BLACK,COR FONT OGETFNT CURSOR OCUR UPDATE ADD COLUMN TO BROWSE LISTCLI DATA STRZERO(ARQCLI->CODIGO,5) WIDTH 78 ALIGN CENTER HEADER "Codigo" ADD COLUMN TO BROWSE LISTCLI DATA ARQCLI->RAZAO WIDTH 300 HEADER "Razao Social" ADD COLUMN TO BROWSE LISTCLI DATA ARQCLI->CIDADE WIDTH 200 HEADER "Cidade" ADD COLUMN TO BROWSE LISTCLI DATA ARQCLI->FONE1 WIDTH 20 HEADER "Telefone" LISTCLI:NCLRPANE := { || COR1 } LISTCLI:CTOOLTIP := "DUPLO CLICK ALTERA ITEM" LISTCLI:NLINESTYLE := 3 // TIPO DE LINHA DA GRADE LISTCLI:NCLRBACKHEAD := COR2 // COR DO FUNDO DO CABEÇALHO LISTCLI:NCLRBACKFOCUS := CLR_BLUE // COR DO CURSOR EM CIMA DO ÖTEM LISTCLI:NCLRFOREFOCUS := CLR_WHITE // COR DA LETRA DA BARRA ATIV LISTCLI:NFREEZE := 3 // NÃO PERMITE ALTERAR O TAM. DA COLUNA C/ O MOUSE <-> LISTCLI:BLDBLCLICK = { | NKEY | IIF( NKEY = VK_RETURN,(MANUTCLI("A"),INICIAGET(OGNC)),.T.)} LISTCLI:LNOHSCROLL:=.T. // SCROLL BAR, NÃO USAR .T., POIS ABORTA, SE SE CLICA NA BARRA LISTCLI:REFRESH() REDEFINE GET OGNC VAR CNOM ID 101 PICTURE "@!" OF FOLCLI:ADIALOGS[1] ; ON CHANGE ( ::ASSIGN(), DBSETORDER(2),; IF( DBSEEK( UPPER(SUBSTR(CNOM,1, ::NPOS -1) + CHR( NKEY )) ),; ( LISTCLI:UPSTABLE(), LISTCLI:REFRESH(), .T. ),; ( LISTCLI:UPSTABLE(), LISTCLI:REFRESH(), .T. ) ) ) UPDATE ACTIVATE DIALOG TLCLI1 CENTERED RESIZE16 VALID SAIDLG ON INIT(INICIAGET(OGNC),XSETFOCUS(OGNC),OGNC:REFRESH()) RETURN NIL *---------------------- Por favor me ajudem. Obrigado galera. Alain/Rancharia Harbour - FWH 2.7.4 Workshop 4.5 Editado por - boingo on 29/05/2007 08:32:41

Maurício, tenta desta forma, puchando a imagem de um diretório. *-------------------------------- static oBmpTiled FUNCTION MAIN() LOCAL OBMP DEFINE BITMAP oBmp FILENAME "c:\fwh\bitmaps\fivewin.bmp" DEFINE BITMAP oBmpTiled FILENAME "C:\fwh\bitmaps\backgrnd\paper2.bmp" ACTIVATE WINDOW oWnd MAXIMIZED; ON PAINT ( BmpTiled( hDC, oWnd, oBmpTiled ),; PalBmpDraw( hDC,; ( oWnd:nHeight() / 2 ) - ( oBmp:nHeight() / 2 ) - 50,; ( oWnd:nWidth() / 2 ) - ( oBmp:nWidth() / 2 ), oBmp:hBitmap ) )// ; // VALID MsgYesNo( "Want to end ?" ) // esta opção eu desativei RETURN NIL function BmpTiled( hDC, oWnd, oBmp ) local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight() local nRow := 0, nCol := 0, n local nBmpWidth := oBmp:nWidth(), nBmpHeight := oBmp:nHeight() while nRow < nHeight nCol = 0 while nCol < nWidth PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap ) nCol += nBmpWidth end nRow += nBmpHeight end return nil ----------------------* Alain

Kapiaba bom dia, seguindo sua orientação de ontem: *----------------------------------------------------------- salve o .rc para .res em 32 bits, pegue um exemplo do \samples em 32 bits, e importe os recursos de 16 para o res de 32 bits. verifique se nao tens controles BORLAND. ---------------------------------------------* Eu abri no ws o bwcc32.dll colei meus recursos e a salvei como .res, mas o programa continua funcionando só com o ws aberto. Eu não sei como verificar se eu tenho controles BORLAND como você falou. Obrigado. Alain/Rancharia FWH 2.7 - HARBOUR - WorkShop 4.5 Editado por - boingo on 23/05/2007 08:40:50

Kapiaba bom dia, seguindo sua orientação de ontem: *----------------------------------------------------------- salve o .rc para .res em 32 bits, pegue um exemplo do \samples em 32 bits, e importe os recursos de 16 para o res de 32 bits. verifique se nao tens controles BORLAND. ---------------------------------------------* Eu abri no ws o bwcc32.dll colei meus recursos e a salvei como .res, mas o programa continua funcionando só com o ws aberto. Eu não sei como verificar se eu tenho controles BORLAND como você falou. Obrigado. Alain/Rancharia FWH 2.7 - HARBOUR - WorkShop 4.5 Editado por - boingo on 23/05/2007 08:40:50

Alessandro, eu já tinha colocado também no diretório windows\sistem. Da forma que você falou loadlibrary("c:\windows\system\bwcc.dll") Também não funcionou. Alain/Rancharia FWH 2.7 - HARBOUR - WorkShop 4.5

Alessandro, copiei o arquivo mas ainda não funcionou. Alain/Rancharia FWH 2.7 - HARBOUR - WorkShop 4.5

Alessandro, copiei o arquivo mas ainda não funcionou. Alain/Rancharia FWH 2.7 - HARBOUR - WorkShop 4.5

Sobre a Dll fiz da seguinte forma. Nome:Wfatura.dll (16bits) Eu peguei a dll prev32.dll apaguei seu conteúdo e a salvei como wfatura.rc. Abri o wfatura.dll e a salvei como wfatura.rc. quando eu abro o wfatura.rc e vejo em preferences, ela está Windows 3.1. *---- buildh.bat IF EXIST %1.rc C:\BORLAND\BCC55\bin\brc32 -r %1 ----------* Sobre o BWCC32.dll estou fazendo da seguinte forma: *--------------- hborland:=LOADLIBRARY("BWCC32.DLL") SETHANDLECOUNT(255) RDDSETDEFAULT("DBFCDX") DEFINE FONT OFONTEM NAME "ARIAL" SIZE 4 ,-10 DEFINE FONT OFNTM NAME "ARIAL" SIZE 6 ,-12 DEFINE WINDOW oWnd TITLE "teste" MENU BuildMenu() ACTIVATE WINDOW oWnd MAXIMIZED FREELIBRARY("BWCC32.DLL") ---------------* é desta forma que se incorpora o arquivo? Se for também não funcionou. Alain/Rancharia FWH 2.7 - HARBOUR - WorkShop 4.5

pessoal, estou mudando do fwclipper para fwharbour, Salvei minha .DLL para .RC (uso o buildh.bat) 1)acontece que quando eu chamo uma dialog sem que eu esteja com workshop aberto ele da um erro Error description: Error FiveWin/3 Cannot create Dialog Box: RESOURCE TABEMP. Já com WS aberto ele funciona. 2)Uma outra questão é trabalhar com mais de um programa. Estou fazendo da seguinte forma, no meu programa principal no final da linha eu coloco uma include *-------------- prgs------------------- #INCLUDE "CADEMP.PRG" é dessa forma que se trabalha com vários prgs. 3)Na compilação do programa aparece vários erros Ambiguous reference que não impedem a criação do executável. como fazer para não aparecer esta mensagem. Desde ja, agradeço.

pessoal, estou mudando do fwclipper para fwharbour, Salvei minha .DLL para .RC (uso o buildh.bat) 1)acontece que quando eu chamo uma dialog sem que eu esteja com workshop aberto ele da um erro Error description: Error FiveWin/3 Cannot create Dialog Box: RESOURCE TABEMP. Já com WS aberto ele funciona. 2)Uma outra questão é trabalhar com mais de um programa. Estou fazendo da seguinte forma, no meu programa principal no final da linha eu coloco uma include *-------------- prgs------------------- #INCLUDE "CADEMP.PRG" é dessa forma que se trabalha com vários prgs. 3)Na compilação do programa aparece vários erros Ambiguous reference que não impedem a criação do executável. como fazer para não aparecer esta mensagem. Desde ja, agradeço.

pessoal é o seguinte: Estou Trabalhando na tela principal do programa utilizando o seguinte comando: DEFINE IMAGELIST oImageList SIZE 37, 32 DEFINE IMGBITMAP OF oImageList NAME "EMPRESA" COLOR nRGB( 255, 0, 255 ) DEFINE TOOLBAR OBAR OF oWnd SIZE 10,50; IMAGELIST oImageList BALLOON // tooltips balloon style DEFINE TBBUTTON OF OBAR ; ACTION ""; TOOLTIP "Dados da Empresa" ; PROMPT "Empresa" ; MESSAGE "Dados" Quando eu rodo no w98 você percebe uma diferença pequena no tom da barra com o fundo do desenho, mas quando eu rodo no xp a diferença é muito grande ficando feio.Estou chamando o desenho de uma dll que eu salvei como rc (preferences Target Windows Version Windows 3.1). O que está errado. Obrigado. Editado por - boingo on 22/05/2007 09:36:03

pessoal é o seguinte: Estou Trabalhando na tela principal do programa utilizando o seguinte comando: DEFINE IMAGELIST oImageList SIZE 37, 32 DEFINE IMGBITMAP OF oImageList NAME "EMPRESA" COLOR nRGB( 255, 0, 255 ) DEFINE TOOLBAR OBAR OF oWnd SIZE 10,50; IMAGELIST oImageList BALLOON // tooltips balloon style DEFINE TBBUTTON OF OBAR ; ACTION ""; TOOLTIP "Dados da Empresa" ; PROMPT "Empresa" ; MESSAGE "Dados" Quando eu rodo no w98 você percebe uma diferença pequena no tom da barra com o fundo do desenho, mas quando eu rodo no xp a diferença é muito grande ficando feio.Estou chamando o desenho de uma dll que eu salvei como rc (preferences Target Windows Version Windows 3.1). O que está errado. Obrigado. Editado por - boingo on 22/05/2007 09:36:03