nancouto

Amigos, estou começando em FW e criei uma dialog contendo um folder e um listbox. A pergunta é, como faço para que ao selecionar um determinado registro na listbox, este seja, mostrado na segunda "orelha" do folder? NANCOUTO - FW 6.02, HARBOUR 6.02, PELLES, BCC

Amigos, estou começando em FW e criei uma dialog contendo um folder e um listbox. A pergunta é, como faço para que ao selecionar um determinado registro na listbox, este seja, mostrado na segunda "orelha" do folder? NANCOUTO - FW 6.02, HARBOUR 6.02, PELLES, BCC

Sou novato em fivewin, e preciso de auxílio no uso do folder + listbox, pois pretendo colocar neste dialog várias informações. NANCOUTO - XHARBOUR 6.02, FIVE 6.02, PELLES, BCC

Sou novato em fivewin, e preciso de auxílio no uso do folder + listbox, pois pretendo colocar neste dialog várias informações. NANCOUTO - XHARBOUR 6.02, FIVE 6.02, PELLES, BCC

Sou novato e gostaria de saber se é possível fazer pesquisa usando o listbox. EX: A partir da digitação de um determinado nome, como se fazia no dbedit do CLIPPER. Caso seja possível, como fazer?

Sou novato e gostaria de saber se é possível fazer pesquisa usando o listbox. EX: A partir da digitação de um determinado nome, como se fazia no dbedit do CLIPPER. Caso seja possível, como fazer?

Utilizo nas aplicações o listbox, mas preciso de auxílio para uso do xBrowse, pois minhas opções para manipulação dos dados serão melhores. No entanto, não sei como proceder. Alguém poderia me ajudar???

Utilizo nas aplicações o listbox, mas preciso de auxílio para uso do xBrowse, pois minhas opções para manipulação dos dados serão melhores. No entanto, não sei como proceder. Alguém poderia me ajudar???

Rapaziada a vai o código do meu menu que não destaca as opções com "&": function promptMenu() local oMenu Menu oMenu menuItem "&Arquivos" menu menuItem "&Pacientes" resource "FACE01" action CadastrodoPaciente() menuItem "&Tabela de procedimentos..." resource "PASTA02" separator menuItem "&Sair" resource "SAIDA01" ; action if( msgNoYes("Encerra o aplicativo? ","Confirmação"),oWnd:END(),) endMenu endMenu return oMenu Obrigado, e prometo ser mais direto e menos técnico (rss).

Como faço para manter ativo (visualmente) os hotkeys do menu superior da aplicação, uma vez que não aparece o caracter underline, a menos que uso a tecla ALT para ativá-los. Isso já não acontece nas janelas up-down que já entram ativas quando chamadas pelo principal. Obrigado. LUIZ FERNANDO. FWH6.12, PELLES C, DBFCDX, HARBOUR, ETC.

Como faço para manter ativo (visualmente) os hotkeys do menu superior da aplicação, uma vez que não aparece o caracter underline, a menos que uso a tecla ALT para ativá-los. Isso já não acontece nas janelas up-down que já entram ativas quando chamadas pelo principal. Obrigado. LUIZ FERNANDO. FWH6.12, PELLES C, DBFCDX, HARBOUR, ETC.

citação: citação:"Não sei como integrar os outros .PRGs a minha aplicação na hora de compilar..."id=quote>id=quote>Um forma simples é declará-los via INCLUDE no final do módulo principal: #include "prg2.prg" #include "prg3.prg" #include "prg4.prg" Amigo, valeu demais, tirou o "bug" com a mão. Um abraço. Luiz Fernando Nova Andradina-MS citação:"...tem dado erro na compilação: "Function BWCCREGISTER does not end with return statement..." id=quote>id=quote>Nunca me ocorreu este erro. Pela msg, aparentemente esta dita função foi encerrada sem o RETURN ou nao está retornando um dado válido. Um abraço! id=quote>id=quote>

