Não pega FONT nem a pau!

[Ladinilson]

Bom dia caros,

Alguém já teve este problema com BTNBMP que ja tentei de tudo e não pega o FONT nem com reza do Kapiaba para ver o Corinthians dele vencer!.

DEFINE FONT oFontBOLI  NAME "ARIAL ROUNDED MT BOLD" SIZE 0,-52 

OU

oFontBOLI := TFont():New( "ARIAL ROUNDED MT BOLD", 0, -52,, )

REDEFINE BTNBMP ButQST[nContST] ID nIDST OF oWnd FONT oFontBOLI FILE (fbitm)+"\BOLAQD.PNG" PROMPT ALLTRIM(STR(nContST,2)) ADJUST CENTER 
ButQST[nContST]:lTransparent := .t. 
ButQST[nContST]:lBoxSelect   := .f.
ButQST[nContST]:lMOver       := .f.
ButQST[nContST]:lRound       := .f.
ButQST[nContST]:lBtnDown     := .f.
ButQST[nContST]:lBorder      := .f.                   
ButQST[nContST]:lPressed     := .F.  

// --- OPÇÕES FEITAS E NENHUMA DERAM CERTO
   ButQST[nContST]:SETFONT(oFontBOLI)    
   ButQST[nContST]:oFont := oFontBOLI                        
   SET FONT OF ButQST[aNumeroST] TO oFontBOLI                        
   ButQST[nContST]:REFRESH()
   AEval( ButQST, { |oBtn| oBtn:oFontBold := oFontBOLI, oBtn:Refresh() } )
   AEval( ButQST, { |oBtn| oBtn:oFontBold := nil, oBtn:SetFont( oFontBOLI ), oBtn:Refresh() } )
   AEval( ButQST, { |oBtn| oBtn:SetFont( oFontBOLI), oBtn:Refresh() } )
//----------

ButQST[nContST]:SETCOLOR( NRGB(180,180,180) )         
ButQST[nContST]:REFRESH()                                          

Vi em outros tópicos que esse problema de Font se estende a muitos comandos.

 

 

 

[kapiaba]

Tirar a MAIOR SUPER POTÊNCIA DO FIVEWIN BRASIL, não é uma boa... kkkkkkkkkkkkkkkkkkkkkkkkkkkkk

Veja se é isso: 

https://imgur.com/t0VsJ9h

 

 

 

[kapiaba]

Ladinilson: Verifique se a FONTE está instalada na pasta: FONTES do Windows.

 

Download completo:

https://mega.nz/file/0JdikKhb#xyLex9_521pWMAvTJs3fDi-2l31-nn2g7qDhow53Vy8

 

Regards, saludos.

[Ladinilson]

Agora, kapiaba disse:

Ladinilson: Verifique se a FONTE está instalada na pasta: FONTES do Windows.

Sim estão instaladas tanto que nos "Says" estão corretos apenas no BTNBMP mesmo.

[kapiaba]

Com FWH19.05 funciona de boas FONT oFont em BTNBMP, veja no exemplo que postei. Compile ai. Modifique o CX.BAT y CX.LNK ou HB.BAT y HB.LNK se usas HARBOUR.

 

Regards, saludos.

[kapiaba]

Aqui, também tem exemplo de uso de BTNBMP:

 

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=24479&sid=ab86d181acc9af0c978f4e217eedba37

 

Regards, saludos.

[rochinha]

Amiguinhos,

Ladinilson o problema esta nos espaços no nome da fonte. Tente colocar o nome do arquivo fisico.

Ao acrescentar uma fonte no Windows não basta copiar para a pasta FONTS, você deve instalar pelo recurso próprio do Windows.

Entre na pasta Windows\fonts copie a fonte para dentro, mude o nome retirando espaços, dê botão direito sobre a mesma e escolha Instalar.

Após verifique no Word se a mesma aparece na lista de fontes e verifique se o seu aplicatio consegue encontrá-la.

[Ladinilson]

8 horas atrás, rochinha disse:

Amiguinhos,

Ladinilson o problema esta nos espaços no nome da fonte. Tente colocar o nome do arquivo fisico.

Ao acrescentar uma fonte no Windows não basta copiar para a pasta FONTS, você deve instalar pelo recurso próprio do Windows.

Entre na pasta Windows\fonts copie a fonte para dentro, mude o nome retirando espaços, dê botão direito sobre a mesma e escolha Instalar.

Após verifique no Word se a mesma aparece na lista de fontes e verifique se o seu aplicatio consegue encontrá-la.

Tenho esse conhecimentro amigo, é que em determinado momento quase TODOS aqui já tiveram algum problema com fonts e é comum na linguagem.
Estou tentando outras alternativas para contornar esse problema.

Obrigado