PC Toledo

Enviado: **17 Jun 2005 22:32**

Amigos,

Peguei a função EXPAND no site do Toledo e a utilizo sem problemas. Ocorre que quando uso esta função em um sistema que também utilizo a Visual Lib, as letras saem todas deformadas, sem o preenchimento correto. Como faço pra resolver este problema?

Segue função na íntegra:

Código: Selecionar todos

FUNCTION EXPAND(texto,lin,col,tipo)
LOCAL lin1:=lin2:=lin3:=lin4:=lin5:=lin6:="",L[26,6],;
      abc:="ABCDEFGHIJKLMNOPQRSTUVXYWZ ",letra,posi

texto = ALLTRIM(texto)
IF LEN(texto) >9
    ALERT("Aten‡„o!! At‚ 9 caracteres s„o permitidos")
    RETURN(.F.)
ENDIF
FOR i=1 TO LEN(texto)
    IF !(UPPER(SUBSTR(texto,i,1))$abc)
        ALERT("Aten‡„o!! Apenas letras s„o permitidas")
        RETURN(.F.)
    ENDIF
NEXT
lin  = IF( VALTYPE(lin) = "U",9,lin)
col  = IF( VALTYPE(col) = "U",(80-(LEN(texto)*8))/2,col)
tipo = IF( VALTYPE(tipo) = "U",2,tipo)
IF tipo > 4
    tipo=2
ENDIF
IF lin > 18
    ALERT("Aten‡„o!! A linha tem que ser menor que 18")
    RETURN(.F.)
ENDIF
IF (col+(LEN(texto)*8)) > 78
    col=(80-(LEN(texto)*8))/2
ENDIF                 
L[1,1]="ÛÛÛÛÛÛÄ¿ÛÛÛÛÛÛ± ÚÄÄÄÄÄÄ¿°°°°°°°»"
L[1,2]="ÛÛ ÚÛÛ ³ÛÛ± ÛÛ± ³ ÚÄ¿  ³°°ÉÍÍ°°º"
L[1,3]="ÛÛÛÛÛÛ ³ÛÛÛÛÛÛ± ³ ÀÄÙ  ³°°°°°°°º"
L[1,4]="ÛÛ ÚÛÛ ³ÛÛ± ÛÛ± ³ ÚÄ¿  ³°°ÉÍÍ°°º"
L[1,5]="ÛÛ ³ÛÛ ³ÛÛ± ÛÛ± ³ ³ ³  ³°°º  °°º"
L[1,6]=" ÀÄÙ ÀÄÙ        ÀÄÙ ÀÄÄÙÈÍ¼  ÈÍ¼"

L[2,1]="ÛÛÛÛÛÛÄ¿ÛÛÛÛÛÛ± ÚÄÄÄÄÄÄ¿°°°°°°°»"
L[2,2]="ÛÛ ÚÛÛ ³ÛÛ± ÛÛ± ³ ÚÄ¿  ³°°ÉÍÍ°°º"
L[2,3]="ÛÛÛÛÛÛ ³ÛÛÛÛÛÛ± ³ ÀÄÙ  ³°°°°°°°º"
L[2,4]="ÛÛ ÚÛÛ ³ÛÛ± ÛÛ± ³ ÚÄ¿  ³°°ÉÍÍ°°º"
L[2,5]="ÛÛÛÛÛÛ ³ÛÛÛÛÛÛ± ³ ÀÄÙ  ³°°°°°°°º"
L[2,6]=" ÀÄÄÄÄÄÙ        ÀÄÄÄÄÄÄÙ ÈÍÍÍÍÍ¼"
                                    
