ricardom1361303566

Adaptei vários exemplos, citados aqui no Forum. Mas nenhum funciona perfeitamente. As impressoras que estao instaladas locais, funcionam. As que estão pela rede, algumas trazem, outras não. Não consegui identificar quais as diferenças. Tenho também uma impressora , SHARP AL-1645CS, que é copiadora também, instalada normalmente, via USB, traz o nome em branco. Ou seja, localiza a porta, mas não cita o nome. No vista, então, deve ter mudado a forma do Windows guardar no Registro, não retorna nada. Ricardo FW 2.4 - Workshop - Blinker - Clip53

Adaptei vários exemplos, citados aqui no Forum. Mas nenhum funciona perfeitamente. As impressoras que estao instaladas locais, funcionam. As que estão pela rede, algumas trazem, outras não. Não consegui identificar quais as diferenças. Tenho também uma impressora , SHARP AL-1645CS, que é copiadora também, instalada normalmente, via USB, traz o nome em branco. Ou seja, localiza a porta, mas não cita o nome. No vista, então, deve ter mudado a forma do Windows guardar no Registro, não retorna nada. Ricardo FW 2.4 - Workshop - Blinker - Clip53

Desta forma , funcionou. Obrigado

a variável nRad é local, na função anterior, da dialog pricipal. O objeto orad é passado como parametro, para a função carrega( Ricardo

continua com erro oGet[5]:oJump := oRad xSetFocus( oRad ) Return .t. //=============================== Static Func XSetFocus(oObj) //============================== Local oTempo := "" Define Timer oTempo Interval 10 Of oObj:oWnd Action (oObj:SetFocus(),oObj:SetPos(0),oTempo:Deactivate()) //linha 1242 Activate Timer oTempo Retu("") Error description: Error Objects/6 No Exp. Method: TRADMENU:OWND Stack Calls =========== Called from LOCKERRHAN(0) Called from (b)INITHANDL$(0) Called from TRADMENU:OWND(0) Called from XSETFOCUS(1242) Called from CARREGA(849)

Kapiaba, Acho que não soube explicar. Olhe parte do código: nRad := 1 DEFINE DIALOG oDlg RESOURCE "RECEITA1" oDlg:lHelpIcon := .f. REDEFINE GET oPasta VAR cPasta PICTURE "@K!" ID 10 OF oDlg valid ver_pst(cPasta,@cNome,oNome,@cEnder,@cCidade) ; COLORS nRgb(0,0,255),nRgb( 225,245,255) REDEFINE GET oNome VAR cNome PICTURE "@!" ID 11 OF oDlg ; when empty( cPasta ) ; valid rec_nome( @cNome, @cPasta,oDlg, oNome,@cEnder,@cCidade,oPasta ) ; COLORS nRgb(0,0,255),nRgb( 225,245,255) REDEFINE RADIO oRad VAR nRad ID 31,32 OF oDlg REDEFINE GET oGet[1] VAR aRem[1] PICTURE "@!" ID 12 OF oDlg valid ver_reme( aRem , oGet ,oDlg,nRad ,@lUm ,oRec ) ; COLORS nRgb(0,0,255),nRgb( 225,245,255) ........... ............ .......... REDEFINE GET oGet[5] VAR aRem[5] PICTURE "@!" ID 16 OF oDlg when !empty( aRem[4]) valid carrega( aBrw,aRem, oBrw,oGet,oRad ) COLORS nRgb(0,0,255),nRgb( 225,245,255) ACTIVATE DIALOG oDlg CENTERED valid fechar() ....... ...... Return nil //================================================= function carrega( aBrw,aRem, oBrw ,oGet,oRad) //------------------------------------------------- Local i if len( aBrw ) == 1 .and. empty( aBrw[1,1]) aBrw[1,1] := aRem[1] aBrw[1,2] := aRem[2] aBrw[1,3] := aRem[3] aBrw[1,4] := aRem[4] aBrw[1,5] := aRem[5] else aadd(aBrw , aclone(aRem ) ) endif aRem[1] := space(45) ; aRem[2] := 0 ; aRem[3] := space(15) ; aRem[4] := space(60); aRem[5] := space(120) oBrw:SetArray( aBrw ) oBrw:Refresh() for i := 1 to 5 oGet:REfresh() next oGet[5]:oJump := oRad // último get onde esta a função carrega oRad:SEtFocus() // linha 843 Return .t. a função carrega redefine várias variáveis e força um salto para o início dos gets, tendo que começar novamente pela seleção dos radiobuttons: 1 ou 2. o Jump neste caso é que dá erro: Error description: Error Objects/6 No Exp. Method: TRADMENU:SETFOCUS Stack Calls =========== Called from LOCKERRHAN(0) Called from (b)INITHANDL$(0) Called from TRADMENU:SETFOCUS(0) Called from CARREGA(843) Se eu tirar esta limpa, e deixar o Jump, passa a dar erro nesta linha. Ricardo

Tenho um objeto radio declarado: REDEFINE RADIO oRad VAR nRad ID 31,32 OF oDlg no início de uma dialog. De acordo com a seleção (1 ou 2), irá fazer determinado procedimento. Ao final do procedimento , teria que voltar a este radio, Utilizo sempre o jump do último objeto para voltar a determinado objeto, mas no caso de radio menu, não funciona: oGet5:oJump := oRad oRad:SetFocus() ( erro) Acho que por ser tipo radmenu, teria que ter outro modo de salto. Não consegui descobrir, mesmo analisando a classe radio.prg. Alguma dica? Ricardo FW2.4 - WS - Blinker

Tenho um objeto radio declarado: REDEFINE RADIO oRad VAR nRad ID 31,32 OF oDlg no início de uma dialog. De acordo com a seleção (1 ou 2), irá fazer determinado procedimento. Ao final do procedimento , teria que voltar a este radio, Utilizo sempre o jump do último objeto para voltar a determinado objeto, mas no caso de radio menu, não funciona: oGet5:oJump := oRad oRad:SetFocus() ( erro) Acho que por ser tipo radmenu, teria que ter outro modo de salto. Não consegui descobrir, mesmo analisando a classe radio.prg. Alguma dica? Ricardo FW2.4 - WS - Blinker

Olá, Eu uso a característica password, pelo WorkShop. Voce teria que criar uma dialog e gets por ele. Assim o get da senha seria normal. O recurso transforma em asterísticos a digitação. Testei meu programa no site do Unibanco, e no gereciador financeiro do BB. Sem problemas. Talvez resolva. Ricardo FW 2.4 - Workshop

Ola, No meu caso, não funcionou. BugUp() é a mesma coisa que UpStable(), que já utilizava. O que ocorre agora, é que o novo registro, aparece normal, quando inserido, na janela, mas esconde o último. Ricardo

Estou usando arquivo. Uso tambem a classe Database ( Nao sei se tem algo a ver). Sempre coloco como citado pelo aFerra: oBrw:Setfocus(),oBrw:UpStable(),oBrw:Refresh() Não funciona. Só normaliza quando é completado a janela do browse. Ricardo

Uso TsBrowse 7.1 Ao incluir novo registro, quando as linhas indicativas no browse ainda não completaram a janela, ele não refaz a janela, ou seja, posiciona-se no novo registro, mas esconde o último. Ja fiz Refresh, SysRefresh(), goDow, pageDow, pageUp, mas nao funciona. Uso WS, com o recurso correto (TsBrowse). Alguma dica? Ricardo FWH 2.4 - WS - Blinker

Uso TsBrowse 7.1 Ao incluir novo registro, quando as linhas indicativas no browse ainda não completaram a janela, ele não refaz a janela, ou seja, posiciona-se no novo registro, mas esconde o último. Ja fiz Refresh, SysRefresh(), goDow, pageDow, pageUp, mas nao funciona. Uso WS, com o recurso correto (TsBrowse). Alguma dica? Ricardo FWH 2.4 - WS - Blinker

Eu uso imagem jpg como fundo de tela, usando exemplo da FreeImage.dll e um código postado em dicas. Funciona perfeitamente. Como uso Windows XP, para trabalhar, não tinha percebido que não funciona no Windows 98. Tem como carregr uma imagem jpg ,como fundo de tela da aplicação, em Win 98? Ricardo FW 2.4 - WS - Clip53- Blinker

Eu uso imagem jpg como fundo de tela, usando exemplo da FreeImage.dll e um código postado em dicas. Funciona perfeitamente. Como uso Windows XP, para trabalhar, não tinha percebido que não funciona no Windows 98. Tem como carregr uma imagem jpg ,como fundo de tela da aplicação, em Win 98? Ricardo FW 2.4 - WS - Clip53- Blinker

nDPI := oPrn:nLogPixelX()- pontos por polegada Eu uso este retorno para definição de página, tamanho de fontes,etc. Normalmente as impressoras DeskJet ou Laser, trabalham com 300 DPI - modo economico - 600 dpi normal, 800 ou superior, em impressoras maiores. Há uma diferença entre as DeskJets e Laser, mais ou menos de 0.5 cm. Mesmo trabalhando com cm , CmSay, a conversão não é exata, em diferentes impressoras, principalmente se usar Fontes mais elaboradas. Ricardo FW2.4 - WS

Veja sé isto serve: http://www.fivewin.com.br/exibedicas.asp?id=678 Ricardo

Washington, Também estou procurando. Estou verificando este: http://www.scriptcase.com.br/site/home/home.php Gostaria que nos mantivesse informados sobre seus avanços com esta ferramenta. Ricardo FWH2.4 - Clipper -WS

Esta função ORDWILDSEEK, é do xHarbour?? Não tem no Five /Clipper? Ricardo FWH 2.4 - clip53 - WS

Mauricio, Também tentei usar o menu, no Five, cheguei inclusive a tentar adaptar o menu.c, com funções hb_, para Clipper. Mas também não cheguei a nenhum resultado. Acho que não funcionará no Five/Clipper, somente no Harbour. Ricardo FWH 2.4 - Clipper - WS - Blinker

Gilmer, Minha versão é FWH 2.4. Traz as libs do Harbour. Ricardo

Colegas, Até agora não consegui fazer funcionar o XHarbour. Cada versão que pego, dá algum tipo de problema. Qual a versão do XHarbour que funciona perfeitamente com o Fw 2.4, de novembro de 2002? De onde baixar?? Alguem, que utiliza esta versão FW, e usa XHarbour, poderia me mandar as libs correspondentes? Obrigado, Ricardo FW 2.4 - WS - bLinker - rmattenhauer@gmail.com

Colegas, Até agora não consegui fazer funcionar o XHarbour. Cada versão que pego, dá algum tipo de problema. Qual a versão do XHarbour que funciona perfeitamente com o Fw 2.4, de novembro de 2002? De onde baixar?? Alguem, que utiliza esta versão FW, e usa XHarbour, poderia me mandar as libs correspondentes? Obrigado, Ricardo FW 2.4 - WS - bLinker - rmattenhauer@gmail.com

Esta dica de menu estilo XP, seria possível adapta-la para FW normal, 16, ou é so para (x)harbour? Ricardo FW2.4 - WS

Eu vi uma vez no Forum uma recomendação sobre tamanho dos obj. Não consegui mais achar. Tem alguma limitação? Objs pequenos são mais fáceis de carregar, ou não tem nada a ver? É melhor dividir um prg grande em dois menores? Ricardo FW 24 - WS - Blinker - Clip53 -CDX