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