Alain da Silva

E ai pessoal, nenhuma ajuda!!! Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 @L,C

Bom dia pessoal, estou testando como funciona a dbcombo e estou tendo o seguinte problema, quando cai no campo da dbcombo, se eu for descendo na seta ele aparece os munícípios mas se eu clico na seta não abre a janela, é como se eu não tivesse colocado os valores do size correto. vejam o comando: #INCLUDE "DBCOMBO.CH" FUNCTION CADEMP() MEMVAR VAREMP VAREMP:={NOME,FANTASIA,CNPJ,INSEST,CNAE,INSMUN,INSESTTRIB,ENDERECO,NUMERO,COMPLTO,BAIRRO,CEP,ESTADO,MUNICIPIO,TELEFONE} @103,255 DBCOMBO MOSTRA14 VAR VAREMP[14] OF TELAEMP PIXEL; ALIAS "ARQMUN"; ITEMFIELD "NOME"; LISTFIELD "NOME" SIZE 100,100 Alguma ajuda, obrigado Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 @L,C

Bom dia pessoal, estou testando como funciona a dbcombo e estou tendo o seguinte problema, quando cai no campo da dbcombo, se eu for descendo na seta ele aparece os munícípios mas se eu clico na seta não abre a janela, é como se eu não tivesse colocado os valores do size correto. vejam o comando: #INCLUDE "DBCOMBO.CH" FUNCTION CADEMP() MEMVAR VAREMP VAREMP:={NOME,FANTASIA,CNPJ,INSEST,CNAE,INSMUN,INSESTTRIB,ENDERECO,NUMERO,COMPLTO,BAIRRO,CEP,ESTADO,MUNICIPIO,TELEFONE} @103,255 DBCOMBO MOSTRA14 VAR VAREMP[14] OF TELAEMP PIXEL; ALIAS "ARQMUN"; ITEMFIELD "NOME"; LISTFIELD "NOME" SIZE 100,100 Alguma ajuda, obrigado Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 @L,C

Como vai Kapiaba. Seria uma tela como esta que a gente escreve nos tópicos. Exemplo: Em azul no topo o logotipo do fivewin Depois abaixo as opções Fivewin | Meu Perfil | Cadastros ... outro exemplo a tela do site do itau. Eu falei em barra de botões porque era a forma que eu estava tentando, mas se tiver outra forma de montar uma tela assim. Obrigado Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 @L,C

Bom dia pessoal. Eu queria mudar o visual da minha tela principal e não estou conseguindo. Eu queria fazer uma tela parecida com esta que a gente inclui os tópicos. Eu queria primeiro no topo o logotipo da empresa e depois abaixo as opções de botões. Eu tentei colocar duas barras uma para colocar o desenho e a outra para colocar os botões mais não estou conseguindo. Alguém teria um exemplo simples. Obrigado Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 @L,C

Bom dia pessoal. Eu queria mudar o visual da minha tela principal e não estou conseguindo. Eu queria fazer uma tela parecida com esta que a gente inclui os tópicos. Eu queria primeiro no topo o logotipo da empresa e depois abaixo as opções de botões. Eu tentei colocar duas barras uma para colocar o desenho e a outra para colocar os botões mais não estou conseguindo. Alguém teria um exemplo simples. Obrigado Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 @L,C

Ola Marcio, acho que esta acontecendo com você o mesmo que aconteceu comigo. Se for o problema não esta no comando e sim que quando você digita ALT+S o peso que você coloca na tecla faz com que ele feche volte para a janela anterior e e sem que você perceba ainda esta precionando a tecla S e também fecha a segunda dialog até a primeira. Pra fazer um teste na dialog 2 ao invés de colocar &Sair coloque &Fechar para ver se para de fechar a dialog 2. Espero que ajude. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 @L,C

Bom dia Kapiaba tudo bem, é o seguinte: ou eu não entendi seu exemplo ou você não entendeu a pergunta. Minha toolbar esta funcionando na dialog, com botões e menu, o problema esta na tecla de atalho do botão. Apesar que no exemplo que postei o action esta "" e na verdade é action manutcli("i") a tecla de atalho do botão não funciona. no caso (Alt+E). Obrigado Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 @L,C

Ola pessoal, é o seguinte: estou fazendo uma toolbar em uma dialog, só que o problema é que não esta funcionando a tecla de atalho do botão. DEFINE DIALOG TLCAR FROM 1, 1 TO 330,750 ; TITLE "Cadastro de Cliente"; STYLE nOr(WS_POPUP, ; WS_VISIBLE, ; WS_CAPTION) PIXEL TLCAR : LHELPICON := .F. // TIRA A ? DA JANELA TLCAR:bRClicked = { || MsgInfo( OemToAnsi( "Sem Efeito" ), ; ( OemToAnsi( "Informação" ) ) ) } *---------------------------------------------** ACTIVATE DIALOG TLCAR CENTERED VALID SAIDLG ON INIT (BARRABOTOESCLI(TLCAR),XSETFOCUS(OGNC)) DBCLOSEALL() RELEASE ALL RETURN(.F.) STATIC FUNCTION BARRABOTOESCLI(TLCAR) LOCAL OBTN:=ARRAY(6) DEFINE BRUSH oBrush COLOR XPAZULC DEFINE SBUTTONBAR oBar OF TLCAR SIZE 50,50 BOTTOM oBar:SetBrush( oBrush ) DEFINE SBUTTON OBTN[2] OF oBar ; RESOURCE "CONSULTA" SIZE 145,40; PROMPT "&Exibir"; TEXT POSITION ON_RIGHT; ACTION ""; TOOLTIP "Exibir Lançamento"; MESSAGE ""; BRUSH oBrush ; NOBOX; COLORS { |oB| IF( oB:lMouseOver,XPAZUL,PRETO )} RETURN NIL id=code>id=code>Qual solução. Obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 @L,C

