FiveTech Software tech support forums

... 1114 ) Called from: c:\sicef_desarrollo\bin\Sicefwin.prg => INICIO( 0 ) Este el método SayImage METHOD SayImage( nArriba,nIzq,nAncho,nAlto,xImage,lImage,lPage,nRaster ) CLASS TUtilPrn Local xCor := {},yCor := {},yyCor := {} local hDib, hPal, hBmp DEFAULT lImage := .F. ,; lPage := ...

... me funciona muy bien. Por ejemplo : oimagen := TImage():Define(logo.jpg') oPrint:SayImage(Posx(nposx) , Posy(nposy) , oimagen, posx(nancho), posy(nalto)) //------------------------------------------------------------------------------// Posx(valor)//// Devuelve la posicion logica x expresada en ...

... me funciona muy bien. Por ejemplo : oimagen := TImage():Define(logo.jpg') oPrint:SayImage(Posx(nposx) , Posy(nposy) , oimagen, posx(nancho), posy(nalto)) //------------------------------------------------------------------------------// Posx(valor)//// Devuelve la posicion logica x expresada en ...

... de tu post CajaRound( 1.6 , 15.0 , 3.4, 20.0 ,oPrn,90,90,oPen1,nRGB(250,250,250)) Func CajaRound(nArriba, nIzq, nAbajo, nDerecha, oPrn, nAncho, nAlto, oPen, nColor ) Local xCor := {} , yCor := {} // Pasamos coordenadas de cms a pixel xCor := oPrn:Cmtr2Pix(nArriba,nIzq) yCor := oPrn:Cmtr2Pix(nAbajo,nDerecha) ...

... y me presenta el siguiente problema al tratar de imprimir un Comprobante de Diario: Si al reporte lo quito todo lo referente a PrnSetSize(nAncho,nAlto) y PrinterSetup(oPrn), me da los resultados correctos como en la imagen cdiario1, pero al darle imprimir, la bendita impresora no imprime y en ...

Lorenzo,

El texto tiene que mostrarse en una línea ó en múltiples líneas ?

Es muy sencillo redimensionar un diálogo:

oDlg:SetSize( nAncho, nAlto )

... _2013> ] ; [ <lNoBorder: NOBORDER> ] ; [ BRUSH <oBrush> ]; [ COLOR <nColor> ]; [ <l2015: 2015, _2015> ] ; [ HEIGHT <nAlto> ] ; => ; [ <oBar> := ] TBar():New( <oWnd>, <nWidth>, <nHeight>, <._3d.>,; [ Upper(<(mode)>) ], <oCursor>, ...

... > 1024 CamReso ( 1024, 768) ENDIf RETURN nil //***************************************************************** Function CamReso(nAncho, nAlto) Local DM_PELSWIDTH := nHex("80000") Local DM_PELSHEIGHT := nHex("100000") //Local DM_PELSWIDTH := nHex("100000") ...

... las dimensiones o posiciones de mis dialogos o ventanas que creo? Gracias. // --- regresa las coor. de pantalla function CoordenadasPant(nAncho,nAlto) nAncho:=ScrResolution()[1] nAlto :=ScrResolution()[2] return NIL

... harbour a la función en C? ... de este modo para ajustar la fuente se le podría pasar NonClientPutOptions ( [nOpcion], nValor, {"Fuente",nAlto,nAncho}) ... ¿qué os parece? Angel, http://forums.fivetechsupport.com/viewtopic.php?f=3&t=19703&p=103914&hilit=parameter+array+a+function+c#p103915 ...

... harbour a la función en C? ... de este modo para ajustar la fuente se le podría pasar NonClientPutOptions ( [nOpcion], nValor, {"Fuente",nAlto,nAncho}) ... ¿qué os parece?

Horacio,

Prueba a asignarle el tamaño usando oDlg:SetSize( nAncho, nAlto, lRepintar )

... > 800 CamReso ( 800, 600) MSGINFO('HECHO. AQUI PUEDES INICIAR TU PROGRAMA ELABORADO PARA 800 X 600') ENDI RETU nil Function CamReso(nAncho, nAlto) Local DM_PELSWIDTH := nHex("80000") Local DM_PELSHEIGHT := nHex("100000") Local oDevMode Local lPosible Local cBuffer Local ...

Con .jpg SayImg( "img.jpg", oPrn,3,10, 6, 3 ) function SayImg( cImage, oPrn, nRen, nCol, nAncho, nAlto ) local oImg := TImage():Define( , cImage ) local aTam := oPrn:Cmtr2Pix(nAncho,nAlto) oPrn:SayImage(nRen,nCol,oImg,aTam[1], aTam[2]) oImg:end() return nil saludos. ...

... local cPanel := "wcia21.bmp" //"wcia2.bmp" Local oBrw1 Local oBrw2 hDC := GetDeskTopWindow() aRes := GetClientRect( hDC ) nAlto := aRes[3] nAncho := aRes[4] hDC := Nil aRes := Nil Do Case Case nAncho <= 1366 nAnchoSpl := nAncho*0.16 //180 //nAncho/4 Case nAncho > ...