XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Icon auf Button zeichnen
Declare Button&,Iconhandle&,Iconholder$,Dcbutton&
Declare Brush&
Def @Getdc(1) !user32, GetDC
Def @DRawIconEx(9) !user32, DrawIconEx
Def Extracticon(3) !SHELL32,ExtractIconA
Def Createsolidbrush(1) !GDI32,CreateSolidBrush
Def @Getsyscolor(1) !USER32,GetSysColor
Windowstyle 31
Windowtitle Icon auf Button zeichnen
Window 0,0-640,440
Let Button& = @Createbutton(%Hwnd,OK, 100,100,200,30)
Let Brush& = Createsolidbrush(@Getsyscolor(15))
Let Iconholder$ = @Findfirst$($Winpath + *.EXE)
Let Iconhandle& = @Extracticon(%Hinstance,@Addr(Iconholder$),0)
Let Dcbutton& = @Getdc(Button&)
@Drawiconex(Dcbutton&,10,5, Iconhandle&, 20,20,0,Brush&,3)

While 0 = 0

    Waitinput
    @Drawiconex(Dcbutton&,10,5, Iconhandle&, 20,20,0,Brush&,3)

Endwhile