L[3,1]="ÛÛÛÛÛÛÄ¿ÛÛÛÛÛÛ± ÚÄÄÄÄÄÄ¿°°°°°°°»"
L[3,2]="ÛÛ ÚÄÄÄÙÛÛ±     ³ ÚÄÄÄÄÙ°°ÉÍÍÍÍ¼"                
L[3,3]="ÛÛ ³    ÛÛ±     ³ ³     °°º     "                 
L[3,4]="ÛÛ ³    ÛÛ±     ³ ³     °°º     "                
L[3,5]="ÛÛÛÛÛÛÄ¿ÛÛÛÛÛÛ± ³ ÀÄÄÄÄ¿°°°°°°°»"               
L[3,6]=" ÀÄÄÄÄÄÙ        ÀÄÄÄÄÄÄÙÈÍÍÍÍÍÍ¼"

L[4,1]="ÛÛÛÛÛÜÄ¿ÛÛÛÛÛÜ  ÚÄÄÄÄÄ¿ °°°°°°Í»"
L[4,2]="ÛÛ ÚÛÛ ³ÛÛ± ÛÛ± ³ ÚÄ¿ À¿°°ÉÍÍ°°º"
L[4,3]="ÛÛ ³ÛÛ ³ÛÛ± ÛÛ± ³ ³ ³  ³°°º  °°º"
L[4,4]="ÛÛ ³ÛÛ ³ÛÛ± ÛÛ± ³ ³ ³  ³°°º  °°º"
L[4,5]="ÛÛÛÛÛß ³ÛÛÛÛÛß  ³ ÀÄÙ ÚÙ°°°°°°É¼"
L[4,6]=" ÀÄÄÄÄÄÙ        ÀÄÄÄÄÄÙ ÈÍÍÍÍÍ¼ "

L[5,1]="ÛÛÛÛÛÛÄ¿ÛÛÛÛÛÛ± ÚÄÄÄÄÄÄ¿°°°°°°°»"
L[5,2]="ÛÛ ÚÄÄÄÙÛÛ±     ³ ÚÄÄÄÄÙ°°ÉÍÍÍÍ¼"
L[5,3]="ÛÛÛÛÄ¿  ÛÛÛÛ±   ³ ÀÄÄÄ¿ °°°°»   "
L[5,4]="ÛÛ ÚÄÙ  ÛÛ±     ³ ÚÄÄÄÙ °°ÉÍ¼   "
L[5,5]="ÛÛÛÛÛÛÄ¿ÛÛÛÛÛÛ± ³ ÀÄÄÄÄ¿°°°°°°°»"
L[5,6]=" ÀÄÄÄÄÄÙ        ÀÄÄÄÄÄÄÙÈÍÍÍÍÍÍ¼"

L[6,1]="ÛÛÛÛÛÛÄ¿ÛÛÛÛÛÛ± ÚÄÄÄÄÄÄ¿°°°°°°°»"
L[6,2]="ÛÛ ÚÄÄÄÙÛÛ±     ³ ÚÄÄÄÄÙ°°ÉÍÍÍÍ¼"
L[6,3]="ÛÛÛÛÄ¿  ÛÛÛÛ±   ³ ÀÄÄÄ¿ °°°°°»  "
L[6,4]="ÛÛ ÚÄÙ  ÛÛ±     ³ ÚÄÄÄÙ °°ÉÍÍ¼  "
L[6,5]="ÛÛ ³    ÛÛ±     ³ ³     °°º     "
L[6,6]=" ÀÄÙ            ÀÄÙ     ÈÍ¼     "

L[7,1]="ÛÛÛÛÛÛÄ¿ÛÛÛÛÛÛ± ÚÄÄÄÄÄÄ¿°°°°°°°»"
L[7,2]="ÛÛ ÚÄÄÄÙÛÛ±     ³ ÚÄÄÄÄÙ°°ÉÍÍÍÍ¼"
L[7,3]="ÛÛ ÛÛÛÄ¿ÛÛ±ÛÛÛ± ³ ³ÚÄÄÄ¿°°º °°°»"
L[7,4]="ÛÛ ³ÛÛ ³ÛÛ± ÛÛ± ³ ³À¿  ³°°º È°°º"
L[7,5]="ÛÛÛÛÛÛ ³ÛÛÛÛÛÛ± ³ ÀÄÙ  ³°°°°°°°º"
L[7,6]=" ÀÄÄÄÄÄÙ        ÀÄÄÄÄÄÄÙÈÍÍÍÍÍÍ¼"

