Image capture format

[Kevin]

no 

find dialog only captures bitmaps only

you will need to use a different capture function than the 1 built into find image dialog

You could add a toolbar to the window to launch the function easier

but would still need add as a resource the newly captured png image

   


example code

Toolbar Toolbar1
Trigger !a"Find Image" "#32770" /QM     

Code:

Copy      Help

;/mov 190 115 /siz 85 21 /isiz 0 0 /bsiz 87 /set 1|2|32|0x4000 /transp "" b
Capture Png :mac "CaptureImageSaveAsPng"

Function CaptureImageSaveAsPng

Code:

Copy      Help

RECT r
__GdiHandle hb
if(!CaptureImageOrColor(hb 0 _hwndqm "" r)) ret
mkdir "QM_CaptureImages" "$desktop$";;create folder if it doesnt exist to save images in
str sFolderName = "$desktop$\QM_CaptureImages\"
str sFileName.timeformat("{yyyy-MM-dd}_{HH-mm-ss}_QmCapture");;unique filename to avoid problems
str sFormat = ".png";;i use png for smaller filesize
str sFile.format("%s%s%s" sFolderName sFileName sFormat)
;save image
#compile "__Gdip"
GdipBitmap im
if(!im.FromHBITMAP(hb)) end "error"
if(!im.Save(sFile)) end "error"
out sFile
0.2
int w=win("Find Image" "#32770")
int c=id(5 w) ;;push button 'Use existing...'
but+ c