FiveTech Software tech support forums

... -- enddo DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -14 DEFINE FONT oFont2 NAME "Ms Sans Serif" SIZE 0, -18 DEFINE FONT oFont3 NAME "Courier New" SIZE 0, -18 BOLD DEFINE FONT oFont4 NAME "ARIAL BLACK" SIZE 0, -22 BOLD DEFINE DIALOG oDlg SIZE 400, 340 ...

... esta el 99 + "/" agregas la barra + campo donde esta el 16 + "-" + campo baldes oCol:nDataStrAlign:= AL_LEFT oCol:oDataFont:= oFont3 oCol:oHeaderFont := oFont4 oCol:oFooterFont := oFont4 oCol:nWidth:= 240 Saludos Ruben Dario Fernandez Unless you are using a very very old version ...

... esta el 99 + "/" agregas la barra + campo donde esta el 16 + "-" + campo baldes oCol:nDataStrAlign:= AL_LEFT oCol:oDataFont:= oFont3 oCol:oHeaderFont := oFont4 oCol:oFooterFont := oFont4 oCol:nWidth:= 240 Saludos Ruben Dario Fernandez

... ALL EXPAND VIEW #include "Fivewin.ch" #include "xbrowse.ch" function PlanillaMantDiarios( oCn ) LOCAL oDlg, oFont1, oFont2, oFont3, oBrw, oRs, wmes, wanio, csql, oGet:={} LOCAL ii wmes := 11 wanio:= 2021 oGet:=Array(2) cSql := "SELECT * FROM mantenimientos JOIN planilla ...

... Static oReport #define BLANCO 1 #define ROJO 2 #define AMARILLO 3 #define AZUL 4 #define VERDE 5 LOCAL NOME := SPACE(25) LOCAL oFont1, oFont2, oFont3, oPen1, oPen2, cTit cTit := ALLTRIM(NEWPAR->EMPRESA1) DEFINE FONT oFont1 NAME "ARIAL" SIZE 0,-10 DEFINE FONT oFont2 NAME "ARIAL" ...

... := .T. :lFooter := .t. :bRecSelHeader := { || "" } :bRecSelData := { |o| o:KeyNo } :bRecSelFooter := { |o| o:nLen } :oRecSelFont := oFont3 // optional :nRecSelWidth := "99999" // required size :lHScroll := .F.

... idea, aun no logro imprimir vertical palabras... Gracias PD: Codigo de prueba: func ImpCB() local oPrn local oFont local oFont1 local oFont2 local oFont3 local nArriba := 0 local nIzq := .5 local nAbajo := 0 local nDerecha := 0 local nRen local nCodeLeft2 := 4.5 local cCod := "1234" PRINTER ...

... y solucionado. Pero no encuentro como imprimir VERTICA las palabras con tPrinter. Hay alguna forma? oPrn:cmsay(nArriba+.2, nIzq+2, ; left(cCod,4) ,oFont3 ,, CLR_BLACK,,PAD_LEFT) Asi me imprime horizontal, hay alguna forma para q me imprima vertical? Desde ya mil gracias Eduardo Rizzolo fullpaint ...

... http://www.pflegeplus.com/IMAGES/Symbol3.jpg No problem with "WingDings" because HEX are different DEFINE FONT oFont3 NAME "WingDings" SIZE 0,-25 CHARSET 2 DEFINE FONT oFont4 NAME "WingDings 2" SIZE 0,-25 CHARSET 2 DEFINE FONT oFont5 NAME ...

... ADS, ADSKeyno, ADSKeycount, ADSGETRELKEYPOS, ADSSETRELKEYPOS static aSecurity[06] function Main( cComp, cUid ) local oWnd , ; oFont, oFont2, oFont3, oMenu , ; oLbx , ; nSysW := GetSysMetrics(0) , ; nSysH := GetSysMetrics(1) , ; nLbxW := 600 , ; nLbxH := 430 , ; cSay := "Search for Booking ...

... REPORT oReport TITLE " ",cTITLE, dtoc(anfang) + " - " + dtoc(ende) LEFT ; FONT oFont1,oFont2,oFont3 ; PEN oPen1; HEADER Setup():LizenzNehmer()," ", ALLTRIM("Erstellt: " + dtoc(date())+ " - "+time()) RIGHT; FOOTER ...

... ) // METHOD CmBox( nRow, nCol, nBottom, nRight, oPen ) 3. paint the text on top of the box in WHITE oPRINT:cmSay( 2.0, 2.8, "Your text", oFont3,, CLR_WHITE ,,PAD_LEFT ) http://www.pflegeplus.com/IMAGES/Reverse1.jpg this solution works for me. best regards Uwe :D

... instead on oDrawImg ??? ---------------------------- STATIC FUNCTION CL_DT( hMemDC, nStyle, oDrawImg ) LOCAL hOldFont := SelectObject( hMemDC, oFont3:hFont ) , oTitle1 @ aPoints[1][1], aPoints[1][2] TITLE oTitle1 SIZE 300, 50 OF oDrawImg NOBORDER oTitle1:nShadow := 0 oTitle1:aGrdBack := {} ...

... ::nLblVSep ; ON LINE ::nLblOnLine ; PEN oPen1 ; FILE "LABEL.PRN" ; TO FILE "LABEL.TXT" ; CAPTION ::cTitulo1 ; FONT ::oFont3, ::oFont2, ::oFont1 LBLITEM AT ::nLblAtcol DATA ..... FONT 2 LblAddItem( ::nLblAtcol,; {bCampo(::aCampos,i)},; //fiels ::aWidth[i],; // width ...

... function main() local oWnd local oMainLay local hLays := {=>} local hButtons := {=>} local hBrowses := {=>} local oFld, oTitle2, oTitle1, oFont3 define window oWnd title "testing layout" USE CUSTOMER NEW SHARED ALIAS "CUST1" hLays["MAIN"] = TLayout():new( ...