L[8,1]="ÛÛÄ¿ÛÛÄ¿ÛÛ± ÛÛ± ÚÄ¿ ÚÄÄ¿°°»  °°»"
L[8,2]="ÛÛ ³ÛÛ ³ÛÛ± ÛÛ± ³ ³ ³  ³°°º  °°º"
L[8,3]="ÛÛÛÛÛÛ ³ÛÛÛÛÛÛ± ³ ÀÄÙ  ³°°°°°°°º"
L[8,4]="ÛÛ ÚÛÛ ³ÛÛ± ÛÛ± ³ ÚÄ¿  ³°°ÉÍÍ°°º"
L[8,5]="ÛÛ ³ÛÛ ³ÛÛ± ÛÛ± ³ ³ ³  ³°°º  °°º"
L[8,6]=" ÀÄÙ ÀÄÙ        ÀÄÙ ÀÄÄÙÈÍ¼  ÈÍ¼"

L[9,1]="ÛÛÛÛÛÛÄ¿ÛÛÛÛÛÛ± ÚÄÄÄÄÄÄ¿°°°°°°°»"
L[9,2]=" ÀÛÛ ÚÄÙ  ÛÛ±   ÀÄ¿  ÚÄÙÈÍ°°°ÉÍ¼"  
L[9,3]="  ÛÛ ³    ÛÛ±     ³  ³    °°°º  "  
L[9,4]="  ÛÛ ³    ÛÛ±     ³  ³    °°°º  "  
L[9,5]="ÛÛÛÛÛÛÄ¿ÛÛÛÛÛÛ± ÚÄÙ  ÀÄ¿°°°°°°°»"  
L[9,6]=" ÀÄÄÄÄÄÙ        ÀÄÄÄÄÄÄÙÈÍÍÍÍÍÍ¼"  

L[10,1]="ÛÛÛÛÛÛÄ¿ÛÛÛÛÛÛ± ÚÄÄÄÄÄÄ¿°°°°°°°»"
L[10,2]=" ÀÛÛ ÚÄÙ  ÛÛ±   ÀÄ¿  ÚÄÙÈÍ°°°ÉÍ¼"  
L[10,3]="  ÛÛ ³    ÛÛ±     ³  ³    °°°º  "  
L[10,4]="  ÛÛ ³    ÛÛ±     ³  ³    °°°º  "  
L[10,5]="ÛÛÛÛ ³  ÛÛÛÛ±   ÚÄÙ  ³  °°°°°º  "  
L[10,6]=" ÀÄÄÄÙ          ÀÄÄÄÄÙ  ÈÍÍÍÍ¼  "  

L[11,1]="ÛÛÄÛÛÄ¿ ÛÛ±ÛÛ±  ÚÄ¿ ÚÄ¿ °°» °°» "
L[11,2]="ÛÛ ÛÛ ³ ÛÛ±ÛÛ±  ³ ³ ³ ³ °°º °°º "  
L[11,3]="ÛÛÛÛÛÛÀ¿ÛÛÛÛÛÛ± ³ ÀÄÙ À¿°°°°°°°»"  
L[11,4]="ÛÛ ÚÛÛ ³ÛÛ± ÛÛ± ³ ÚÄ¿  ³°°ÉÍÍ°°º"  
L[11,5]="ÛÛ ³ÛÛ ³ÛÛ± ÛÛ± ³ ³ ³  ³°°º  °°º"  
L[11,6]=" ÀÄÙ ÀÄÙ        ÀÄÙ ÀÄÄÙÈÍ¼  ÈÍ¼"  

