nancouto

citação:Amgos, uso na criação de botões o BTNBMP. No entanto, se quero destacar o caracter underline ("&"), não funciona. É possível habilitar o botão com este recurso? Caso não seja possível, o que fazer? Um abraço. Nancouto - FWH 6.02 HB 6.02 BCC PellesC Windows 7 Amigo Kapiaba, o uso da classe nativa BUTTONBMP resolveu o problema, obrigado pela dica. Um grande abraço. NANCOUTO - FWH 6.02 HB 6.02 BCC PELLESC WINDOWS 7 id=quote>id=quote>

Amgos, uso na criação de botões o BTNBMP. No entanto, se quero destacar o caracter underline ("&"), não funciona. É possível habilitar o botão com este recurso? Caso não seja possível, o que fazer? Um abraço. Nancouto - FWH 6.02 HB 6.02 BCC PellesC Windows 7

Amgos, uso na criação de botões o BTNBMP. No entanto, se quero destacar o caracter underline ("&"), não funciona. É possível habilitar o botão com este recurso? Caso não seja possível, o que fazer? Um abraço. Nancouto - FWH 6.02 HB 6.02 BCC PellesC Windows 7

Luiz, obrigado pela dica, prometo ser mais atencioso. A verdade é que ainda sou "fiotão" por aqui. Um abraço.

Aos amigos que me enviaram dicas para resolver o problema, deixo aqui os meus mais sinceros agradecimentos. Valeu demais. NANCOUTO - FWH 6.2, HB 6.2, PELLESC, BCC WIN 7

Aos amigos que me enviaram dicas para resolver o problema, deixo aqui os meus mais sinceros agradecimentos. Valeu demais. NANCOUTO - FWH 6.2, HB 6.2, PELLESC, BCC WIN 7

