FiveTech Software tech support forums

Hola A todos

estoy teniendo problemas con los font con la version 15.02 build 2

en la clase taskpanel de andres con un xbrowse

font correcto
http://s2.subirimagenes.com/otros/previo/thump_9328296img1.jpg

font incorrecto
http://s2.subirimagenes.com/otros/previo/thump ...

... cannot follow the iterations and while it is writting buffers on the disk, the next index command started with another commit()...


Besides, I fon't get it why this code should exist at the first place???
Maybe I am missing something but indexing the same database 100 times in a loop is not ...

Estimado D. Manuel

No es problema del fon a usar, de hecho he usado COURIER, 8 y MS SAN SERIF 8 y el texto entra en la ventana. Es decir los cien caracteres entran perfectamente. Lo que yo quiero es que no entren más y pase a la línea siguiente, igual que cuando escribimos aquí, en el cuadro de ...

Armando, la MS Sans Serif suele ser tipo FON, intentalo con la Times New Roman que es muy similar y es Open Type o True Type (mas o menos lo mismo).

En cuanto al Anti-Aliasing, está en la configuración de la tarjeta gráfica. Pincha en el escritorio con el botón derecho del ratón, Propiedades ...

A ver que font utilizas, los TrueType son dibujos vectoriales y no se pixelan por muy grandes que los dibujes (extencion .ttf) los que si se pixelan son los de extension .fon que son mapas de bits.

Si los TTF's los vez a escalones puede que sea por culpa de la resolucion de tu pantalla o el ajuste ...

... Tone(3000,1);Tone(4000,1);Tone(5000,1)
MsgInfo("Error ESTE SISTEMA ES UNA COPIA")
Return (.F.)
Endif
Go top
if eof().or.(Memvar->c_empre)->Fon_emp=spac(30)
MsgStop(" NO EXISTE DATOS DEFINIDOS, POSIBLE COPIA ")
close all
Return .f.
Endif
cEncriptado := Cript((nSerie),(Memvar->var_enc ...

... column, the highlight bar does not extend into it. ( Some browses don't quite fill the dialog box ... no need to ... )

4) I'll have to look at the fonts. I noticed that fon'ts are fixed at a different value then we were using here.

5) The source code in 3 files had a hard coded include path. Just ...

Gabo,

Tienes que llamar a AddFontResource( cFontFileName ), luego la defines normalmente:

AddFontResource( "MiFuente.fnt" ) // ó .fon, etc.
DEFINE FONT oFont NAME "..." SIZE 0, -...

Para más información de AddFontResource():
http://msdn2.microsoft.com/en-us/library/ms534231(VS.85).aspx

... es limpiar las variables

stor spac(3) to cod_ven1
stor spac(40) to nom_ven1
stor spac(40) to dir_ven1,email1
stor spac(20) to com_ven1,ciu_ven1,fon_ven1
stor spac(25) to cel_ven1

Luego actualizas el dialogo..

oDlgEdit :update()

2-> Otra duda, que es mas aconsejable, trabajar con una DLL ...

... es limpiar las variables

stor spac(3) to cod_ven1
stor spac(40) to nom_ven1
stor spac(40) to dir_ven1,email1
stor spac(20) to com_ven1,ciu_ven1,fon_ven1
stor spac(25) to cel_ven1

Luego actualizas el dialogo..

oDlgEdit :update()

2-> Otra duda, que es mas aconsejable, trabajar con una DLL ...

... tu ayuda, muchas gracias.

Miguel Rivera.

TROZO DEL PRG
Function Actuven1(lPara)
Local oCod_ven1,onom_ven1,odir_ven1,oemail1,ocom_ven1,ociu_ven1,ofon_ven1,ocel_ven1
Local oDlgEdit
If (lPara)
stor spac(3) to cod_ven1
stor spac(40) to nom_ven1
stor spac(40) to dir_ven1,email1
stor spac(20) to ...

... ayuda, muchas gracias.

Miguel Rivera.

TROZO DEL PRG
Function Actuven1(lPara)
Local oCod_ven1,onom_ven1,odir_ven1,oemail1,ocom_ven1,ociu_ven1,ofon_ven1,ocel_ven1
Local oDlgEdit
If (lPara)
stor spac(3) to cod_ven1
stor spac(40) to nom_ven1
stor spac(40) to dir_ven1,email1
stor spac(20) to ...

... tu ayuda, muchas gracias.

Miguel Rivera.

TROZO DEL PRG
Function Actuven1(lPara)
Local oCod_ven1,onom_ven1,odir_ven1,oemail1,ocom_ven1,ociu_ven1,ofon_ven1,ocel_ven1
Local oDlgEdit
If (lPara)
stor spac(3) to cod_ven1
stor spac(40) to nom_ven1
stor spac(40) to dir_ven1,email1
stor spac(20) to ...

Interesante/Interesting

FON es la mayor Comunidad WiFi del mundo, abierta a todo el que quiera unirse a nosotros y conectarse gratis a Internet sin cables en cualquier rincón del mundo.

Todo comenzó con una idea simple: disfrutar de tecnología WiFi en todas partes a través de la infraestructura WiFi ...

... MyAplic.Prg
*..........
#Include "FiveWin.Ch"
*...........
Static oWndMain
*...........
Function MainAplic()
Local bTnCli,bTnalm,bTnPob,oFont
DEFINE DIALOG oWndMain RESOURCE 'Principal' FON oFont

REDEFINE BUTTON BtnCli ID 201 OF oWndMain FONT oFont ;
ACTION (ConsultaCli(oWndMain ...