XProfan

WindowStyle - Rechner
- 1. Ãœberarbeitung zur Beseitigung von Fehlern
- erweitert um Rückwärtsrechner
ganz simples tool zum Berechnen der WindowStyles
Beim Einbinden In Xprofed oder anderen Profan Editor einfach
proc: WindowStyleRechner  aufrufen

proc ausrechnen

    style%=0
    case @GetCheck(CB_StyleRech_01&): style%=1
    case @GetCheck(CB_StyleRech_02&): style%=style%+2
    case @GetCheck(CB_StyleRech_03&): style%=style%+4
    case @GetCheck(CB_StyleRech_04&): style%=style%+8
    case @GetCheck(CB_StyleRech_05&): style%=style%+16
    case @GetCheck(CB_StyleRech_06&): style%=style%+32
    case @GetCheck(CB_StyleRech_07&): style%=style%+64
    case @GetCheck(CB_StyleRech_08&): style%=style%+128
    case @GetCheck(CB_StyleRech_09&): style%=style%+256
    case @GetCheck(CB_StyleRech_10&): style%=style%+512
    case @GetCheck(CB_StyleRech_11&): style%=style%+1024
    settext TextFeld_1&, @str$(style%)

endproc

proc rueckwaerts_rechnen

    setcheck CB_StyleRech_01& , 0
    setcheck CB_StyleRech_02& , 0
    setcheck CB_StyleRech_03& , 0
    setcheck CB_StyleRech_04& , 0
    setcheck CB_StyleRech_05& , 0
    setcheck CB_StyleRech_06& , 0
    setcheck CB_StyleRech_07& , 0
    setcheck CB_StyleRech_08& , 0
    setcheck CB_StyleRech_09& , 0
    setcheck CB_StyleRech_10& , 0
    setcheck CB_StyleRech_11& , 0
    case @TestBit(Style%, 0)  : setcheck CB_StyleRech_01& , 1
    case @TestBit(Style%, 1)  : setcheck CB_StyleRech_02& , 1
    case @TestBit(Style%, 2)  : setcheck CB_StyleRech_03& , 1
    case @TestBit(Style%, 3)  : setcheck CB_StyleRech_04& , 1
    case @TestBit(Style%, 4)  : setcheck CB_StyleRech_05& , 1
    case @TestBit(Style%, 5)  : setcheck CB_StyleRech_06& , 1
    case @TestBit(Style%, 6)  : setcheck CB_StyleRech_07& , 1
    case @TestBit(Style%, 7)  : setcheck CB_StyleRech_08& , 1
    case @TestBit(Style%, 8)  : setcheck CB_StyleRech_09& , 1
    case @TestBit(Style%, 9)  : setcheck CB_StyleRech_10& , 1
    case @TestBit(Style%,10)  : setcheck CB_StyleRech_11& , 1
    ausrechnen

endproc

