evertonlb Posted June 12, 2012 Report Share Posted June 12, 2012 Boa noite amigos, estou dando uma arrumada num software e estou colocando alguns botoes novos, como quero manter um padrão resolvi definir uma fonte no Form principal e sempre usar a mesma fonte. Fiz da seguinte maneira Public oFont30 define Font oFont30 ....... o que acontece é que na primeira vez que entro em algum form ele mostra a fonte correta nos botoes, mas assim que eu fechar e abrir de novo ela é alterada pra um outro tamanho e com Bold.. o que será que to fazendo? Ja verifiquei e nao tenho outra definição dela.. somente no form principal mesmo! Obrigado Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Editado por - evertonlb on 13/06/2012 16:21:41 Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 12, 2012 Author Report Share Posted June 12, 2012 Boa noite amigos, estou dando uma arrumada num software e estou colocando alguns botoes novos, como quero manter um padrão resolvi definir uma fonte no Form principal e sempre usar a mesma fonte. Fiz da seguinte maneira Public oFont30 define Font oFont30 ....... o que acontece é que na primeira vez que entro em algum form ele mostra a fonte correta nos botoes, mas assim que eu fechar e abrir de novo ela é alterada pra um outro tamanho e com Bold.. o que será que to fazendo? Ja verifiquei e nao tenho outra definição dela.. somente no form principal mesmo! Obrigado Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Editado por - evertonlb on 13/06/2012 16:21:41 Quote Link to comment Share on other sites More sharing options...
Geo_sts Posted June 12, 2012 Report Share Posted June 12, 2012 sera que não tem uma perdida em algum outro PRG? faz uma busca em todos os prg! Geovanni Holior Analista de Sistema Clip55 * FHW 11 /xHarbour /MySql/ (sql)/Minigui skype:geovanni.holior www.tecnologeo.com.br " Tudu Posso naquele que me Fortalece!" Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 12, 2012 Author Report Share Posted June 12, 2012 Nao tenho... ja verifiquei 2 vezes em todos os prg's... na reliadade defini como oFont30, ja para nao ter outra, ja troquei para oFnt30, e mesmo assim na primeira vez que abro um Form ta certo, mas assim que fecho, ja era.. Volta para BOLD Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Quote Link to comment Share on other sites More sharing options...
Geo_sts Posted June 12, 2012 Report Share Posted June 12, 2012 estranho em!! vc usa XDEV ? tem msn ou skype?? Geovanni Holior Analista de Sistema Clip55 * FHW 11 /xHarbour /MySql/ (sql)/Minigui skype:geovanni.holior www.tecnologeo.com.br " Tudu Posso naquele que me Fortalece!" Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 12, 2012 Author Report Share Posted June 12, 2012 Mas poe estranho cara... Sim uso a xDev tenho MSN brother, everton_battiston@hotmail.com Adiciona ai! Mas já dei um jeito... coloquei a definição em todos os PRG's, que graças a DEUS não são muitos... Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Quote Link to comment Share on other sites More sharing options...
Theotokos Posted June 13, 2012 Report Share Posted June 13, 2012 troca o nome da fonte oFont30 para uma outra bem diferente e faz o teste... Quote Link to comment Share on other sites More sharing options...
betovsp Posted June 13, 2012 Report Share Posted June 13, 2012 Olá, tbm tive esse problema e a solução que eu encontrei foi definir e finalizar a fonte para cada prg, assim não tive mais esse problema. Beto FWH 9.08+xHarbour 1.2.1+Mymake+@Say Quote Link to comment Share on other sites More sharing options...
gibaf Posted June 13, 2012 Report Share Posted June 13, 2012 ola... eu tambem AINDA tenho esse problema att Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 13, 2012 Report Share Posted June 13, 2012 citação:ola... eu tambem AINDA tenho esse problema att Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) id=quote>id=quote>Não use fontes PUBLICAS, use sempre no LOCAL e feche-as ao sair do modulo. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 13, 2012 Author Report Share Posted June 13, 2012 citação:troca o nome da fonte oFont30 para uma outra bem diferente e faz o teste... id=quote>id=quote>ja fiz isso.. infelizmente continuou dando pau! Obrigado Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Quote Link to comment Share on other sites More sharing options...
evertonlb Posted June 13, 2012 Author Report Share Posted June 13, 2012 citação: citação:ola... eu tambem AINDA tenho esse problema att Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) id=quote>id=quote>Não use fontes PUBLICAS, use sempre no LOCAL e feche-as ao sair do modulo. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>To fazendo isso mesmo Kapiaba.. desta maneira ta certo! Obrigado! Everton - Chapecó-SC XHB9971/FW612/MyMake/xDev/VRMM-Union/XP/@Say/JESUS/ESPOSA/3FILHOS Quote Link to comment Share on other sites More sharing options...
Erciley Junior Posted June 13, 2012 Report Share Posted June 13, 2012 Olá, tivemos este problema, que acontecia as vezes apenas... pelo que lembro, descobrimos que uma função do FiveWin como o StrCapFirst, UPPERFIRST (tratamento de String), algo do gênero causava isso.. não tenho certeza, mas na minha memória era algo assim ^^ Erciley Junior (FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY) NÃO ABANDONE O POST, QUEREMOS SABER SE SUA DÚVIDA/PROBLEMA TEVE SOLUÇÃO Quote Link to comment Share on other sites More sharing options...
aferra Posted June 13, 2012 Report Share Posted June 13, 2012 Olá boa tarde. Eu uso como objeto e nunca mais tive que ficar criando em todos os prg´s. Exemplo: Function Main() PRIVATE oFntSis oFntSis := CarregaFonte():New() DEFINE WINDOWS .... ... ... ACTIVE WINDOWS oFntSis:End() RETURN ********************************* CLASS CarregaFonte DATA oFnt10 DATA oFnt12 DATA oFNt30 METHOD New() METHOD End() ENDCLASS METHOD New() CLASS CarregaFonte DEFINE FONT ::oFnt10 NAME "Tahoma" SIZE 0,-10 DEFINE FONT ::oFnt12 NAME "Tahoma" SIZE 0,-12 DEFINE FONT ::oFnt30 NAME "Tahoma" SIZE 0,-30 BOLD RETURN Self METHOD End() CLASS CarregaFonte ::oFnt10:End() ::oFnt12:End() ::oFnt30:End() RETURN Self ********************************* em outro PRG FUNCTION MeuProduto() DEFINE DIALOG @ 10,10 SAY "Testes" SIZE 30,6 FONT oFntSis:oFnt10 OF oDlg ACTIVE DIALOG RETURN Um grande Abraço Alessandroid=blue> FW9.07 + xHb121 + CDX Fico feliz com os Meus erros, pois eles me apontam a direção para o acerto.id=red> Quote Link to comment Share on other sites More sharing options...
gibaf Posted June 13, 2012 Report Share Posted June 13, 2012 citação: citação:ola... eu tambem AINDA tenho esse problema att Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) id=quote>id=quote>Não use fontes PUBLICAS, use sempre no LOCAL e feche-as ao sair do modulo. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>nao estou usando PUBLICs, nao... no main() estou definindo como PRIVATE. pode ter alguma influencia por isso ? att obrigado Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted June 13, 2012 Report Share Posted June 13, 2012 citação: citação: citação:ola... eu tambem AINDA tenho esse problema att Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) id=quote>id=quote>Não use fontes PUBLICAS, use sempre no LOCAL e feche-as ao sair do modulo. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe id=quote>id=quote>nao estou usando PUBLICs, nao... no main() estou definindo como PRIVATE. pode ter alguma influencia por isso ? att obrigado Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour xBuild+Fivewin 2.7+PellesC+(Postgres+DB2) id=quote>id=quote>USE LOCAL e feche na saida do programa principal. idem nos módulos. João Santos - São Paulo. joao@pleno.com.br Fone: (11) 3106-2832 / 5150-7341 - TIM https://www.facebook.com/kapiaba FWH 2.7 - xHARBOUR WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
aferra Posted June 13, 2012 Report Share Posted June 13, 2012 ou tente da forma como passei. Um grande Abraço Alessandroid=blue> FW9.07 + xHb121 + CDX Fico feliz com os Meus erros, pois eles me apontam a direção para o acerto.id=red> Quote Link to comment Share on other sites More sharing options...
leo@lhsistemas.com Posted March 6, 2014 Report Share Posted March 6, 2014 Tenho percebido que isto sempre tem acontecido com o uso do xDevStudio e PellesC. Já procurei a fonte "MS SANS SERIF" em PC Windows 32 e no Windows 64 também, e ambas existem nas duas versões do Windows. O que devo fazer, pois, em nenhum código defino a fonte, isto vem por padrão do PellesC ao criar as telas. Ajudem-me por favor. Quote Link to comment Share on other sites More sharing options...
leo@lhsistemas.com Posted March 13, 2014 Report Share Posted March 13, 2014 Alguém pode me ajudar nisto. Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted March 13, 2014 Report Share Posted March 13, 2014 Quando passeii de @say para .RES (PellesC) passei por isto. Hoje é padrão meu, pode estar errado ou ser redundante. No pelles defino a fonte como arial 8 para dialogs. no .prg após definir a dialog oDlg:SetFont(sua_font) e oDlg:SetColor(cor_letra,cor_fundo) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 13, 2014 Report Share Posted March 13, 2014 // Saving and restoring a font. By Enrico Maria Giordano #include "Fivewin.ch" FUNCTION MAIN() LOCAL oWnd LOCAL cVar := "This is a test" LOCAL aFont := SELECTFONT( oWnd ) LOCAL aSaved IF EMPTY( aFont ); RETURN NIL; ENDIF DEFINE WINDOW oWnd @ 1, 1 SAY "This is a test"; COLOR CLR_BLACK @ 3, 1 GET cVar; SIZE 100, 20 @ 5, 1 BUTTON "Choose font"; SIZE 100, 20; ACTION aFont := SELECTFONT( oWnd ) @ 7, 1 BUTTON "Save font"; SIZE 100, 20; ACTION aSaved := aFont @ 9, 1 BUTTON "Restore font"; SIZE 100, 20; ACTION RESTOREFONT( oWnd, aSaved ) ACTIVATE WINDOW oWnd RETURN NIL #define FW_NORMAL 400 STATIC FUNCTION SELECTFONT( oWnd ) LOCAL aFont := CHOOSEFONT() LOCAL oFont := BUILDFONT( aFont ) IF oFont = NIL; RETURN NIL; ENDIF IF oWnd != NIL; REFRESHWND( oWnd, oFont ); ENDIF RETURN aFont STATIC FUNCTION RESTOREFONT( oWnd, aFont ) LOCAL oFont := BUILDFONT( aFont ) IF oFont = NIL; RETURN NIL; ENDIF REFRESHWND( oWnd, oFont ) RETURN NIL STATIC FUNCTION BUILDFONT( aFont ) IF EMPTY( aFont[ LF_FACENAME ] ) RETURN NIL ENDIF RETURN TFont():New( aFont[ LF_FACENAME ],; ,; aFont[ LF_HEIGHT ],; .f.,; !( aFont[ LF_WEIGHT ] == FW_NORMAL ),; aFont[ LF_ESCAPEMENT ],; aFont[ LF_ORIENTATION ],; aFont[ LF_WEIGHT ],; aFont[ LF_ITALIC ],; aFont[ LF_UNDERLINE ],; aFont[ LF_STRIKEOUT ],; aFont[ LF_CHARSET ],; aFont[ LF_OUTPRECISION ],; aFont[ LF_CLIPPRECISION ],; aFont[ LF_QUALITY ],; ,; aFont[ LF_PITCHANDFAMILY ] ) STATIC FUNCTION REFRESHWND( oWnd, oFont ) LOCAL i oWnd:SetFont( oFont ) FOR i = 1 TO LEN( oWnd:aControls ) oWnd:aControls[ i ]:SetFont( oFont ) oWnd:aControls[ i ]:Refresh() NEXT RETURN NIL Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 13, 2014 Report Share Posted March 13, 2014 Local i Define Dialog... FOR i = 1 TO LEN( oDlg:aControls ) oDlg:aControls[ i ]:SetFont( oFont ) oDlg:aControls[ i ]:Refresh() NEXT Activate Dialog... Quote Link to comment Share on other sites More sharing options...
kapiaba Posted March 13, 2014 Report Share Posted March 13, 2014 Function Main() PRIVATE oFntSis oFntSis := CarregaFonte():New() DEFINE WINDOWS .... ... ... ACTIVE WINDOWS oFntSis:End() RETURN ********************************* CLASS CarregaFonte DATA oFnt10 DATA oFnt12 DATA oFNt30 METHOD New() METHOD End() ENDCLASS METHOD New() CLASS CarregaFonte DEFINE FONT ::oFnt10 NAME "Tahoma" SIZE 0,-10 DEFINE FONT ::oFnt12 NAME "Tahoma" SIZE 0,-12 DEFINE FONT ::oFnt30 NAME "Tahoma" SIZE 0,-30 BOLD RETURN Self METHOD End() CLASS CarregaFonte ::oFnt10:End() ::oFnt12:End() ::oFnt30:End() RETURN Self ********************************* em outro PRG FUNCTION MeuProduto() DEFINE DIALOG @ 10,10 SAY "Testes" SIZE 30,6 FONT oFntSis:oFnt10 OF oDlg ACTIVE DIALOG RETURN Quote Link to comment Share on other sites More sharing options...
leo@lhsistemas.com Posted August 18, 2014 Report Share Posted August 18, 2014 Boa tarde. Percebi que meu sistema quando roda em x64. Ao abrir a janela tudo funciona normal, se abrir um BROWSE(usando a LISTBOX), quando saio deste browse as fontes do sistema ficam em NEGRITO e de TAMANHO MAIOR, o que pode ser. OBS: Não defino fonte em nenhum lugar do sistema, já uso a padrão do PELLESC. Abraços a todos. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 18, 2014 Report Share Posted August 18, 2014 http://fivewin.com.br/index.php?/topic/20196-perdendo-a-fonte-funcionando/ Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.