TwBrowse X Font

[ICO]

Bom dia a Todos..
Estou tentando alterar o font na TwBrowse e está retornando este erro

Error description: Error BASE/1004 Class: 'NIL' has no exported method: EVAL
Args:
[ 1] = U
[ 2] = O TWBROWSE

O que poderia ser ?

Já tentei fazer Assim;

Code: Select all  Expand view

Define Font oFont3 name "MS SANS SERIF" SIZE 9,15  

Redefine ListBox olbx Fields Nomes->Nome,Nomes->Sigla ;
           Headers "Nome"+CRLF+"SOBRE","Sigla" ID 4002 Of oDlg  Font oFont3
 

e assim

Code: Select all  Expand view

olbx:SetFont(oFont10)

e ambas dão o mesmo erro

Desde já obrigado..

[armando.lagunas]

ico:

prueba con

Code: Select all  Expand view

Define Font oFont3 name "MS SANS SERIF" SIZE 0,-9
 

saludos.

[ICO]

Ola Armando, Obrigado por responder

Não funcionou.. o curioso é que só aceita 0,-9 até 0,-12... se tentar acima de 12 dá o mesmo erro

Mesmo Se ficar entre 0,-1 até 0,-12 não dá o erro mais não muda a fonte no Browse.. Veja o código

Code: Select all  Expand view

DEFINE BRUSH oBrush1 FILE "..\bitmaps\backgrnd\paper.bmp"

oFont3 := TFont():New( "MS SANS SERIF", 0,-9,,,,,,,,,,,,,,)     // OU 0,-12

Define Dialog oDlg Resource "#1001"  Title "..::Contabilidade"
 
  Redefine ListBox olbx Fields Nomes->Nome,Nomes->Sigla ;
           Headers "Nome","Sigla" ID 4002 Of oDlg

oLbx:SetFont(oFont3)  
oLbx:nClrPane      := { || IIF( ( oLbx:cAlias)->(OrdKeyno()) %2 == 1, nRGB(187,254,138),nRGB(226,255,196))}
oLbx:bLDblClick    := {|| oLbx:disable(), MsgStop("Selecione um Nome e Clique em OK","..::OpS!! algo errado"), oLbx:enable() }
 

Abraços..

[armando.lagunas]

ico

Eu testei o código, mas é engraçado não funciona com o "MS Sans Serif", eu mudar para "MS Sans Serif Normal" e se funcionou

na pasta Fontes no Painel de Controle, localize a fonte MS Sans Serif e não foi, mas se "MS Sans Serif Normal", eu uso o Windows 7.

teste com o nome completo da fonte que você está usando

Saudações.

[ICO]

Ola Armando..
Tentei com "ARIAL" SIZE 10,10 edeu certo, porém se eu mudar para SIZE 12,10, 12,12 ou qualquer uma que não seja 10,10 me retorna o erro;

Code: Select all  Expand view

Error description: Error BASE/1004  Class: 'NIL' has no exported method: EVAL
   Args:
     [   1] = U  
     [   2] = O   TWBROWSE

Creio que deve ter algun bug na definição do tamanho do Font.

Abraços..

[armando.lagunas]

Ico, Olá:
Eu desconsertado, eu mudo a medida, 0, -10 ... 10,10 ... 14,74 ...- 11, -11 etc ... e qualquer nome da fonte e se eu trabalhar corretamente, revi o código e não há nenhum problema de trabalhar para mim.

poderia colocar como compilar o programa para saber qual versão do xHarbour, e se você fizer Fivewin em BCC ou MS, Tami você pode ligar alguma biblioteca faltando.

Saudações

[Willi Quintana]

Hola, yo lo hago asi y trabaja perfectamente ... :

Code: Select all  Expand view

DEFINE FONT oFont1 NAME "Arial" BOLD SIZE 7,-12
DEFINE FONT oFont2 NAME "Arial" BOLD SIZE 7,-13
DEFINE CURSOR oCursor HAND
DEFINE DIALOG oDlg RESOURCE "AGRUPADOS" OF oWndA

       REDEFINE LISTBOX oLbxA ;
                FIELDS  MyCampo(oProduc, 3), ;
                        MyCampo(oProduc, 4), ;
                        STR(MyCampo(oProduc,22),12,2), ;
                        STR(MyCampo(oProduc,23),12,2)  ;
                HEADERS "Producto Agrupado", ;
                        "Unidad", ;
                        "Precio S/.", ;
                        "Precio U$."  ;
                ON CHANGE (oApp:cDatSeek:="" , ;             //UltReg(oProduc, oLbxA),
                           oLbxA:SetFocus(), ;
                           cCodigo := MyCampo(oProduc,"cod_producto"), ;
                           EVAL(eCompon), MySetBrowse(oLbxC, oCompon ), oLbxC:Refresh() ) ;
                COLOR CLR_BLACK, oApp:nRowNonClr ;
                FONT oFont1 ;
                SIZES 500, 65, 95, 95 ;
                ID 111 OF oDlg



 

[ICO]

Boa Tarde..

Pessoal, não deu certo..

tentei com a dica do Willi e mesmo assim não deu certo

Vejam como está o código.

Code: Select all  Expand view

DEFINE FONT oFont3 NAME "Arial" BOLD SIZE 7,-13

Define Dialog oDlg Resource "#1001"  Title "..::SEM SetFont"
 
  Redefine ListBox olbx Fields Nomes->Nome,Nomes->Sigla ;
           Headers "Nome","Sigla" ID 4002 Of oDlg Font oFont3

oLbx:nClrPane      := { || IIF( ( oLbx:cAlias)->(OrdKeyno()) %2 == 1, nRGB(187,254,138),nRGB(226,255,196))}
Olbx:Refresh()
 
Activate Dialog oDlg Centered ;
   ON PAINT GradioDlg( oDlg, 'ABERTURA DO SISTEMA', '',,'#8003' )  

Return(Nil)

O erro é mesmo

Error description: Error BASE/1004 Class: 'NIL' has no exported method: EVAL
Args:
[ 1] = U
[ 2] = O TWBROWSE

Já não sei mais o que fazer.. Eu poderia mudar para xBrowse mais prefiro saber o que está acontecendo pois vou usar o Twbrowse mais adiante..


Armando.. as minhas ferramentas estão no rodapé do meu perfil..
Uso PellesC para desenhar as minhas telas.

Abraços..

[ICO]

Pessoal.. consegui resolver trocando o controle do PellesC de ListBox para CUSTOM CONTROL
Mesmo assim não fica legal porque não tem as opções de border e Horz/Vert-Scrollbar