citação:Sem o código é complicado.... RCA Sistemas - Itaocara - RJ id=quote>id=quote>Segue o código para análise: function tabelapacientes() local oDlg,oSay,oDbf,oLbx,oBtn,oFont,oFont_,oFld if ! file( 'PACIENTE.DBF' ) .OR. ! file ( 'PACI001.CDX' ) msgalert( 'Base de dados vazia!','Atenção' ) return .f. end /* _____ ___ */ USE PACIENTE INDEX PACI001,PACI002 dbSetOrder(2) dbGoTop() Database oDbf /* _______ ______________ */ define font oFont name "ARIAL" SIZE 0,-12 Bold define font oFont_ name "ARIAL" SIZE 6, 10 Bold define dialog oDlg resource "form_manutpaciente" redefine folder oFld id 4001 prompt "&Pacientes","&Dados do Cadastro","&Complemento" of oDlg ; dialogs "FORMLISTAPACIENTE","FORMDADOSPACIENTE","FORMCOMPACIENTE" oFld:SetFont(oFont_) /* _________ Aba - Pacientes cadastrados ____________________________ */ redefine listbox oLbx fields PACIENTE->CODIGO,PACIENTE->NOMECOMPL ,; PACIENTE->FONETRABA,PACIENTE->FONECASA_,; PACIENTE->FONECELU_ ; fieldsizes 56,360,112,112,112 ; headers "Cód nº","Identificação","Trabalho","Casa","Celular" update id 4001 of oFld:aDialogs[1] ; colors Branco, Branco *************************************************************************************** oLbx:setfont(oFont) oLbx:cTooltip := "Selecione o paciente desejado" oLbx:nClrBackHead := Ciano_Escuro // Cor do fundo do cabeçalho oLbx:nClrForeHead := Branco // Cor do texto do cabeçalho oLbx:nClrText := Azul_Escuro // Cor do texto da tabela oLbx:nClrPane := Branco // Cor do fundo da tabela oLbx:nClrForeFocus:= Branco // Cor do texto da barra ativa oLbx:nClrBackFocus:= Ciano_Escuro // Cor do fundo barra ativa oLbx:lCellStyle := .F. // Habilita as colunas independentes ************************************************************************ /* ________ Aba - Dados do Cadastro _________________________ */ redefine get oDbf:CODIGO ID 4003 OF oFld:aDialogs[2] UpDate ; when fldManutencaoPaciente(oFld,2,oDbf ) ; COLOR Azul_Escuro font oFont redefine get oDbf:NOMECOMPL ID 4004 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:ENDERECO_ ID 4007 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:NUMERO ID 4008 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:BAIRRO ID 4010 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font OFont redefine get oDbf:COMPLEMEN ID 4012 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:CEP ID 4016 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:CIDADE ID 4017 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:UF ID 4018 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:PROFISSAO ID 4025 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:LOCALTRAB ID 4026 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:FONETRABA ID 4027 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:FONECASA_ ID 4028 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:FONECELU_ ID 4029 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:E_MAIL ID 4031 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine say oSay prompt "Estado Civil?" id 4033 of oFld:aDialogs[2] color Azul_Claro font oFont redefine get oDbf:DATANASC_ ID 4038 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:CPF ID 4040 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:RG ID 4043 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:ORGAOESP ID 4044 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine say oSay prompt "Informações do Paciente:" id 4045 of oFld:aDialogs[2] color Azul_Claro font oFont redefine get oDbf:INDICAC_ ID 4057 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont /* ___________________________________ Aba - Complemento __________________ */ redefine get oDbf:CODIGO ID 4003 OF oFld:aDialogs[3] UpDate ; when fldManutencaoPaciente(oFld,3,oDbf) ; COLOR Azul_Escuro font oFont redefine get oDbf:NOMECOMPL ID 4005 of oFld:aDialogs[3] UpDate ; when fldManutencaoPaciente(oFld,3,oDbf) ; COLOR Azul_Escuro font oFont redefine get oDbf:OBSERVAC ID 4008 of oFld:aDialogs[3] Memo UpDate ; COLOR Azul_Escuro,Branco font oFont /* ________________ Define os botões de controle do formulário ____________________________________________ */ redefine btnBmp oBtn id 4002 of oDlg prompt "Fechar " resource "SAIDA03" left ; tooltip "Encerra digitação" ; action ( oDlg:end() ) oDlg:UpDate() activate dialog oDlg centered return dbCloseAll() /* ____ __________ */ /* { Função de interrupção dos controles do get ativo - simula o get desabilitado sem permitir alterações } */ static function fldManutencaoPaciente(oFld, numFolder, oDbf) oDbf:Load() if numFolder = 1 .or. numFolder = 2 oFld:aDialogs[2]:aControls[1]:Disable() elseif numFolder = 3 oFld:aDialogs[3]:aControls[3]:Setfocus(3) endif /* ____ _____ */ oFld:UpDate() return .t.

Amigos, criei um folder com três opções e, na última uso um campo memo para lançamento de observações. Até ai blz, acontece que no formulário principal, criei um botão para fechar o DIALOG. O botão funciona normal na 1.ª e 2.ª aba, mas na aba onde está o "maledeto" memo, não funciona. Como resolver esta encrenca???

Amigos, criei um folder com três opções e, na última uso um campo memo para lançamento de observações. Até ai blz, acontece que no formulário principal, criei um botão para fechar o DIALOG. O botão funciona normal na 1.ª e 2.ª aba, mas na aba onde está o "maledeto" memo, não funciona. Como resolver esta encrenca???

Quem poderia me dizer qual a versão mais atualizada do fivewin disponível - free?

Quem poderia me dizer qual a versão mais atualizada do fivewin disponível - free?