PROC WindowStyleRechner  ---------------------------------------------------------------------------> Dialoganfang

    declare style%
    DECLARE StyleRechDlg&, DIALOGENDE%
    DECLARE CB_StyleRech_01&
    DECLARE CB_StyleRech_02&
    DECLARE CB_StyleRech_03&
    DECLARE CB_StyleRech_04&
    DECLARE CB_StyleRech_05&
    DECLARE CB_StyleRech_06&
    DECLARE CB_StyleRech_07&
    DECLARE CB_StyleRech_08&
    DECLARE CB_StyleRech_09&
    DECLARE CB_StyleRech_10&
    DECLARE CB_StyleRech_11&
    DECLARE CB_StyleRech_12&
    DECLARE TextFeld_1&
    DECLARE TextFeld_2&
    DECLARE TextFeld_3&
    DECLARE TextFeld_4&
    DECLARE TextFeld_5&
    StyleRechDlg&=CREATE(DIALOG,%HWND,Berechnen von WindowStyle,22,20,770,690)
    startpaint  StyleRechDlg&
    USEFONT Arial,15,0,0,0,0
    SETDIALOGFONT 1
    CB_StyleRech_01& =@CREATE(CHECKBOX,StyleRechDlg&,   (1) Fenster hat Vergrößerungsbox (Pfeil nach oben) und kann vergrößert werden, nur in Verbindung mit (4)
    ,  10,  35, 720,  50)
    CB_StyleRech_02& =@CREATE(CHECKBOX,StyleRechDlg&,   (2) Fenster hat Verkleinerungsbox (Pfeil nach unten) und kann zum Icon werden, nur in Verbindung mit (4)
    ,  10,  70, 720,  50)
    CB_StyleRech_03& =@CREATE(CHECKBOX,StyleRechDlg&,   (3) Dicker Rahmen (Größe des Fensters ist veränderbar)
    ,  10, 105, 720,  50)
    CB_StyleRech_04& =@CREATE(CHECKBOX,StyleRechDlg&,   (4) Fenster hat System-Menü
    ,  10, 140, 720,  50)
    CB_StyleRech_05& =@CREATE(CHECKBOX,StyleRechDlg&,   (5) Fenster hat zunächst kein Menü (also auch kein ©)
    ,  10, 175, 720,  50)
    CB_StyleRech_06& =@CREATE(CHECKBOX,StyleRechDlg&,   (6) Fenster benutzt Bildschirmhintergrund als Hintergrund
    ,  10, 210, 720,  50)
    CB_StyleRech_07& =@CREATE(CHECKBOX,StyleRechDlg&,   (7) Das Fenster hat keine Titelzeile
    ,  10, 245, 720,  50)
    CB_StyleRech_08& =@CREATE(CHECKBOX,StyleRechDlg&,   (8) Das Programm kann weder mit <Strg-Esc>, <Alt-Tab> noch <Alt-F4> verlassen werden
    ,  10, 280, 720,  50)
    CB_StyleRech_09& =@CREATE(CHECKBOX,StyleRechDlg&,   (9) Das Programm kann weder mit <Alt-F4> noch mit <Strg-Esc> verlassen werden. Umschaltung mit <Alt-Tab>
    ,  10, 315, 720,  50)
    CB_StyleRech_10& =@CREATE(CHECKBOX,StyleRechDlg&,  (10) Dialogfensterstil für Hauptfenster
    ,  10, 350, 720,  50)
    CB_StyleRech_11& =@CREATE(CHECKBOX,StyleRechDlg&,  (11)Fenster hat die Eigenschaft ToolWindow, = kleinere Titelleiste und taucht nicht in der Taskbar auf
    ,  10, 385, 720,  50)
    CB_StyleRech_12& = @CREATE( BUTTON,StyleRechDlg&, Fenster schliessen  , 60 , 600 , 160 , 30 )
    TextFeld_1& =@CREATE(TEXT,StyleRechDlg&,   0  ,   10 ,  464 ,  040 ,  020)
    TextFeld_2& =@CREATE(TEXT,StyleRechDlg&,Entsprechende Checkbox(en) ankliclen und unten Ergebnis ablesen ,   10 ,   12 ,  720 ,  020)
    TextFeld_3& =@CREATE(TEXT,StyleRechDlg&,= WIndowStyle ,   55 ,  464 ,  270 ,   20 )
    TextFeld_4& =@CREATE(EDIT,StyleRechDlg&,   0  ,   10 ,  499 ,  80 ,  20)
    TextFeld_5& =@CREATE(TEXT,StyleRechDlg&,Sytle-Wert eingaben um die Flags ausrechen und anzeigen zu lassen ,   100 ,  499 ,  720 ,   20 )
    SETFOCUS(StyleRechDlg&)
    DIALOGENDE%=0

    WHILENOT DIALOGENDE%

        WAITINPUT

        If %KEY = 2

            LET DIALOGENDE%= 1

        ELSEIF GETFOCUS(CB_StyleRech_01&)

            ausrechnen

        ELSEIF GETFOCUS(CB_StyleRech_02&)

            ausrechnen

        ELSEIF GETFOCUS(CB_StyleRech_03&)

            ausrechnen

        ELSEIF GETFOCUS(CB_StyleRech_04&)

            ausrechnen

        ELSEIF GETFOCUS(CB_StyleRech_05&)

            ausrechnen

        ELSEIF GETFOCUS(CB_StyleRech_06&)

            ausrechnen

        ELSEIF GETFOCUS(CB_StyleRech_07&)

            ausrechnen

        ELSEIF GETFOCUS(CB_StyleRech_08&)

            ausrechnen

        ELSEIF GETFOCUS(CB_StyleRech_09&)

            ausrechnen

        ELSEIF GETFOCUS(CB_StyleRech_10&)

            ausrechnen

        ELSEIF GETFOCUS(CB_StyleRech_11&)

            ausrechnen

        ELSEIF GETFOCUS(TextFeld_4&  )

            style% = @val(@GetText$(TextFeld_4&))
            rueckwaerts_rechnen

        ELSEIF GETFOCUS(CB_StyleRech_12&)

            DIALOGENDE%  = 1

        ENDIF

    ENDWHILE

    endpaint
    @DESTROYWINDOW(StyleRechDlg&)
    ENDPROC --------------------------------------------------------------------------------> Dialogende
    cls
    WindowStyleRechner
    end
    Auszug aus der Hilfe zu XPROFAN 10:
    1 - Fenster hat Vergrößerungsbox (Pfeil nach oben) und kann vergrößert werden, nur in Verbindung mit 8 möglich, entspricht ~WS_MAXIMIZEBOX/$10000
    2 - Fenster hat Verkleinerungsbox (Pfeil nach unten) und kann zum Icon werden, nur in Verbindung mit 8 möglich, entspricht ~WS_MINIMIZEBOX/$10000
    4 - Dicker Rahmen (Größe des Fensters ist veränderbar), entspricht ~WS_THICKFRAME/$10000
    8 - Fenster hat System-Menü, entspricht ~WS_SYSMENU/$10000
    16 - Fenster hat zunächst kein Menü (also auch kein ©)
    32Â - Fenster benutzt Bildschirmhintergrund als Hintergrund
    64Â - Das Fenster hat keine Titelzeile
    128Â - Das Programm kann weder mit <Strg-Esc>, <Alt-Tab> noch <Alt-F4> verlassen werden.
    256 - Das Programm kann weder mit <Alt-F4> noch mit <Strg-Esc> verlassen werden. Umschaltung mit <Alt-Tab> ist jedoch möglich. Das Systemmenü ist wirkungslos, kann aber über @MenuItem bzw. %MenuItem im Programm abgefragt werden.
    512 - Dialogfensterstil für Hauptfenster (s.u.)
    1024 - Das Fenster hat die Eigenschaft ToolWindow, d.h. ein solches Fenster hat eine kleinere Titelleiste und taucht nicht in der Taskbar auf. Der Stil wirkt sowohl auf das Hauptfenster als auch auf mit @Create(Window,...) erzeugte Fenster.