L[12,1]="ÛÛÄ¿    ÛÛ±     ÚÄ¿     °°°»    "
L[12,2]="ÛÛ ³    ÛÛ±     ³ ³     °°°º    "  
L[12,3]="ÛÛ ³    ÛÛ±     ³ ³     °°°º    "  
L[12,4]="ÛÛ ³    ÛÛ±     ³ ³     °°°º    "  
L[12,5]="ÛÛÛÛÛÛÄ¿ÛÛÛÛÛÛ± ³ ÀÄÄÄÄ¿°°°°°°°»"  
L[12,6]=" ÀÄÄÄÄÄÙ        ÀÄÄÄÄÄÄÙÈÍÍÍÍÍÍ¼"  

L[13,1]="ÛÛÄ¿ÛÛÄ¿ÛÛÛÛÛÛ± ÚÄÄÄÄÄÄ¿°°°°°°°»"  
L[13,2]="ÛÛÝÞÛÛ ³ÛÛ±Û±Û± ³ Ú¿Ú¿ ³°°É°É°°º"  
L[13,3]="ÛÛÞÝÛÛ ³ÛÛ±Û±Û± ³ ³³³³ ³°°º°º°°º"  
L[13,4]="ÛÛ ³ÛÛ ³ÛÛ±Û±Û± ³ ³³³³ ³°°º°º°°º"  
L[13,5]="ÛÛ ³ÛÛ ³ÛÛ±Û±Û± ³ ³³³³ ³°°º°º°°º"  
L[13,6]=" ÀÄÙ ÀÄÙ        ÀÄÙÀÙÀÄÙÈÍ¼È¼ÈÍ¼"  

L[14,1]="ÛÛÄ¿ÛÛÄ¿ÛÛÛÛÛÛ± ÚÄÄÄÄÄÄ¿°°°°°°°»"  
L[14,2]="ÛÛÝ³ÛÛ ³ÛÛ± ÛÛ± ³ ÚÄ¿  ³°°ÉÍÍ°°º"  
L[14,3]="ÛÛÞÝÛÛ ³ÛÛ± ÛÛ± ³ ³ ³  ³°°º  °°º"  
L[14,4]="ÛÛ ÞÛÛ ³ÛÛ± ÛÛ± ³ ³ ³  ³°°º  °°º"  
L[14,5]="ÛÛ ³ÛÛ ³ÛÛ± ÛÛ± ³ ³ ³  ³°°º  °°º"  
L[14,6]=" ÀÄÙ ÀÄÙ        ÀÄÙ ÀÄÄÙÈÍ¼  ÈÍ¼"  

L[15,1]="ÛÛÛÛÛÛÄ¿ÛÛÛÛÛÛ± ÚÄÄÄÄÄÄ¿°°°°°°°»"  
L[15,2]="ÛÛ ÚÛÛ ³ÛÛ± ÛÛ± ³ ÚÄ¿  ³°°ÉÍÍ°°º"  
L[15,3]="ÛÛ ³ÛÛ ³ÛÛ± ÛÛ± ³ ³ ³  ³°°º  °°º"  
L[15,4]="ÛÛ ³ÛÛ ³ÛÛ± ÛÛ± ³ ³ ³  ³°°º  °°º"  
L[15,5]="ÛÛÛÛÛÛ ³ÛÛÛÛÛÛ± ³ ÀÄÙ  ³°°°°°°°º"  
L[15,6]=" ÀÄÄÄÄÄÙ        ÀÄÄÄÄÄÄÙÈÍÍÍÍÍÍ¼"  

L[16,1]="ÛÛÛÛÛÛÄ¿ÛÛÛÛÛÛ± ÚÄÄÄÄÄÄ¿°°°°°°°»" 
L[16,2]="ÛÛ ÚÛÛ ³ÛÛ± ÛÛ± ³ ÚÄ¿  ³°°ÉÍÍ°°º"  
L[16,3]="ÛÛÛÛÛÛ ³ÛÛÛÛÛÛ± ³ ÀÄÙ  ³°°°°°°°º"  
L[16,4]="ÛÛ ÚÄÄÄÙÛÛ±     ³ ÚÄÄÄÄÙ°°ÉÍÍÍÍ¼"  
L[16,5]="ÛÛ ³    ÛÛ±     ³ ³     °°º     "  
L[16,6]=" ÀÄÙ            ÀÄÙ     ÈÍ¼     " 

