FiveTech Software tech support forums

Posted: **Tue May 24, 2011 2: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: 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..

Posted: **Tue May 24, 2011 4:41 pm**

ico:

prueba con

Code: Select all Expand view: Define Font oFont3 name "MS SANS SERIF" SIZE 0,-9

saludos.

Posted: **Tue May 24, 2011 5: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: 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..

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

Posted: **Thu May 26, 2011 7: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: 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..

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

Posted: **Fri May 27, 2011 2:35 pm**

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

Posted: **Fri May 27, 2011 5: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: 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..

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

FiveTech Software tech support forums

TwBrowse X Font

TwBrowse X Font

Re: TwBrowse X Font

Re: TwBrowse X Font

Re: TwBrowse X Font

Re: TwBrowse X Font

Re: TwBrowse X Font

Re: TwBrowse X Font

Re: TwBrowse X Font

Re: TwBrowse X Font