FLAVIOF2

Ai está: FUNCTION CHKRESOLUTION() LOCAL ARES aRes:=ScrResolution() IF ARES[1]<800 MsgInfo('Detectado que este ambiente está configurado '+; 'para ser executado com resolução de tela igual a 640x480, '+CHR(13)+; 'RECOMENDA-SE AJUSTAR SEU VÃDEO A UMA RESOLUÇÃO MAIOR.','PRECAUÇÃO!') ENDIF RETURN NIL FLAVIO SANTOS ITUIUTABA - MG F2INFO@MGT.COM.BR

Esse fica com DEUS do Gilson me tocou pra caramba. Voces sempre ficam desejando muitas brejas e mulatas e o cara todo religioso. Acho que ele deve ser algum padre, PASTOR ou qualquer tipo bem religioso. Sigam o exemplo deles seus BREJEIROS. Eu aqui vou.... tomando umas e tentando mudar........ perai que eu to solusssssaaaando. Acho que engasguei com o amendoim.. Abraços, FLAVIO

Kapiaba, Só posso pensar que é no meu micro pois até o seu exemplo abaixo dá o erro no tsbutton. http://www.fivewin.com.br/exibedicas.asp?id=483 Vou copiar pra outro micro e depois te aviso. Aquele negocio do ON PAINT TSLines():New( 17, 0, 500,, "HLINE", oWnd, ; CLR_WHITE, CLR_GRAY ) TRAVOU MEIO MUNDO. BOA NOITE A TODOS, BOM FINAL DE SEMANA E MUITAS "BREJAS" COM DIZ VAGNER THE BEST. FLAVIO SANTOS

Segue o fonte: bTColor:= {|oBtn| if(oBtn:lMouseOver, nCLR1, nCLR2) } bBColor:= {|oBtn| If(oBtn:lMouseOver, { nCLR4,nCLR3 },{nCLR3,nCLR4,3 }) } REDEFINE SBUTTON ID 200 RESOURCE "B_OK1","B_OK2","B_OK1","B_OK2" OF oDlg PROMPT ID_CON ; ACTION ( obotao := .T., oDlg:End() ); COLOR btcolor,bbcolor REDEFINE SBUTTON ID 300 RESOURCE "B_CAN1","B_CAN2","B_CAN1","B_CAN2" OF oDlg PROMPT ID_CAN ; ACTION ( obotao:=.f.,odlg:end()); COLOR btcolor,bbcolor FLAVIO SANTOS

Meu problema com a tsbutton continua. Toda vez que entro na dialog e uso o tab o titulo das danadas ficam em dois planos. Posteio no news com as imagens anexadas. Se alguem ai puder dar uma olhada fico feliz. Obrigado mais uma vez. FLAVIO SANTOS ITUIUTABA - MG

Mas foi por bem pouco. Flávio Santos

Kleyton o kapiaba vai ter um treco quando ver os @. Parece que também não se dá muito bem com elas. Brincadeira. FLAVIO

Faça assim: oLbx:bKeyDown := {|nKey | if(nKey=13, suafuncao()) } Abraços. FLAVIOS SANTOS ITUIUTABA - MG

Pessoal, No exemplo abaixo, sendo: aShadowType := {"Sombra","RoundRect","Box"} REDEFINE COMBOBOX cTitleShadow ITEMS aShadowType ID 118 OF oDlg UPDATE Como saber qual a posição numerica escolhida ao inves do texto. FLAVIO SANTOS

Nem a nova lib deu jeito. Tai o fonte: #include "Fivewin.ch" #include "TSBUTTON.ch" #include "report.ch" #include "vget.ch" #include "f2info.ch" FUNCTION RELREC() Local oDlg, oBotao:=.F., cOpcao, oCombo, oOrder:=1 Local cdatai :=ctod(" ") Local cdataf :=ctod(" ") Local cNomEmp :=space(35) Local cCodEmp :=space(3) Local cSituacao:=space(2) IF .NOT. Use_Arq("RECEBER",.T.,.T.) RETURN nil ENDIF DATABASE oReceber IF !FILE("RECEBTMP.DBF") COPY STRUC TO RECEBTMP.DBF ENDIF USE RECEBTMP.DBF EXCLUSIVE NEW VIA "DBFCDX" ALIAS RECEBTMP DATABASE oRectmp ZAP IF FILE("RECEBTMP.CDX") DELE FILE RECEBTMP.CDX ENDIF DEFINE DIALOG oDlg RESOURCE "RELCONTAS" TITLE "RELATÓRIO CONTAS A RECEBER" REDEFINE COMBOBOX oCombo VAR oOrder ITEMS; {"Data Emissão","Data Vencimento","Data Pagamento"} ID 101 OF oDlg REDEFINE VGET oDatai var cDatai ID 115 OF oDlg COLOR cCorGet CALENDARIO REDEFINE VGET oDataf var cDataf ID 116 OF oDlg COLOR cCorGet CALENDARIO REDEFINE VGET oCodEmp var cCodEmp ID 117 OF oDlg COLOR cCorGet REDEFINE VGET oNomEmp var cNomEmp ID 118 OF oDlg READONLY COLOR cCorGet REDEFINE VGET oSituacao var cSituacao ID 119 OF oDlg COLOR cCorGet REDEFINE SBUTTON OBTN1 ID 301 RESOURCE "B_OK1","B_OK2","B_OK1","B_OK2" OF oDlg PROMPT ID_CON; CANCEL ACTION (IMPREC(oOrder,cdatai,cdataf,csituacao,cCodemp),oDlg:end()) ; COLOR btcolor,bbcolor REDEFINE SBUTTON OBTN2 ID 302 RESOURCE "B_CAN1","B_CAN2","B_CAN1","B_CAN2" OF oDlg PROMPT ID_CAN; ACTION (odlg:end()) ; COLOR btcolor,bbcolor ACTIVATE DIALOG oDlg CENTERED oReceber:close() oRectmp:close() return nil