L[17,1]="ÛÛÛÛÛÛÄ¿ÛÛÛÛÛÛ± ÚÄÄÄÄÄÄ¿°°°°°°°»"  
L[17,2]="ÛÛ ÚÛÛ ³ÛÛ± ÛÛ± ³ ÚÄ¿  ³°°ÉÍÍ°°º"  
L[17,3]="ÛÛ ³ÛÛ ³ÛÛ± ÛÛ± ³ ³ ³  ³°°º  °°º"  
L[17,4]="ÛÛ ³Û  ³ÛÛ± Û±  ³ ³ ³  ³°°º  ° º"  
L[17,5]="ÛÛÛßÛÛ ³ÛÛÛßÛÛ± ³ ÀÄÙ ÚÙ°°°°°°°º"  
L[17,6]=" ÀÄÄÄÄÄÙ        ÀÄÄÄÄÄÙ ÈÍÍÍÍÍÍ¼"  

L[18,1]="ÛÛÛÛÛÛÄ¿ÛÛÛÛÛÛ± ÚÄÄÄÄÄÄ¿°°°°°°°»"  
L[18,2]="ÛÛ ÚÛÛ ³ÛÛ± ÛÛ± ³ ÚÄ¿  ³°°ÉÍÍ°°º"  
L[18,3]="ÛÛÛÛÛÛ ³ÛÛÛÛÛÛ± ³ ÀÄÙ  ³°°°°°°°º"  
L[18,4]="ÛÛ ÛÛ ÚÙÛÛ±ÛÛ±  ³ Ú¿  ÚÙ°°ÉÍ°°É¼"  
L[18,5]="ÛÛ ÛÛ ³ ÛÛ±ÛÛ±  ³ ³³  ³ °°º °°º "  
L[18,6]=" ÀÄÙÀÄÙ         ÀÄÙÀÄÄÙ ÈÍ¼ ÈÍ¼ "  

L[19,1]="ÛÛÛÛÛÛÄ¿ÛÛÛÛÛÛ± ÚÄÄÄÄÄÄ¿°°°°°°°»"   
L[19,2]="ÛÛ ÚÄÄÄÙÛÛ±     ³ ÚÄÄÄÄÙ°°ÉÍÍÍÍ¼"   
L[19,3]="ÛÛÛÛÛÛÄ¿ÛÛÛÛÛÛ± ³ ÀÄÄÄÄ¿°°°°°°°»"   
L[19,4]=" ÀÄÄÛÛ ³    ÛÛ± ÀÄÄÄ¿  ³ÈÍÍÍÍ°°º"   
L[19,5]="ÛÛÛÛÛÛ ³ÛÛÛÛÛÛ± ÚÄÄÄÙ  ³°°°°°°°º"   
L[19,6]=" ÀÄÄÄÄÄÙ        ÀÄÄÄÄÄÄÙÈÍÍÍÍÍÍ¼"   

L[20,1]="ÛÛÛÛÛÛÄ¿ÛÛÛÛÛÛ± ÚÄÄÄÄÄÄ¿°°°°°°°»"  
L[20,2]=" ÀÛÛ ÚÄÙ  ÛÛ±   ÀÄ¿  ÚÄÙÈÍ°°°ÉÍ¼"  
L[20,3]="  ÛÛ ³    ÛÛ±     ³  ³    °°°º  "  
L[20,4]="  ÛÛ ³    ÛÛ±     ³  ³    °°°º  "  
L[20,5]="  ÛÛ ³    ÛÛ±     ³  ³    °°°º  "  
L[20,6]="   ÀÄÙ            ÀÄÄÙ    ÈÍÍ¼  "  

