XProfan

Window Title upper$("    Windowstyle evaluate \\ detect (V 11.2a)")
'(s) Spaghettiware A.D.2017-01 by P.woodpecker, Wien/Ösiland. No Gewähr, for nothing!
CLS : font 2 : usepen 0,2,255:rectangle 257,344-370,374
declare i&, WS$, fs&, tmp$, mb&, mausabfr&, bit&, the_cows_come_home&
fs&=%windowstyle
WS$="   0,No Resize\\no System Menu,   1,Vergrößerungspfeil (in link with 8),"+\
"   2,Verkleinerungspfeil To Icon (in link with 8),   4,Size änderbar,"+\
"   8,Autom. System Menu,  16,no Autom. Menu,  32,Bildschirmhintergrund,  64,no Titelleiste,"+\
" 128,no discontinue m.Strg+Esc\\old+F4 + no change\\old+tab,"+\
" 256,no discontinue still change with old+tab\MenuItem,"+\
" 512,Mainwindow reacted How Dialog-Window,1024,Tool-Window: small\\not Taskbar,;"+\
"Kombinationen go through addition the individual values access.;"+\
"Damit the commands effect shows, must it VOR the first Open the Programmfensters erfolgen!;"+\
"Bildschirmhintergrund works not if Erstfenster with CLS opened becomes.;"+\
"Ideal for Screen saver is Style 240.;"+\
"Der Style 512 is then To use, if one Program on the Mainwindow Dialogelemente anlegt.;"+\
"Die Stile 256 and 128 are not the new Style 512 together To use.;"+\
"Dialogfenster-Style 512 can Dialogelemente on the Mainwindow gem. standard react, ...;"+\
"ad 512: - with TAB can between whom Dialogelementen umgeschaltet go, ...;"+\
"ad 512: - Buttons react only at release the Knopfes, ...;"+\
"ad 512: - Mainwindow reacted not self on Closing, separate it'll %Key=2 staid."

REPEAT

    AppendMenuBar 100,substr$(ws$,mb&+2,";")
    locate 3,1

    whileloop 24:i&=&Loop:print "  ";

        case (i& mod 2) and testbit(fs&,&Loop\2-1):color 15,1
        print " ";substr$(ws$,i&,",");

        if i& mod 2: print "    ";:color 0,15

            else:print:print

        endif

        endwhile:print
        huh:
        Print "   ====   Style: ";right$("    "+st$(fs&),4);
        print "     request:              Bsp.: 123, %10, $1F, ";
        color 0,14:print "m > Maus":color 0,15

        ifnot mausabfr&

            locate %csrlin-1,35:input tmp$:case tmp$>"":fs&=val(tmp$)

            if lower$(left$(trim$(tmp$),1))="t"

                TESTWINDOW()

            endif

            if lower$(left$(trim$(tmp$),1))="m":mausabfr&=1

                usepen 0,2,$FFFFFF:usebrush 0,0:rectangle 257,344-370,374
                usepen 0,2,255:rectangle 2,23 - 100,333
                : goto "skip":endif

                if (fs&>=2048) or (fs&<-1):locate %csrlin-1,1:beep:goto "huh":endif

                    case fs&=-1:end

                endif

                skip:
                print "\n   ";right$("    "+st$(fs&),4);"   =   ";
                :Whileloop 10,0,-1:print testbit(fs&,&Loop);"  ";:endwhile:print

                if mausabfr&

                    waitinput

                    if (%mousekey=1) AND mouse(0,24-100,333)

                        bit&=int((%mousey-23)/26):case bit&=0:fs&=0
                        'locate 1,1:print bit&-1;"     ";

                        if testbit(fs&,bit&-1)=0

                            fs&=fs& | (2^(bit&-1))

                        else

                            fs&=(fs&) & (2^31-1-2^(bit&-1))

                        endif

                    else

                        mausabfr&=0:sound 100,30
                        cls:usepen 0,2,255:rectangle 257,344-370,374

                    endif

                endif

                RemoveMenu 100:inc mb&:case mb&>9:mb&=0

            UNTIL the_cows_come_home&

            Proc TestWindow

                var Thdl&=@Create("Window",%HWnd,"SO SIEHT DAS LEIDER NOCH NOT AUS!",100,100,300,200)
                SetStyle Thdl&,1,GetStyle(Thdl&) | FS&
                waitinput 2000

                if destroywindow(Thdl&)<>1:cls:print "\n\n\n      SORRY, DA LIEF JETZT WAS SCHIEF!"

                    sound 2000,200:waitinput:end:endif

                ENDPROC

                PROGEND