XProfan

 $H C:ProgrammeXProfan 8.0Includewindows.ph
 $H C:ProgrammeXProfan 8.0Includemessages.ph
 $H C:ProgrammeXProfan 8.0Includecommctrl.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

    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%

    endif

wend

QUELLTEXT

 {$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%

    Endif

Wend