FiveTech Software tech support forums

... de mi ventana soSplit es la variable objeto de un splitter que incluye la ventana (no es relevante para tu caso) PalBmpDraw( hDC, (soWnd0:nHeight-oImg:nHeight ) /3, soSplit:nFirst+( soSplit:nLast-oImg:nWidth) /2, oImg:hBitmap,, oImg:nWidth, oImg:nHeight,, TRUE ) Para tu caso,guiate por la ayuda ...

... Local nPDF:=PRG_PDF+"PRT"+StrTran(TRANSFORM(nPROT,"99999")," ","0")+".PDF" Local oScanner,oIMG,nRES:=100 Local nFILE,nCONTA:=1 Local hPDF,K,nOK AEVAL(DIRECTORY("T_*.BMP"),{|X|FERASE(X[1])}) IF FILE("scanner.txt") FERASE("scanner.txt") ...

Juan,

oImg:LoadBmp( "ruta\nombrebmp" )
oImg:refresh()


Saludos

... son los siguientes : en el archivo fivemac.ch esto es algo provisional y rapido : #xcommand @ <nRow>, <nCol> RESIMAGE [ <oImg> ] ;             [ OF <oWnd> ] ;                 [ SIZE <nWidth>, <nHeight> ] ;                 [ ...

... (aspect ratio). Además de mantener el aspect ratio de la foto, la imagen siempre se ajustará a un tamaño menor o igual al del control. Parámetros: oImg es el control bLoadImage es el codeblock para cargar la imagen. Ej: {|o| o:Load(,"Foto_1625.jpg") } lHCenterControl indica si se debe ...

... than some certain value. What database engine are you using ? Dear Mr. Antonio, I'm using ADS 9.1 There's no error but not saving cStr := Bmp2Str(oImg:hBitmap).. if using cStr := '{1231412-41234123-123423}' ..it saves the example string in BLOB field as binary.. Regards, FAP

Dear RAO,

I tried to attached '0x' like '0x'+BmpToStr( oImg:hBitmap )

but with still not saving..


Regards,

FAP

Dear Mr. Antonio, Similar to the subject.. How about cStr := BmpToStr( oImg:hBitmap ) to be use with this construct.. .."Update sql_table Set thisfield = '"+cStr+"' where field_id = 'abc' "    //not saving..  thisfield type ...

Amigos estava precisando de exibir imagens (produtos) no sistema FWPPC. porem me parece que a sintax é diferente, pois dá erro se coloco a linha abaixo no PRG REDEFINE IMAGE oIMG_01_APLIAR ID 4001 OF oDlg_CD_ZOOM FILE IMG_01_APLIAR adjust UPDATE Quando Coloco o código abaixo, dá erro. MESTOQPDA.obj ...

... secf.bmp) for the first Item I use the height of control = 200 when I add a new item and for each item , the height must be += 200 METHOD AddItem(oImg) CLASS TSections local oItem Local nvalue Local nAltura := ::nHeight nvalue+= nAltura oItem := TSections():New( ::nTop+nAltura, ::nLeft, ::nWidth, ...

Is possbile make a bitmap go where cursor mouse to be ? insede of a window ?

Sample:

define window ownd
loca:=GetCursorPos()
oImg:=TBitmap():new(0,0,32,32,,"iSegue.bmp")

// oImg:MoveTo(loca[1],loca[2]) ???

activate window ownd

Es possible hacer una imagem segui lo CURSOR del mouse dientro dela ventana ?

Example:

define window ownd
loca:=GetCursorPos()
oImg:=TBitmap():new(0,0,32,32,,"iSegue.bmp")

// oImg:MoveTo(loca[1],loca[2]) ???




activate window ownd

REDEFINE IMAGE oImg FILENAME oDbMOD:Foto ADJUST NOBORDER ID 103 OF oFld:aDialogs[ 5 ] UPDATE PIXEL

try this.

Ségún la primera línea que nos muestras @ 10*ProporV, 10*ProporH IMAGE tDlg001 FILENAME oImg  OF  ... tDlg001 es el objeto TIMAGE y oImg es el nombre de la foto, ¿seguro que no están al revés? En caso de que esté todo corrrecto, según el metodo ::AdjControls() de la ...

Vladimir,

REDEFINE IMAGE oImg ID 100 OF oDlg ADJUST

saludos