citação:fácil, fácil... Antes de tudo, dê um nome diferente para cada objeto do SAY. Tipo: oSay1, oSay2... etc. faça assim: redefine say oSay1 var oDbf:CODIGO ID 4003 of oFld:aDialogs[3] color Azul_Escuro font oFont redefine say oSay2 var oDbf:NOMECOMPL ID 4005 of oFld:aDialogs[3] color Azul_Escuro font oFont redefine say oSay3 var alltrim(oDbf:ENDERECO_)+", n.º "+oDbf:NUMERO ID 4006 of oFld:aDialogs[3] Color Azul_Escuro font oFont id=code>id=code>blz... Agora vamos fazer com que o clique na terceira aba do folder atualize esses SAYs. Não ví no seu código qual é o objeto do folder, então vou usar como exemplo "oFolder". Logo após a declaração do folder coloque essa linha: oFolder:bChange := {|| if(oFolder:nOption = 3, Carga(), NIL) } id=code>id=code>Agora crie a função CARGA(), onde os SAYs serão atualizados: Function Carga() //------------------------------------------ Function Carga() oDbf:Load() oSay1:Refresh() oSay2:Refresh() oSay3:Refresh() Return NIL id=code>id=code>Taí... prontinho. Ricado Marques Araguari-MG id=quote>id=quote>Ricardo, valeu pela dica, vou fazer as alteraçoes e mando notícias. Um abraço Luiz Fernando

redefine listbox oLbx fields PACIENTE->CODIGO,PACIENTE->NOMECOMPL ,; PACIENTE->FONETRABA,PACIENTE->FONECASA_,; PACIENTE->FONECELU_ ; fieldsizes 56,360,112,112,112 ; headers "Cód nº","Identificação","Trabalho","Casa","Celular" update id 4001 of oFld:aDialogs[1] ; colors Branco, Branco ; on change ( oDbf:Load(), oFld:aDialogs[2]:UpDate(), oFld:aDialogs[2]:aControls[1]:Disable() ) /* ____ Atualização do listbox ________________________________________________________________________ */ oLbx:setfont(oFont) oLbx:cTooltip := "Selecione o paciente desejado" oLbx:nClrBackHead := Ciano_Escuro // Cor do fundo do cabeçalho oLbx:nClrForeHead := Branco // Cor do texto do cabeçalho oLbx:nClrText := Azul_Escuro // Cor do texto da tabela oLbx:nClrPane := Branco // Cor do fundo da tabela oLbx:nClrForeFocus:= Branco // Cor do texto da barra ativa oLbx:nClrBackFocus:= Ciano_Escuro // Cor do fundo barra ativa oLbx:lCellStyle := .F. // Habilita as colunas independentes /* ________ Aba - Dados do Cadastro _________________________ */ redefine get oDbf:CODIGO ID 4003 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro redefine get oDbf:NOMECOMPL ID 4004 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:ENDERECO_ ID 4007 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:NUMERO ID 4008 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:BAIRRO ID 4010 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font OFont redefine get oDbf:COMPLEMEN ID 4012 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:CEP ID 4016 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:CIDADE ID 4017 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:UF ID 4018 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:PROFISSAO ID 4025 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:LOCALTRAB ID 4026 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:FONETRABA ID 4027 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:FONECASA_ ID 4028 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:FONECELU_ ID 4029 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:E_MAIL ID 4031 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine say oSay prompt "Estado Civil?" id 4033 of oFld:aDialogs[2] color Azul_Claro font oFont redefine get oDbf:DATANASC_ ID 4038 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:CPF ID 4040 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:RG ID 4043 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:ORGAOESP ID 4044 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine say oSay prompt "Informações do Paciente:" id 4045 of oFld:aDialogs[2] color Azul_Claro font oFont redefine get oDbf:INDICAC_ ID 4057 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont /* ___________________________________ Aba - Complemento __________________ */ **** Aqui está o rolo todo **** redefine say oSay var oDbf:CODIGO ID 4003 of oFld:aDialogs[3] color Azul_Escuro font oFont redefine say oSay var oDbf:NOMECOMPL ID 4005 of oFld:aDialogs[3] color Azul_Escuro font oFont redefine say oSay var alltrim(oDbf:ENDERECO_)+", n.º "+oDbf:NUMERO ID 4006 of oFld:aDialogs[3] Color Azul_Escuro font oFont Obrigado. NANCOUTO - FWH 6.02 BCC HB 6.02 PELLEC WINDOWS 7