Ola pessoal, é o seguinte: estou fazendo uma toolbar em uma dialog, só que o problema é que não esta funcionando a tecla de atalho do botão. DEFINE DIALOG TLCAR FROM 1, 1 TO 330,750 ; TITLE "Cadastro de Cliente"; STYLE nOr(WS_POPUP, ; WS_VISIBLE, ; WS_CAPTION) PIXEL TLCAR : LHELPICON := .F. // TIRA A ? DA JANELA TLCAR:bRClicked = { || MsgInfo( OemToAnsi( "Sem Efeito" ), ; ( OemToAnsi( "Informação" ) ) ) } *---------------------------------------------** ACTIVATE DIALOG TLCAR CENTERED VALID SAIDLG ON INIT (BARRABOTOESCLI(TLCAR),XSETFOCUS(OGNC)) DBCLOSEALL() RELEASE ALL RETURN(.F.) STATIC FUNCTION BARRABOTOESCLI(TLCAR) LOCAL OBTN:=ARRAY(6) DEFINE BRUSH oBrush COLOR XPAZULC DEFINE SBUTTONBAR oBar OF TLCAR SIZE 50,50 BOTTOM oBar:SetBrush( oBrush ) DEFINE SBUTTON OBTN[2] OF oBar ; RESOURCE "CONSULTA" SIZE 145,40; PROMPT "&Exibir"; TEXT POSITION ON_RIGHT; ACTION ""; TOOLTIP "Exibir Lançamento"; MESSAGE ""; BRUSH oBrush ; NOBOX; COLORS { |oB| IF( oB:lMouseOver,XPAZUL,PRETO )} RETURN NIL id=code>id=code>Qual solução. Obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 @L,C

alainrancharia@hotmail.com Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 @L,C

Muito bom, no meu caso funcionou bem, só tive que fazer um ajuste no browse. Obrigado mais uma vez Yury. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 @L,C

Obrigado Yury, farei os testes depois informo. Valeu. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 @L,C

Gostaria sim Yury, pode postar. obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 @L,C

Como vai Yury. É verdade, eu não tinha pensado nisso. Eu mesmo estou agora com um monte de programa aberto. Vou pensar se deixo tudo pequeno mesmo ou se compensa manipular todas as telas. Obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 @L,C

Ola, é o seguinte, mesmo sabendo com esta função a resolução do vídeo e manipulando as janelas de acordo com o retorno da variável, as telas não me agradaram, porque só as janelas mudam, mas o restante, botões, letras, etc ficam na mesma. Não teria como eu testar e se for diferente de 800x600 eu mudar a resolução? Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 @L,C

Obrigado Valdir, vou testar. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5 @L,C

Bom dia pessoal, pesquisei nos tópicos e em dicas mais não consegui chegar achar uma solução. Comecei a fazer meus programas aqui na empresa e uso a resolução de 800x600. Agora na minha casa estou usando 1024x768 e vi que a tela principal não tem problemas, agora as demais telas aparecem pequenas. Como faço para verificar qual a resolução e mudar para se for o caso 800x600. obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Bom dia pessoal, pesquisei nos tópicos e em dicas mais não consegui chegar achar uma solução. Comecei a fazer meus programas aqui na empresa e uso a resolução de 800x600. Agora na minha casa estou usando 1024x768 e vi que a tela principal não tem problemas, agora as demais telas aparecem pequenas. Como faço para verificar qual a resolução e mudar para se for o caso 800x600. obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Alessandro, eu alterei na classe. *----------->Yury Marcelino Al METHOD Print(nModo) CLASS TMultiGet local oPrn, oFont local nRowStep local nRow := 0, nCol := 0, n, n1 := 0 local nLines := ::GetLineCount() DEFAULT nModo :=1 PRINT oPrn NAME "Notes" if Empty( oPrn:hDC ) MsgStop( "Printer not ready!" ) return self endif if nModo = 2 oPrn:SetLandscape() <=== aqui endif *------------------ > depois o que você falou. #ifndef __XPP__ MENUITEM "Modo Retrato P&rint" ACTION ::Print(1) MENUITEM "Modo Paisagem P&rint" ACTION ::Print(2) * MENUITEM "P&rint" ACTION ::Print() #else MENUITEM "P&rint" ACTION ::TMultiGet:Print() #endif id=code>id=code>Na chamado do print. oTextReport:Print(2) Só que ele imprime em modo retrato e não em paisagem. O que estou fazendo de errrado? Obrigado. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

pessoal? Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Alessandro, Yury, alguma ajuda? Obrigado Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Fiz as alterações no programa c:\fwh\source\classes\mget.prg Em que momento passo o valor para a variavel nModo. É aqui? oTextReport:Print(2) Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Bom dia a todos, resolvi colocando a linha abaixo: ************************************** static function PrintDlg(oTextReport) ************************************** //-- Imprime o arquivo de texto para //-- a impressora padrao PRINT oPrn PREVIEW oPrn:SetLandscape() // HORIZONTAL oTextReport:Print() prnResult := .t. return NIL id=code>id=code>Obrigado a todos que ajudaram. Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5

Alessandro, testei aqui e deu erro. oTextReport:Print() oTextReport:SetLandscape() Ele imprimiu e depois em modo retrato e depois deu erro. Message not found: TMULTIGET:SETLANDSCAPE Alain/Rancharia XHarbour - FWH 2.7.4 Workshop 4.5