Post by Sver on Nov 27, 2023 4:38:27 GMT -5
Or you can use it, as a background in a normal window,... I don't know.
'Statische bmp
nomainwin
'can use hard-coded path such as:
'loadbmp "image", "mybmp.bmp"
filedialog "Open Bmp","*.bmp",file$
if file$="" then end
stylebits #1.s, _SS_BITMAP, 0, 0, 0
statictext #1.s, "",10,10,2,2
'textbox #1.t, 15,15,50,30
open "StaticText Image" for WINDOW as #1
#1 "trapclose [quit]"
loadbmp "image",file$
hImage=hbmp("image")
hStatic=hwnd(#1.s)
calldll #user32, "SendMessageA",_
hStatic as ulong,_ 'handle of statictext
_STM_SETIMAGE as long,_ 'message to set image
_IMAGE_BITMAP as long,_ 'type of image
hImage as ulong,_ 'handle of bitmap
re as long
wait
[quit]
unloadbmp "image"
close #1:end
