FiveTech Software tech support forums

... the test bbb.bmp It looks like there is a border around that makes it transparent :?: I added -> oImage:lBmpTransparent := .F. but no difference http://www.pflegeplus.com/IMAGES/bbb.bmp Funny and hard to understand as a test I reloaded ...

Size and pixel is not needed

I just tested a Bmp-resource without any problem
I will check PNG as well

@ 10, 10 IMAGE oImage RESOURCE "Exit" OF oWnd NOBORDER // Exit = bmp-resource

regards
Uwe

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

Carlos,

I added < oImage:bLDblClick > to activate and deactivate the linepainting
because right mouseclick and click are predefined
for menue and movement.

regards
Uwe

... !!! I would like to change the image-border at runtime. From class TBitmap I use :nStyle , because there is no method in class TImage like oImage:lBorder := .F. @ 55, 430 COMBOBOX oCbx1 VAR cImgBorder  ITEMS { "Border", "NO border" } ;SIZE 50, 50 OF oSDlg  PIXEL ...

... cImage, , .t. ) oMetro:DrawImage( aImage, aRect, nil, 1 ) a working solution // metro image-background ( FREEIMAGE needed ) DEFINE IMAGE oImage FILENAME cImage oBrush := TBrush():new( ,,,, ResizeBmp( oImage:hBitmap, aRect[4], aRect[3], .T. ) ) // 1 = stretch, 2 : fitoutside, 3:fitinside ...

... cImage, , .t. ) oMetro:DrawImage( aImage, aRect, nil, 1 ) a working solution // metro image-background ( FREEIMAGE needed ) DEFINE IMAGE oImage FILENAME cImage oBrush := TBrush():new( ,,,, ResizeBmp( oImage:hBitmap, aRect[4], aRect[3], .T. ) ) // 1 = stretch, 2 : fitoutside, 3:fitinside ...

... que enlazar las librerias hbhpdf.lib y libhpdf.lib #include "FiveWin.ch" #include "harupdf.ch" Function Main() Local oPdf,Page,oImage,oFont,Font1,Font2,Font3 oPdf:=HPDF_New() HPDF_SetCompressionMode( oPdf, HPDF_COMP_ALL ) **HPDF_SetPassword( oPdf, 'jaime', 'alberto' ) page:=HPDF_AddPage(oPdf) ...

Using non transparent images like Your drawing maybe You need @ 20,20 XIMAGE oImage SOURCE cFile SIZE -20,-20 OF oDlg oImage:lBmpTransparent := .F. otherwise it could show something like ( format JPG ) is showing transparent areas on the left upper corner This ...

Marc, by default :lBmpTransparent := .T. Using non transparent images like Your drawing maybe You need @ 20,20 XIMAGE oImage SOURCE cFile SIZE -20,-20 OF oDlg oImage:lBmpTransparent := .F. otherwise it could show something like ( format JPG ) is showing transparent areas on the left ...

Please set oImage:lCanPaste := .t.  if you want the user to paste images into the XImage control. Then the user can 1. Copy an image from any source 2. Select the ximage by clicking on it 3) (a) Press Ctrl-V OR (b) Right-click ...

... Graphics():New( oWnd:hDC ) oPath:AddRoundRect( aRect[2] + 700, aRect[1] + 150, ; // must be defined < Left / Top > :?: normally Top / Left oImage:GetWidth() * 0.5, oImage:GetHeight() * 0.5, 50 ) // resized to 50 % oGraphics:FillPath( oBrush, oPath) oGraphics:Destroy() regards Uwe

ok resolved local cFile :="" local cDefaImage:="noImage.png" Local cImage:= oRec:Image Local oImage local cImgPath:=".\images\" @ 68, 10 SAY "Immagine:" OF oDlg SIZE 31, 8 PIXEL FONT oFont @ 66, 46 GET oRec:Image ...

trying with

@ 78,150 XIMAGE oImage var cImage SOURCE IF(empty(oRec:Image),cDefaImage,oRec:Image);
SIZE 50, 50 OF oDlg

run ok
but the when I make oRec:save it save al so the image ?

nooooo!!!

https://i.postimg.cc/mgqVffMK/ggggg.png Now I try with Local cImage:= oRec:Image Local oImage @ 58,150 BTNBMP oBtnImage PROMPT "Carica" ; RESOURCE "BTN_PNG_IMAGE" FLAT ; SIZE 42, 14 LEFT PIXEL OF oDlg ; ACTION ( cImage:= GetImage( cFile ...