FiveTech Software tech support forums

veamos, hasta no hace mucho yo usaba esta forma define font oFont1 ... define font oFont2 ... define window oWnd ... font oFont1 .. ... define dialog oDlg ... font oFont2 ... oFont1:end() oFont2:end() ahora, ya no es necesario eliminar la fuente con :end(), si esta ...

... extraño. Es este (forma parte de un fichero donde abro las tablas y todo): //-- Listado de Articulos. static function LArticulos() local oFont1,oFont2,nRec local oReport DbGoTop() nRec := RecNo() DEFINE FONT oFont1 NAME "Arial" SIZE 0,8 DEFINE FONT oFont2 NAME "Arial" SIZE ...

... extraño. Es este (forma parte de un fichero donde abro las tablas y todo): //-- Listado de Articulos. static function LArticulos() local oFont1,oFont2,nRec local oReport DbGoTop() nRec := RecNo() DEFINE FONT oFont1 NAME "Arial" SIZE 0,8 DEFINE FONT oFont2 NAME "Arial" SIZE ...

... (b)PONBARRA( 233 ) El código fuente del informes (parte del fichero) es: //-- Listado de Articulos. static function LArticulos() local oFont1,oFont2,nRec local oReport DbGoTop() nRec := RecNo() DEFINE FONT oFont1 NAME "Arial" SIZE 0,8 DEFINE FONT oFont2 NAME "Arial" SIZE ...

... ::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 {},; //picture ...

... to paint xBrowse bitmap and text in the same cell: bitmap above or different lines Añadir esta linea como ejemplo ( hay que definir la variable oFont2 ) Add this line as an example (you have to define the variable oFont2) oXBrw:aCols[ 4 ]:bPaintText = { | oCol, hDC, cText, aCoors, ...

... AADD( aImgList, STYLE1->IMAGE ) DBSKIP(+1) ENDDO DBGOTOP() REPORT oReport TITLE "*** IMAGES STYLE 1 ***","" PREVIEW ; FONT oFONT2 ????? IMAGES COLUMN TITLE "Info 1" DATA STYLE1->INFO1 SIZE 15 MEMO COLUMN TITLE "Info 2" DATA STYLE1->INFO2 SIZE 15 ...

... TITLE oInforme:cTitulo1, oInforme:cTitulo2, iif(oInforme:cTitulo3!=NIL, oInforme:cTitulo3," ") CENTERED ; FONT oInforme:oFont3, oInforme:oFont2, oInforme:oFont1 ; HEADER oSayEmpresa(), "Fecha: "+dtoc(Date()), "Hora: "+Time() ; FOOTER "Página: "+str(oRep:nPage,3) ...

... oBrw2:ToExcel() ), ; // ASC or VKEYS SETFOCUSAFTER( FINDWINDOW( "XLMAIN", 0 ) ) ) ; FILENAME c_path1 + "Excel.Bmp" ; FONT oFont2 2007 ; LEFT oBtn2:lTransparent := .t. oBtn2:cToolTip = { "Export " + CRLF + "to EXCEL","EXPORT", 1, CLR_BLACK, ...

... "CHR","ASC", "CHR","ASC", "CHR","ASC" ; COLSIZES 50, 50, 50, 50, 50, 50, 50, 50 FONT oFont2 ; ARRAY aPrint1 LINES FASTEDIT CELL oBrw1:lHScroll := .F. WITH OBJECT oBrw1 :nEditTypes := EDIT_GET :CreateFromCode() END I := 1 FOR I := 1 to ...

... ; PROMPT "&Show" ; ACTION ( nKey1 := GET_KEYS(ALLTRIM(cGet1)), oSay[4]:Refresh() ); FILENAME c_path1 + "Help.Bmp" ; FONT oFont2 2007 ; TOP oBtn1:lTransparent := .t. oBtn1:cToolTip = { "Array " + CRLF + "result","nKey", 1, CLR_BLACK, 14089979 ...

I have this get @ 0.5, 0.5 GET oGet VAR cGet OF oDlg SIZE 120, 12 RIGHT FONT oFont2 and I wish change the with from 120 to 232 Please try function test()   local oDlg, oGet   local cGet  := PadR( "Change Get Width", 100 )   DEFINE DIALOG ...

I wish size a get when the user press a button or a menu

I tried with move(), resize() methods with no success !!!

I have this get

@ 0.5, 0.5 GET oGet VAR cGet OF oDlg SIZE 120, 12 RIGHT FONT oFont2

and I wish change the with from 120 to 232

... (Fonts,Backgrounds...) Ej: DEFINE DIALOG oDlg OF oWnd RESOURCE "CREDITOSCONSUL" ACTIVATE DIALOG oDlg CENTERED NOWAIT ; VALID( ,oFont1,oFont2,oBack,; //estos no se liberan si el dialog estaba abierto y el usuario cerro el programa (cSitPTMO)->(dbCloseArea()) ,; //estos sí, en la ...

... usar usb y demas , con la velocidad del modo texto . Al imprimir usa las fuentes draft y no notaras la diferencia con el modo texto. DEFINE FONT oFont2 NAME "DRAFT 5CPI" SIZE -18,-18 OF oPrn DEFINE FONT oFont1 NAME "DRAFT 12CPI" SIZE 0, -10 OF oPrn DEFINE FONT oFont3 NAME ...