L[21,1]="ÛÛÄ¿ÛÛÄ¿ÛÛ± ÛÛ± ÚÄ¿ ÚÄÄ¿°°»  °°»"  
L[21,2]="ÛÛ ³ÛÛ ³ÛÛ± ÛÛ± ³ ³ ³  ³°°º  °°º"  
L[21,3]="ÛÛ ³ÛÛ ³ÛÛ± ÛÛ± ³ ³ ³  ³°°º  °°º"  
L[21,4]="ÛÛ ³ÛÛ ³ÛÛ± ÛÛ± ³ ³ ³  ³°°º  °°º"  
L[21,5]="ÛÛÛÛÛÛ ³ÛÛÛÛÛÛ± ³ ÀÄÙ  ³°°°°°°°º"  
L[21,6]=" ÀÄÄÄÄÄÙ        ÀÄÄÄÄÄÄÙÈÍÍÍÍÍÍ¼"  

L[22,1]="ÛÛÄ¿ÛÛÄ¿ÛÛ± ÛÛ± ÚÄÄ¿ÚÄÄ¿°°»  °°»"  
L[22,2]="ÛÛ ³ÛÛ ³ÛÛ± ÛÛ± ³  ³³  ³°°È» °°º"  
L[22,3]="ÞÛÝÞÛÝÚÙ ÛÛ±Û±  À¿ ³³ ÚÙÈ°°º°°É¼"  
L[22,4]="ÞÛÝÞÛÝ³  ÛÛ±Û±   ³ ³³ ³  °°º°°º "  
L[22,5]=" ÛÛÛÛ ³  ÛÛÛÛ±   ³ ÀÙ ³  È°°°É¼ "  
L[22,6]="  ÀÄÄÄÙ          ÀÄÄÄÄÙ   ÈÍÍ¼  "  

L[23,1]="ÛÛÄ¿ÛÛÄ¿ÛÛ± ÛÛ± ÚÄ¿  ÚÄ¿°°»  °°»"   
L[23,2]="ÞÛÝÞÛÝÚÙÞÛÛ±Û±  À¿À¿ÚÙÚÙÈ°°»°°É¼"   
L[23,3]="  ÛÛ  ³   ÛÛ±    À¿ÀÙÚÙ  È°°°Í¼ "   
L[23,4]="ÞÛÝÞÛÝ³ ÞÛÛ±Û±   ÚÙÚ¿À¿  °°É°°» "   
L[23,5]="ÛÛ ³ÛÛÀ¿ÛÛ± ÛÛ± ÚÙÚÙÀ¿À¿°°É¼ °°»"   
L[23,6]=" ÀÄÙ ÀÄÙ        ÀÄÙ  ÀÄÙÈÍ¼  ÈÍ¼"   

L[24,1]="ÛÛÄ¿ÛÛÄ¿ÛÛ± ÛÛ± ÚÄ¿ ÚÄÄ¿°°»  °°»"
L[24,2]="ÛÛ ³ÛÛ ³ÛÛ± ÛÛ± ³ ³ ³  ³°°º  °°º"
L[24,3]="ÛÛÛÛÛÛ ³ÛÛÛÛÛÛ± ³ ÀÄÙ  ³°°°°°°°º"
L[24,4]=" ÀÛÛ ÚÄÙ  ÛÛ±   ÀÄ¿  ÚÄÙÈÍ°°°ÉÍ¼"   
L[24,5]="  ÛÛ ³    ÛÛ±     ³  ³    °°°º  "  
L[24,6]="   ÀÄÙ            ÀÄÄÙ    ÈÍÍ¼  "
        
