Page 1 of 1

TwBrowse X Font

Posted: Tue May 24, 2011 2:29 pm
by 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

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

olbx:SetFont(oFont10)
e ambas dão o mesmo erro

Desde já obrigado..

Re: TwBrowse X Font

Posted: Tue May 24, 2011 4:41 pm
by armando.lagunas
ico:

prueba con

Code: Select all

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

Re: TwBrowse X Font

Posted: Tue May 24, 2011 5:42 pm
by 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

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() }
 
Image


Abraços..

Re: TwBrowse X Font

Posted: Wed May 25, 2011 8:03 pm
by 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.

:|

Re: TwBrowse X Font

Posted: Thu May 26, 2011 7:55 pm
by 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

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..

Re: TwBrowse X Font

Posted: Fri May 27, 2011 1:34 pm
by 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

Re: TwBrowse X Font

Posted: Fri May 27, 2011 2:35 pm
by Willi Quintana
Hola, yo lo hago asi y trabaja perfectamente ... :

Code: Select all


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



 

Re: TwBrowse X Font

Posted: Fri May 27, 2011 5:50 pm
by 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


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..

Re: TwBrowse X Font

Posted: Fri May 27, 2011 6:13 pm
by 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