XProfan

Titre de la fenêtre upper$("    Windowstyle auswerten \\ ermitteln (V 11.2a)")
'(S) Spaghettiware A.D.2017-01 by P.Specht, vienne/Ösiland. aucun Gewähr, pour rien!
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&=%style de fenêtre
WS$="   0,aucun Größenänderung\\ne...aucune Systemmenü,   1,Vergrößerungspfeil (dans liaison avec 8),"+\
"   2,Verkleinerungspfeil trop Icon (dans liaison avec 8),   4,Taille änderbar,"+\
"   8,Autom. Systemmenü,  16,ne...aucune Autom. menu,  32,Bildschirmhintergrund,  64,aucun Titelleiste,"+\
" 128,ne...aucune Abbruch m.Strg+Esc\\vieux+F4 + ne...aucune change\\vieux+Tab,"+\
" 256,ne...aucune Abbruch doch change avec vieux+Tab\MenuItem,"+\
" 512,Hauptfenster reagiert comment Dialogfenster,1024,Tool-Fenêtre: petite\\pas dans Taskleiste,;"+\
"Kombinationen volonté par Addition qui individuel Werte erreicht.;"+\
"Damit qui Befehl Wirkung zeigt, muss il VOR dem ersten Öffnen des Programmfensters avoir lieu!;"+\
"Bildschirmhintergrund klappt pas si Erstfenster avec CLS ouvert wird.;"+\
"Ideal pour Bildschirmschoner ist Stil 240.;"+\
"Der Stil 512 ist ensuite trop verwenden, si un Programme sur dem Hauptfenster Dialogelemente anlegt.;"+\
"Die Stile 256 et 128 sommes pas avec dem neuen Stil 512 zusammen trop verwenden.;"+\
"Dialogfenster-Stil 512 peut Dialogelemente sur dem Hauptfenster gem. Standard réagir, ...;"+\
"ad 512: - avec TAB peux entre den Dialogelementen umgeschaltet volonté, ...;"+\
"ad 512: - Buttons réagir seulement beim Loslassen des Knopfes, ...;"+\
"ad 512: - Hauptfenster reagiert pas selbst sur Schließen, mais es wird %Key=2 gesetzt."

REPEAT

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

    whileloop 24:i&=&Boucle:imprimer "  ";

        cas (i& mod 2) and testbit(fs&,&Boucle\2-1):color 15,1
        imprimer " ";substr$(ws$,i&,»);

        si i& mod 2: imprimer "    ";:color 0,15

            d'autre:imprimer:imprimer

        endif

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

        ifnot mausabfr&

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

            si lower$(left$($ Trim(tmp$),1))="t"

                TESTWINDOW()

            endif

            si 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

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

                    cas fs&=-1:end

                endif

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

                si mausabfr&

                    waitinput

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

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

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

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

                        d'autre

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

                        endif

                    d'autre

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

                    endif

                endif

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

            UNTIL the_cows_come_home&

            Proc TestWindow

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

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

                    sound 2000,200:waitinput:end:endif

                ENDPROC

                PROGEND