FiveTech Software tech support forums

... Me esta faltando algo? agregue esto antes de guardar la imagen cArchivo:=curdrive()+":\"+curdir()+"\imagenes\foto.jpg" oSelf:oImg:Save(.F.,cArchivo, 100) lo guarda pero me da un alert de here P y es molesto para el usuario final Cualquier sugerencia les agradezco

Leandro, Añade estas líneas al ejemplo photos.prg: local oPen, nX1, nY1, nX2, nY2 DEFINE PEN oPen COLOR CLR_YELLOW WIDTH 3 ... oImg:bLClicked = { | nRow, nCol | If( nX1 == nil, ( nX1 := nRow, nY1 := nCol ), ( nX1 := nil, nX2 := nil ) ) } oImg:bMMoved = { | nRow, nCol, hDC | If( nX1 != ...

Hola. Gracias por interesarte en mi consulta. asi es como tengo el codigo. REDEFINE IMAGE oImg ID W_Img of oDlgSue FILENAME "SoelSac.BMP" //ADJUST REDEFINE BITMAP oImgBmp ID W_ImgBmp of oDlgSue FILENAME "SoelSac.BMP" el BITMAP es el que me da error ...

Hola. Gracias por interesarte en mi consulta. asi es como tengo el codigo. REDEFINE IMAGE oImg ID W_Img of oDlgSue FILENAME "SoelSac.BMP" //ADJUST REDEFINE BITMAP oImgBmp ID W_ImgBmp of oDlgSue FILENAME "SoelSac.BMP" el BITMAP es el que me da error ...

Leandro,

Parece que el error viene de esta línea de esreport.prg

oImg := TImage():New( 0, 0, 0, 0,,, IIF( oItem:nBorder = 1, .F., .T. ), ::oTmpWnd )

lo cual quiere decir que ::oTmpWnd viene nil. Ahora hay que ver por qué

... oFrg:Center()return  This entire code can be written as:   DEFINE DIALOG oDlg SIZE 575,569 PIXEL TRUEPIXEL   @ 0,0 XIMAGE oImg FILE ".\Natter\map.bmp" SIZE 0,0 OF oDlg NOBORDER   ACTIVATE DIALOG oDlg CENTERED  with the same functionality. As you said, you will ...

... with BMP but I still noticed a problem using JPG :( Just change these lines xImage moving and zooming will delete selected colors :!: @ 4,1 XIMAGE oImg filename cFile SIZE 200,200 OF oDlg oImg:nUserControl := 0 oImg:oCursor := oHand oImg:blClicked := { | nCol, nRow | nPickRow := nRow, nPickCol ...

... BTNBMP oBtn ID 100 OF oDlgMnu RESOURCE "BOTON" ACTION Funcion()    oBtn:nClrText:={ |lMOver| If( lMover, (oIMG:SetBmp( "IMAGENJPG"),CLR_HBLUE), CLR_BLACK ) }   He intentado con oIMG:LoadBmp() igual no muestra. Gracias ...

Yo redefino el xImage asi REDEFINE XIMAGE oImg SOURCE oRecordSet:FOTO ID 103 OF oFldPro:aDialogs[ 6 ] UPDATE Pruebalo, funciona con tDolphin y FWMariaDb Saludos... EDIT : No me habia percatado que no querias tener un Recordset, sin embargo, solo ...

René,

Please try it this way:

@ 30, 285 IMAGE oImg OF oPrn SIZE 250, 250 FILENAME cFoto
oImg:SetScaling( 3 )
oImg:SetFrame()

Maybe the missing size

@ 10, 10 IMAGE oImg RESOURCE "save" PIXEL OF oDlg NOBORDER

@ 10, 10 IMAGE oImage SIZE 50, 50 RESOURCE "save" OF oDlg NOBORDER

best regards
Uwe

Please try
oImg:bRClicked := { ||nil}

Please try
@ 100, 100 XIMAGE oImg SIZE 64, 64 OF oDlg RESOURCE "i_bmp(64x64)" NOBORDER

oBrw:aCols[nn]:AddResource( "blue(16x16)" )

I will explain more in my next post.

... 1 oBrw:aCols[nn]:nHeadBmpAlign:= AL_RIGHT ------------------------------------- To show in xImage icons 64x64 additionally added oImg:FitWidth() oImg:FitHeight () Now works fine

My program has a string: @ 100, 100 XIMAGE oImg SIZE 64, 64 OF oDlg RESOURCE "i_bmp" NOBORDER The icon shown is of size 64x64 In FWH17.12 all right, in FWH18.03 I see the icon 32x32. Why? Icons 16x16 are inserted in the xBrowse column ...