Evandro, veja a resposta do GMAIL. 2. Como me inscrevo? Quando posso obter uma conta do Gmail? No momento estamos oferecendo o Gmail como parte de uma versão beta/teste restrito. Não sabemos detalhes sobre a data em que o Gmail estará totalmente à disposição, porque isso depende em parte dos resultados do teste.

Complementando: O erro também acontece no exemplo enviado pelo Kapiaba. http://www.fivewin.com.br/exibedicas.asp?id=483 Ate mais. FLAVIO SANTOS ITUIUTABA - MG

Turma, Minha tsbutton esta borrando quando uso o tab na dialog. Alguem sabe o porque disso ? FLAVIO SANTOS ITUIUTABA - MG

Gilmer e outros, O EasyReport Funciona com five / clipper ? FLAVIO SANTOS

Pessoal, estou fazendo uma rotina pra mudar as cores do say. Mas ao alterar a cor o sistema nao faz refresh() enquanto nao saio do modulo e volto nele. nCorsay:=RGB(125,8,12) // INICIAL .. .. REDEFINE SAY oSay var cText ID 501 OF oDlg Font oFonte; UPDATE COLOR nCorsay FUNCTION MUDACOR(osay) nCorsay:= NOVACOR oSay:setcolor(nCorsay) osay:refresh() Alguma sugestão ?? FLAVIO

RESOLVIDO.

Pessoal, usando o exemplo do Kapiaba sobre tsbutton com recursos, o problema acima foi resolvido. Agora a duvida é a seguinte: Como faço para colocar as cores abaixo em uma variavel para nao ter que ficar colocando o codigo em todos os botoes ? REDEFINE SBUTTON oBtnCon ID 400 RESOURCE "B_OK","B_OK","B_OK" PROMPT "&Continuar" ; OF oDlg ACTION(oBotao:=.T.,ODLG:END()) ; COLORS {|oBtn| If(oBtn:lActive,; If( oBtn:lMouseOver, CLR_HBLUE, CLR_BLACK),; CLR_BLACK ) },; |oBtn| If( oBtn:lActive, {CLR_YELLOW,CLR_BLUE, .T. }, ; CLR_GRAY ) } FLAVIO SANTOS

Pessoal, Na sbutton, quando uso sem COLORS, o botao fica transparente quando esta desativado com disable() ou When. Mas se coloco cores para dar uma incrementada, quando desabilito o botao ele fica horroroso, ilegivel. Alguem ja passou por isso. Obrigao. FLAVIO

Kapiaba, recebi o email. Vou testar e te falo amanhã. Por agora muito obrigado por tudo. Precisando de qualquer coisa disponha. Duvidas: Pra que serve o CDXLOCK e o DR_FOCUS ? Abraços FLAIVO

seu bmp deve estar dentro da dll ou do rc. Aqui funciona perfeitamente. FLAVIO

Faça assim: Abra o arquivo e utilize a opção Salvar como, mude para dll e de um nome pra mesma. Abracos, FLAVIO

Kapiaba, mais um ponto que descobri aqui. Se tiro a LIB e voltou o sistema para usar dll externa ao inves de rc funciona normalmente, sem as telas ficarem pequenas. FLAVIO

ACRESCENTE A OPÇÃO RESOURCE MENUITEM "&LANCAMENTOS" MENU MENUITEM " &Feliz" RESOURCE "SEUBMP" MENUITEM " &Muito Feliz" RESOURCE "SEUBMP" FLAVIO

Kapiaba, mandei tudo pra sua conta. Valeu. FLAVIO

Local nTipo:={"P","R"} .. .. REDEFINE COMBOBOX oCombo var objeto:seucampo ITEMS nTipo; ID 12 OF oDlg Na pasta fw..\samples tem varios exemplos. FLAVIO