XProfan

Def &SS_NOTIFY $0100
Selección aleatoria
Cls
Declarar pic&,st&,tip&
Declarar bmp$
ChDir $WinPath
AddFiles *"*.jpg"
bmp$ = ListBoxItem$(Rnd(%GetCount + 1))
Imprimir bmp$
pic& = Crear("hSizedPic",-1,bmp$,800,800,1)
st& = Crear("Mapa de bits",%hwnd,pic&,0,60)
Ventana 0,0 - %bmpx + 40,%bmpy + 130
Imprimir Hex$(GetStyle(st&))
SetStyle st&,GetStyle(st&) | &SS_NOTIFY
Imprimir Hex$(GetStyle(st&))
tip& = Crear("ToolTip",%hwnd,st&,bmp$)
WaitInput
DeleteObject pic&