redefine listbox oLbx fields PACIENTE->CODIGO,PACIENTE->NOMECOMPL ,; PACIENTE->FONETRABA,PACIENTE->FONECASA_,; PACIENTE->FONECELU_ ; fieldsizes 56,360,112,112,112 ; headers "Cód nº","Identificação","Trabalho","Casa","Celular" update id 4001 of oFld:aDialogs[1] ; colors Branco, Branco ; on change ( oDbf:Load(), oFld:aDialogs[2]:UpDate(), oFld:aDialogs[2]:aControls[1]:Disable() ) /* ____ Atualização do listbox ________________________________________________________________________ */ oLbx:setfont(oFont) oLbx:cTooltip := "Selecione o paciente desejado" oLbx:nClrBackHead := Ciano_Escuro // Cor do fundo do cabeçalho oLbx:nClrForeHead := Branco // Cor do texto do cabeçalho oLbx:nClrText := Azul_Escuro // Cor do texto da tabela oLbx:nClrPane := Branco // Cor do fundo da tabela oLbx:nClrForeFocus:= Branco // Cor do texto da barra ativa oLbx:nClrBackFocus:= Ciano_Escuro // Cor do fundo barra ativa oLbx:lCellStyle := .F. // Habilita as colunas independentes /* ________ Aba - Dados do Cadastro _________________________ */ redefine get oDbf:CODIGO ID 4003 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro redefine get oDbf:NOMECOMPL ID 4004 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:ENDERECO_ ID 4007 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:NUMERO ID 4008 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:BAIRRO ID 4010 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font OFont redefine get oDbf:COMPLEMEN ID 4012 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:CEP ID 4016 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:CIDADE ID 4017 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:UF ID 4018 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:PROFISSAO ID 4025 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:LOCALTRAB ID 4026 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:FONETRABA ID 4027 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:FONECASA_ ID 4028 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:FONECELU_ ID 4029 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:E_MAIL ID 4031 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine say oSay prompt "Estado Civil?" id 4033 of oFld:aDialogs[2] color Azul_Claro font oFont redefine get oDbf:DATANASC_ ID 4038 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:CPF ID 4040 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:RG ID 4043 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine get oDbf:ORGAOESP ID 4044 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont redefine say oSay prompt "Informações do Paciente:" id 4045 of oFld:aDialogs[2] color Azul_Claro font oFont redefine get oDbf:INDICAC_ ID 4057 OF oFld:aDialogs[2] UpDate COLOR Azul_Escuro,Branco font oFont /* ___________________________________ Aba - Complemento __________________ */ **** Aqui está o rolo todo **** redefine say oSay var oDbf:CODIGO ID 4003 of oFld:aDialogs[3] color Azul_Escuro font oFont redefine say oSay var oDbf:NOMECOMPL ID 4005 of oFld:aDialogs[3] color Azul_Escuro font oFont redefine say oSay var alltrim(oDbf:ENDERECO_)+", n.º "+oDbf:NUMERO ID 4006 of oFld:aDialogs[3] Color Azul_Escuro font oFont Obrigado. NANCOUTO - FWH 6.02 BCC HB 6.02 PELLEC WINDOWS 7

Amigos, outra dúvida: Quando desabilito o get (DISABLE()), geralmente ele é apresentado em tom cinza; pois bem; como faço para desabilitá-lo deixando outra cor que não a que é apresentada? Obrigado. NANCOUTO - FWH 6.02 BCC PELLESC HB 6.02 WINDOWS 7