XProfan

SubProc Créer.BigPicButton

    Paramètres Ziel&, Text$, PosX%, PosY%, Breite%, Hoehe%, Icon&
    var BigPicButton& = @control("Button",Text$,$50012200+$2000000,PosX%,PosY%,Breite%,Hoehe%,Ziel&,100,%Hinstance)
    Button_Refresh BigPicButton&, Icon&
    Retour BigPicButton&

ENDPROC

Proc Button_Refresh

    Paramètres Button&, Icon&
    var Refresh_Button&=@control("Static",»,$50000003,5,5,32,32,Button&,0,%Hinstance)
    @SendMessage(Refresh_Button&,$170,Icon& ,0)

ENDPROC

Windowstyle 16+8+2+512
Fenêtre 100,100
Titre de la fenêtre "ButtonTest" + " -- " + $ProfVer
UseIcon "A"
var Icon1& = @Créer("hIcon","baum")
var Button& = @Créer("BigPicButton",%HWnd,"Test- \nButton ",10,10,100,42,Icon1&)
waitinput
DeleteObject Icon1&
end

var m&=globalAlloc(gPTR,4)-4

declare q#
dim q#,4
var m&=addr(q#)
m&=m&-4
long m&,8=20
imprimer long(m&,8)
waitinput
end