FiveTech Software tech support forums

... oFont2, oFont3, oFont4 Request Hb_Lang_PLWIN Request Hb_CodePage_PLWIN Hb_LangSelect ('PLWIN') Hb_SetCodePage ('PLWIN') DEFINE FONT oFont NAME "Verdana" SIZE 8, -12 DEFINE FONT oFont1 NAME "Courier New" SIZE 8, -12 DEFINE FONT oFont2 NAME "times" SIZE 8, -12 DEFINE FONT oFont3 NAME "Times New ...

... 140,oFontsay,"R/W",,.T. ) WNDCENTER( oWnd:hWnd ) ACTIVATE WINDOW oWnd SysRefresh() RETURN NIL PROCEDURE MFONTES() DEFINE FONT oFontsay NAME "Verdana" SIZE 0,-11 DEFINE FONT oFontsayB NAME "Verdana" SIZE 0,-10 BOLD DEFINE FONT oFontGet NAME "Verdana" SIZE 0,-9 DEFINE FONT oFontBut NAME "Verdana" ...

... UNICO QUE MERESTA ES COMO PASAR MAS DE UN VARIABLE... ALGUIEN ME PODRI AYUDAR.... oOutFile:say(nContador++,0,"<TD align=right><font face='Verdana' size =1 >"+'<a href="'+ndirser+'"?arch='+ncambio+'>'+(nsuc)+'</A>'+"</font></TD>") CON ESTO SI DUNCIONA PERO NADAMAS ...

... ARCHVIO TAL COMO ESTO :oops: ESTO ES LO QUE ENVIO TAMBIEN NO SE SI ESTA BIEN.... oOutFile:say(nContador++,0,"<TD align=right><font face='Verdana' size =1 >"+'<a href=/cgi-win/tpostatu.exe?'+ncambio+'>'+(csuc)+'</A>'+"</font> </TD>") Y CUANDO LLEGAN AL OTRO ARCHIVO ...

... un diálogo: REDEFINE SAY ID 100 OF oDlg COLOR "GR+/BG" Si quisieras cambiarle el tamaño del font tambien, entonces harías: DEFINE FONT oFont NAME "Verdana" SIZE 0, -12 REDEFINE SAY ID 100 OF oDlg COLOR "GR+/BG" FONT oFont y después de ACTIVATE DIALOG ... oFont:End() // para destruir el font

... FUNCTION Main() BWCCRegister(GetResources()) PUBLIC oWnd DEFINE FONT oFont NAME "MS SANS SERIF" SIZE 0,-8 //BOLD DEFINE FONT oFont01 NAME "VERDANA" SIZE 0,-11 BOLD Inicio() cAppliDir := SFN2LFN(cAppliDir) DEFINE BRUSH oBrush COLOR CLR_WHITE DEFINE WINDOW oWnd MDI; FROM 4,10 TO 45.70, 140; ...