XProfan

 {$cleq}
#include instrument.inc
messages de l'utilisateur wm_close
cls
long 	myPanel1=create.instrument("bg.jpg","zeiger.png",64,64,0)
long 	myPanel2=create.instrument("bg.jpg","zeiger.png",128,128,0)
long 	myPanel3=create.instrument("bg.jpg","zeiger.png",256,256,0)

do{

    instrument.setValue(myPanel1,getTickCount*10)
    instrument.draw(myPanel1,hWnd,100,100)
    / /
    instrument.setValue(myPanel2,getTickCount*20)
    instrument.draw(myPanel2,hWnd,200,100)
    / /
    instrument.setValue(myPanel3,mousex*1000)
    instrument.draw(myPanel3,hWnd,400,100)
    / /
    waitinput 20

    sélectionner %uMessage

        caseof wm_close : pause

    EndSelect

}

instrument.destroy(myPanel1)
instrument.destroy(myPanel2)
end