XProfan

Título de la ventana upper$("    Windowstyle auswerten \\ ermitteln (V 11.2a)")
'(S) Spaghettiware A.D.2017-01 by P.Pájaro carpintero, Wien/Ösiland. Keine Gewähr, para nichts!
CLS : font 2 : usepen 0,2,255:rectangle 257,344-370,374
declarar i&, WS$, fs&, tmp$, mb&, mausabfr&, bit&, the_cows_come_home&
fs&=%windowstyle
WS$="   0,Keine Größenänderung\\kein Systemmenü,   1,Vergrößerungspfeil (en Verbindung con 8),"+\
"   2,Verkleinerungspfeil a Icon (en Verbindung con 8),   4,Größe änderbar,"+\
"   8,Autom. Systemmenü,  16,kein Autom. Menü,  32,Bildschirmhintergrund,  64,no Titelleiste,"+\
" 128,kein Abbruch m.Strg+Esc\\Alt+F4 + kein Wechsel\\Alt+Tab,"+\
" 256,kein Abbruch doch Wechsel con Alt+Tab\MenuItem,"+\
" 512,Ventana principal reagiert como Dialogfenster,1024,Tool-Ventana: Klein\\no en Taskleiste,;"+\
"Kombinationen voluntad por Addition el individual Werte erreicht.;"+\
"Damit el Befehl Wirkung zeigt, muss él VOR el ersten Öffnen des Programmfensters tener lugar!;"+\
"Bildschirmhintergrund klappt no si Erstfenster con CLS geöffnet se.;"+\
"Ideal para Bildschirmschoner es Stil 240.;"+\
"Der Stil 512 es entonces utilizarse, si una Programa en el Ventana principal Dialogelemente anlegt.;"+\
"Die Stile 256 y 128 son no con el neuen Stil 512 zusammen utilizarse.;"+\
"Dialogfenster-Stil 512 lässt Dialogelemente en el Ventana principal gem. Standard reagieren, ...;"+\
"ad 512: - con TAB kann zwischen el Dialogelementen umgeschaltet voluntad, ...;"+\
"ad 512: - Buttons reagieren sólo cuando se libera des Knopfes, ...;"+\
"ad 512: - Ventana principal reagiert no incluso en Schließen, pero lo se %Key=2 gesetzt."

REPEAT

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

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

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

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

            más:imprimir:imprimir

        endif

        endwhile:imprimir
        huh:
        Imprimir "   ====   Stil: ";right$("    "+str$(fs&),4);
        imprimir "     Abfrage:              Bsp.: 123, %10, $1F, ";
        color 0,14:imprimir "m > Maus":color 0,15

        ifnot mausabfr&

            locate %csrlin-1,35:input tmp$:caso 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

                    caso fs&=-1:end

                endif

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

                if mausabfr&

                    waitinput

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

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

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

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

                        más

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

                        endif

                    más

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

                    endif

                endif

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

            UNTIL the_cows_come_home&

            Proc TestWindow

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

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

                    sound 2000,200:waitinput:end:endif

                ENDPROC

                PROGEND