XProfan

 {$compiler p8}
 {$runtime p8}
 $H Windows.ph
 $H Messages.ph
 $H Commctrl.ph

Proc Systemmenu

    Parameters Hwnd&,Message&,Wparam&,Lparam&

    If Equ(Message&,~Wm_syscommand)

        If Equ(Wparam&,5000)

            Messagebox("Programm 1.0","Message",64)

        Endif

    Endif

    Return ~Callwindowproc(Oldwndproc&,Hwnd&,Message&,Wparam&,Lparam&)

Endproc

Declare Up&,Down&,Oldwndproc&,Up%,Plugin&[64],Pcount%
Windowstyle 26
Windowtitle "Testprogramm"
Window 100,100-800,632
Set("FastMode",1)
~Appendmenu(~Getsystemmenu(%Hwnd,0),~Mft_separator,0,0)
~Appendmenu(~Getsystemmenu(%Hwnd,0),~Mft_string,5000,"Über Programm 1.0")
Oldwndproc&=~Getwindowlong(%Hwnd,~Gwl_wndproc)
~Setwindowlong(%Hwnd,~Gwl_wndproc,Procaddr("SystemMenu",4))
Up&=Createbutton(%Hwnd,"/",1,1,194,20)
Down&=Createbutton(%Hwnd,Add$(Chr$($5C),Chr$($2F)),1,580,194,20)

Whileloop 0,13

    Plugin&[&Loop]=Control("Button",Str$(&Loop),Add($40008088,If(Lt(Pcount%,9),$10000000,0)),2,Add(Mul(62,&Loop),22),194,60,%Hwnd,Add(1001,&Loop),%Hinstance)
    Inc Pcount%

Wend

While 1

    Enablewindow Up&,Neq(Up%,0)
    Enablewindow Down&,Gt(Sub(Sub(Pcount%,9),Up%),0)
    Waitinput
    casenot (external("USER32","GetAsyncKeyState",1)<>0) : continue

    If Getfocus(Up&)

        Hochscrollen
        Showwindow(Plugin&[Sub(Up%,1)],1)
        Dec Up%

        Whileloop Up%,Add(Up%,8)

            Setwindowpos Plugin&[&Loop]=2,Add(22,Mul(62,Sub(&Loop,Up%)))-194,60

        Wend

        Showwindow(Plugin&[Add(Up%,9)],0)

    Elseif Getfocus(Down&)

        Runterscrollen
        Showwindow(Plugin&[Up%],0)

        Whileloop Up%,Add(Up%,8)

            Setwindowpos Plugin&[Add(&Loop,1)]=2,Add(22,Mul(62,Sub(&Loop,Up%)))-194,60

        Wend

        Showwindow(Plugin&[Add(Up%,9)],1)
        Inc Up%