FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour TwBrowse X Font
ICO
Posts: 82
Joined: Fri Mar 13, 2009 06:51 PM
TwBrowse X Font
Posted: Tue May 24, 2011 02:29 PM
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 (fw): Select all Collapse
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 (fw): Select all Collapse
olbx:SetFont(oFont10)


e ambas dão o mesmo erro

Desde já obrigado..
Luiz Arruda [ ico.corumba@gmail.com ]
Corumba/MS - Brasil
FiveWin 9.04
[x]Harbour
xDev
WS
armando.lagunas
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: TwBrowse X Font
Posted: Tue May 24, 2011 04:41 PM
ico:

prueba con
Code (fw): Select all Collapse
Define Font oFont3 name "MS SANS SERIF" SIZE 0,-9


saludos.
SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
ICO
Posts: 82
Joined: Fri Mar 13, 2009 06:51 PM
Re: TwBrowse X Font
Posted: Tue May 24, 2011 05:42 PM
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 (fw): Select all Collapse
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..
Luiz Arruda [ ico.corumba@gmail.com ]
Corumba/MS - Brasil
FiveWin 9.04
[x]Harbour
xDev
WS
armando.lagunas
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: TwBrowse X Font
Posted: Wed May 25, 2011 08:03 PM

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.

:|

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
ICO
Posts: 82
Joined: Fri Mar 13, 2009 06:51 PM
Re: TwBrowse X Font
Posted: Thu May 26, 2011 07:55 PM
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 (fw): Select all Collapse
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..
Luiz Arruda [ ico.corumba@gmail.com ]
Corumba/MS - Brasil
FiveWin 9.04
[x]Harbour
xDev
WS
armando.lagunas
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: TwBrowse X Font
Posted: Fri May 27, 2011 01:34 PM

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

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
Willi Quintana
Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: TwBrowse X Font
Posted: Fri May 27, 2011 02:35 PM
Hola, yo lo hago asi y trabaja perfectamente ... :
Code (fw): Select all Collapse
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
Posts: 82
Joined: Fri Mar 13, 2009 06:51 PM
Re: TwBrowse X Font
Posted: Fri May 27, 2011 05:50 PM
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 (fw): Select all Collapse
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..
Luiz Arruda [ ico.corumba@gmail.com ]
Corumba/MS - Brasil
FiveWin 9.04
[x]Harbour
xDev
WS
ICO
Posts: 82
Joined: Fri Mar 13, 2009 06:51 PM
Re: TwBrowse X Font
Posted: Fri May 27, 2011 06:13 PM

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

Luiz Arruda [ ico.corumba@gmail.com ]
Corumba/MS - Brasil
FiveWin 9.04
[x]Harbour
xDev
WS

Continue the discussion

Static archive · New replies & topics via GitHub Discussions