Não sei como integrar os outros .PRGS a minha aplicação na hora de compilar. Para resolver isso tenho usado o COMANDO: SET PROCEDURE TO << NOME DO PRG >> no arquivo principal, mas tem dado erro na compilação: "Function BWCCREGISTER does not end with return statement". Embora com isso os outros prgs sejam chamados, temo problemas futuros. Meu arquivo .BAT é o seguinte: if A%1 == A GOTO :SINTAX if NOT EXIST %1.prg GOTO :NOEXIST ECHO Compiling... set hdir=c:\harbour set fdir=c:\fwh set bcdir=c:\bcc55 @If Exist *.Bak Del *.Bak @If Exist *.Obj Del *.Obj @If Exist *.Log Del *.Log @If Exist *.Map Del *.Map @If Exist *.PPO Del *.Ppo @If Exist *.TDS Del *.TDS @If Exist *.Bc Del *.bc @If Exist *.C Del *.C @If Exist *.HC Del *.HC If Exist SCO.Exe Del SCO.Exe %hdir%\bin\harbour %1 /n /i..\include;%hdir%\include /w /p %2 %3 > clip.log @type clip.log IF ERRORLEVEL 1 PAUSE IF ERRORLEVEL 1 GOTO EXIT echo -O2 -e%1.exe -I%hdir%\include %1.c > b32.bc %bcdir%\bin\bcc32 -M -c -v @b32.bc :ENDCOMPILE IF EXIST %1.rc %bcdir%\bin\brc32 -r %1 echo c0w32.obj + > b32.bc echo %1.obj, + >> b32.bc echo %1.exe, + >> b32.bc echo %1.map, + >> b32.bc echo %fdir%\lib\Fivehx.lib %fdir%\lib\FiveHC.lib + >> b32.bc echo %hdir%\lib\rtl.lib + >> b32.bc echo %hdir%\lib\vm.lib + >> b32.bc echo %hdir%\lib\gtgui.lib + >> b32.bc echo %hdir%\lib\lang.lib + >> b32.bc echo %hdir%\lib\macro.lib + >> b32.bc echo %hdir%\lib\rdd.lib + >> b32.bc echo %hdir%\lib\dbfntx.lib + >> b32.bc echo %hdir%\lib\dbfcdx.lib + >> b32.bc echo %hdir%\lib\dbffpt.lib + >> b32.bc echo %hdir%\lib\hbsix.lib + >> b32.bc echo %hdir%\lib\debug.lib + >> b32.bc echo %hdir%\lib\common.lib + >> b32.bc echo %hdir%\lib\pp.lib + >> b32.bc rem Uncomment these two lines to use Advantage RDD echo %hdir%\lib\rddads.lib + >> b32.bc echo %hdir%\lib\Ace32.lib + >> b32.bc echo %bcdir%\lib\cw32.lib + >> b32.bc echo %bcdir%\lib\import32.lib + >> b32.bc echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc echo %bcdir%\lib\psdk\iphlpapi.lib, >> b32.bc IF EXIST %1.res echo %1.res >> b32.bc rem uncomment this line to use the debugger and comment the following one rem %bcdir%\bin\ilink32 -Gn -Tpe -s -v @b32.bc %bcdir%\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc IF ERRORLEVEL 1 GOTO LINKERROR ECHO * Application successfully built %1 GOTO EXIT ECHO rem delete temporary files @del %1.c :LINKERROR ECHO * There are errors GOTO EXIT :SINTAX ECHO SYNTAX: Build [Program] {-- No especifiques la extensi¢n PRG ECHO {-- Don't specify .PRG extension GOTO EXIT :NOEXIST ECHO The specified PRG %1 does not exist :EXIT id=red>

Não sei como integrar os outros .PRGS a minha aplicação na hora de compilar. Para resolver isso tenho usado o COMANDO: SET PROCEDURE TO << NOME DO PRG >> no arquivo principal, mas tem dado erro na compilação: "Function BWCCREGISTER does not end with return statement". Embora com isso os outros prgs sejam chamados, temo problemas futuros. Meu arquivo .BAT é o seguinte: if A%1 == A GOTO :SINTAX if NOT EXIST %1.prg GOTO :NOEXIST ECHO Compiling... set hdir=c:\harbour set fdir=c:\fwh set bcdir=c:\bcc55 @If Exist *.Bak Del *.Bak @If Exist *.Obj Del *.Obj @If Exist *.Log Del *.Log @If Exist *.Map Del *.Map @If Exist *.PPO Del *.Ppo @If Exist *.TDS Del *.TDS @If Exist *.Bc Del *.bc @If Exist *.C Del *.C @If Exist *.HC Del *.HC If Exist SCO.Exe Del SCO.Exe %hdir%\bin\harbour %1 /n /i..\include;%hdir%\include /w /p %2 %3 > clip.log @type clip.log IF ERRORLEVEL 1 PAUSE IF ERRORLEVEL 1 GOTO EXIT echo -O2 -e%1.exe -I%hdir%\include %1.c > b32.bc %bcdir%\bin\bcc32 -M -c -v @b32.bc :ENDCOMPILE IF EXIST %1.rc %bcdir%\bin\brc32 -r %1 echo c0w32.obj + > b32.bc echo %1.obj, + >> b32.bc echo %1.exe, + >> b32.bc echo %1.map, + >> b32.bc echo %fdir%\lib\Fivehx.lib %fdir%\lib\FiveHC.lib + >> b32.bc echo %hdir%\lib\rtl.lib + >> b32.bc echo %hdir%\lib\vm.lib + >> b32.bc echo %hdir%\lib\gtgui.lib + >> b32.bc echo %hdir%\lib\lang.lib + >> b32.bc echo %hdir%\lib\macro.lib + >> b32.bc echo %hdir%\lib\rdd.lib + >> b32.bc echo %hdir%\lib\dbfntx.lib + >> b32.bc echo %hdir%\lib\dbfcdx.lib + >> b32.bc echo %hdir%\lib\dbffpt.lib + >> b32.bc echo %hdir%\lib\hbsix.lib + >> b32.bc echo %hdir%\lib\debug.lib + >> b32.bc echo %hdir%\lib\common.lib + >> b32.bc echo %hdir%\lib\pp.lib + >> b32.bc rem Uncomment these two lines to use Advantage RDD echo %hdir%\lib\rddads.lib + >> b32.bc echo %hdir%\lib\Ace32.lib + >> b32.bc echo %bcdir%\lib\cw32.lib + >> b32.bc echo %bcdir%\lib\import32.lib + >> b32.bc echo %bcdir%\lib\psdk\odbc32.lib + >> b32.bc echo %bcdir%\lib\psdk\rasapi32.lib + >> b32.bc echo %bcdir%\lib\psdk\nddeapi.lib + >> b32.bc echo %bcdir%\lib\psdk\iphlpapi.lib, >> b32.bc IF EXIST %1.res echo %1.res >> b32.bc rem uncomment this line to use the debugger and comment the following one rem %bcdir%\bin\ilink32 -Gn -Tpe -s -v @b32.bc %bcdir%\bin\ilink32 -Gn -aa -Tpe -s -v @b32.bc IF ERRORLEVEL 1 GOTO LINKERROR ECHO * Application successfully built %1 GOTO EXIT ECHO rem delete temporary files @del %1.c :LINKERROR ECHO * There are errors GOTO EXIT :SINTAX ECHO SYNTAX: Build [Program] {-- No especifiques la extensi¢n PRG ECHO {-- Don't specify .PRG extension GOTO EXIT :NOEXIST ECHO The specified PRG %1 does not exist :EXIT id=red>

citação:HBMK2.EXE Um abraço! id=quote>id=quote>Obrigado. Um abraço: Luiz Fernando.

Amigos por favor, preciso do arquivo HBMK2.EXE para compilação.

Amigos por favor, preciso do arquivo HBMK2.EXE para compilação.

Socorro! Não consigo compilar os prgs que fazem parte da minha aplicação depois que mudei para o harbour. Estou usando como .BAT o buildx.bat que vem no FW612\SAMPLES. Como faço para integrar os outros prgs? Ferramentas que uso - xHarbour + FIVE 6.12 + WORKSHOP.id=blue>

Socorro! Não consigo compilar os prgs que fazem parte da minha aplicação depois que mudei para o harbour. Estou usando como .BAT o buildx.bat que vem no FW612\SAMPLES. Como faço para integrar os outros prgs? Ferramentas que uso - xHarbour + FIVE 6.12 + WORKSHOP.id=blue>

citação: menuitem "Faturar"; message "Executar novo faturamento"; accelerator ACC_NORMAL,VK_F10; resource "Venda16"; action ShowVenda() id=code>id=code> SamirSSabreu@gmail.com samirabreu@hotmail.com Skype: SamirAbreu xHarbour 1.1.0 + FwXh 8.02 id=black>"Acreditar é mais fácil do que pensar: Daí existem muito mais crentes do que pensadores.†Bruce Calvert Editado por - sambomb on 29/10/2010 08:17:39 Editado por - sambomb on 29/10/2010 08:19:51 id=quote>id=quote>Samir, obrigado pela dica. Descobri que a DLL que eu utilizava era 16 bits, por isso não consegui usar os recursos. Um abraço: Luiz Fernando

Amigos, fiz a migração para harbour, mas não consigo utilizar imagens no menu, como fazia anteriormente, o que fazer? Eis o meu código: function main() local hBorland set Century On set 3DLook On set( 4, if( __setcentury(), "dd/mm/yyyy", "dd/mm/yy") ) set( 5, year( date() ) - 95 ) /* _____________________________________ */ hBorland := LoadLibrary('BWCC32.DLL') //-> Dll para 32 bits BWCCRegister( GetResources( ) ) //-> Configura set resources to "NANDOFWH.DLL","PREV32.DLL" define window oWnd from 0,0 to 800,600 ; title cTitulo_ ; menu promptMenu() set message of oWnd KEYBOARD CLOCK DATE activate window oWnd maximized set resources to freeLibrary("bwcc32.dll") return (Nil) /* { promptMenu : Menus da aplicação } */ function promptMenu() local oMenu Menu oMenu menuItem "&Arquivos" menu menuItem "&Pacientes" menuItem "&Tabela de procedimentos..." separator menuItem "&Sair" resource "BMP0011" action if( msgNoYes("Encerra o aplicativo? ","Confirmação"),oWnd:END(),) endMenu endMenu return(oMenu) id=red>

Amigos, fiz a migração para harbour, mas não consigo utilizar imagens no menu, como fazia anteriormente, o que fazer? Eis o meu código: function main() local hBorland set Century On set 3DLook On set( 4, if( __setcentury(), "dd/mm/yyyy", "dd/mm/yy") ) set( 5, year( date() ) - 95 ) /* _____________________________________ */ hBorland := LoadLibrary('BWCC32.DLL') //-> Dll para 32 bits BWCCRegister( GetResources( ) ) //-> Configura set resources to "NANDOFWH.DLL","PREV32.DLL" define window oWnd from 0,0 to 800,600 ; title cTitulo_ ; menu promptMenu() set message of oWnd KEYBOARD CLOCK DATE activate window oWnd maximized set resources to freeLibrary("bwcc32.dll") return (Nil) /* { promptMenu : Menus da aplicação } */ function promptMenu() local oMenu Menu oMenu menuItem "&Arquivos" menu menuItem "&Pacientes" menuItem "&Tabela de procedimentos..." separator menuItem "&Sair" resource "BMP0011" action if( msgNoYes("Encerra o aplicativo? ","Confirmação"),oWnd:END(),) endMenu endMenu return(oMenu) id=red>

obrigado pela resposta a dúvida. Vou implementar e assim que obtiver resultado envio resposta. ATT.

Amigos do fórum, atualmente compilo minhas aplicações com clipper + blinker 6, gostaria de saber como faço para utilizar o harbour em 32 bits. Preciso de passo-a-passo toda a compilação. Uso atualmente o fivewin for harbour versão disponibilizada pela fivetech (6.12). Obrigado pela ajuda.

Amigos do fórum, atualmente compilo minhas aplicações com clipper + blinker 6, gostaria de saber como faço para utilizar o harbour em 32 bits. Preciso de passo-a-passo toda a compilação. Uso atualmente o fivewin for harbour versão disponibilizada pela fivetech (6.12). Obrigado pela ajuda.