XProfan

Parameter 1: Handle des Fensters auf den das Inframe erstellt wird
Parameter 2: X-Position (auf Para1)
Parameter 3: Y-Position (auf Para1)
Parameter 4: Anzeige Breite
Parameter 5: Anzeige Höhe
Parameter 6: Innere Breite (wenn < als Para4: kein Horizontales Scrollen)
Parameter 7: Innere Höhe (wenn < als Para5: kein Vertikales Scrollen)
Rückgabe & : Handle inneres Fenster (siehe unten)

proc inframe

    parameters in_hd&,in_xp&,in_yp&,in_xs&,in_ys&,in_xr&,in_yr&
    in_hd&=create("listbox",in_hd&,"",in_xp&,in_yp&,0,0) Handle äusseres Fenster !
    case in_yr&<in_ys&:in_yr&=if(in_xr&>in_xs&,in_ys&-25,in_ys&-10)
    sendmessage(in_hd&,416,0,10)
    sendmessage(in_hd&,404,in_xr&,0)

    whileloop in_yr&/10

        addstring(in_hd&,"")

    wend

    setwindowpos in_hd&=in_xp&,in_yp&-in_xs&,in_ys&
    in_hd&=Control("STATIC","",1409286400,0,0,if(in_xr&<in_xs&,in_xs&,in_xr&),in_yr&+10,in_hd&,0,%hinstance,$0) Handle inneres Fenster
    return in_hd&

ENDPROC

XProfan:
inframe1&=inframe(%hwnd,5,5,500,500,1000,1000) 500x500 groß, X & Y-Scrollen
Profano 7:
inframe %hwnd,5,5,500,500,1000,1000 Inframe erzeugen
inframe1&=&(0) Handle sichern
inframe2&=inframe(inframe1&,100,100,300,300,0,800) Inframe en el Inframe ! Nur Y-Scrollen

whileloop 40 kleine Auswahlliste en inframe2&

    create("checkbox",inframe2&,"Inframe Auswahlliste - Element Nummer "+str$(&bucle),6,(&bucle-1)*20+2,300,20)

wend