L[25,1]="ÛÛÄ¿ÛÛÄ¿ÛÛ±  Û± ÚÄ¿  ÚÄ¿°°»  °°»"  
L[25,2]="ÛÛ ³ÛÛ ³ÛÛ±  Û± ³ ³Ú¿³ ³°°º  °°º"         
L[25,3]="ÛÛÞÝÛÛ ³ÛÛ±Û±Û± ³ ³³³³ ³°°º°»°°º"  
L[25,4]="ÛÛÝÞÛÛ ³ÛÛ±Û±Û± ³ ³³³³ ³°°º°º°°º"  
L[25,5]="ÛÛ ³ÛÛ ³ÛÛÛÛÛÛ± ³ ÀÙÀÙ ³°°°°°°°º"  
L[25,6]=" ÀÄÙ ÀÄÙ        ÀÄÄÄÄÄÄÙÈÍÍÍÍÍÍ¼"  

L[26,1]="ÛÛÛÛÛÛÄ¿ÛÛÛÛÛÛ± ÚÄÄÄÄÄÄ¿°°°°°°°»"
L[26,2]=" À¿ÞÛÝÚÙ   ÞÛÛ± ÀÄÄÄ¿ ÚÙÈÍÍ»°°É¼"
L[26,3]="  ÛÛÚÄÙ   ÛÛ±     ÚÄÙÚÙ   °°°É¼ "
L[26,4]="ÞÛÝ ³   ÞÛÛ±     ÚÙÚÄÙ   °°ÉÍ¼  "
L[26,5]="ÛÛÛÛÛÛÄ¿ÛÛÛÛÛÛ± ÚÙ ÀÄÄÄ¿°°°°°°Í»"
L[26,6]=" ÀÄÄÄÄÄÙ        ÀÄÄÄÄÄÄÙÈÍÍÍÍÍÍ¼"
 
FOR i = 1 TO LEN(texto)
    letra=UPPER(SUBS(texto,i,1))
    IF letra=" "
        lin1+=SPACE(8)
        lin2+=SPACE(8)
        lin3+=SPACE(8)
        lin4+=SPACE(8)
        lin5+=SPACE(8)
        lin6+=SPACE(8)
    ELSE
        posi=AT(letra,abc)
        IF posi != 0
            lin1+=SUBS(L[posi,1],(tipo*8)-7,8)
            lin2+=SUBS(L[posi,2],(tipo*8)-7,8)
            lin3+=SUBS(L[posi,3],(tipo*8)-7,8)
            lin4+=SUBS(L[posi,4],(tipo*8)-7,8)
            lin5+=SUBS(L[posi,5],(tipo*8)-7,8)
            lin6+=SUBS(L[posi,6],(tipo*8)-7,8)
        ENDIF
    ENDIF
NEXT
@ lin++,col say lin1
@ lin++,col say lin2
@ lin++,col say lin3
@ lin++,col say lin4
@ lin++,col say lin5
@ lin++,col say lin6
RETURN

Um Abraço,

Janio

Enviado: **18 Jun 2005 13:09**

a visual lib troca alguns caracteres do sistema o que causa este problema, vc terá que adequar os caracteres das fontes aos da visual lib.

Enviado: **18 Jun 2005 15:57**

vagucs escreveu:a visual lib troca alguns caracteres do sistema o que causa este problema, vc terá que adequar os caracteres das fontes aos da visual lib.

É pessoal, falei com o chefe Toledo e parece que não dá mesmo pra consertar esse problema gerado pela Visual Lib. Pergunto:

Alguém tem alguma função para exibição de LETRAS GRANDES na tela compatível com a VISUAL LIB?

Obrigado a todos,
Um Abraço,

Janio

Enviado: **19 Jun 2005 00:30**

procure por caracteres similares da visual lib ou se prefirir pode pegar no meu site uma pequena rotina que altera os caracteres do DOS e desenhar os caracteres que vc precisa para fazer suas fontes ficarem beleza.

O problema é que meu site estourou novamente o limite de banda e estamos ainda no dia 20.

Sem mais
Wagner Nunes
www.vagucs.com.br

PC Toledo

Problema com Função Usando Visual Lib

Problema com Função Usando Visual Lib