Français
Source/ Codesnippets

calculateur Windowstyle

 

KHR
Irgendwann était es mir trop blöd toujours wieder cet blöden Bits zusammen trop zählen à richtigen Werte pour Fenêtre Style zusammen trop bekommen.

Daher ist cette kleine calculateur entstanden.
KompilierenMarqueSéparation
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,
à class=s2>) erzeugte la fenêtre.
 
Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan
01.04.2008  
 




KHR
Salut,

.
hab den Code im ersten Beitrag encore la fois geändert. était en encore faute drin et zusätzlich hab je encore nen une Rückwärtsrechner incorporé, avec dem on sich aus Zahlenwerten qui Flags aufdröseln laisser peux

et weil je un fauler Computeruser suis, hab je cela tool juste direct dans qui xprofed incorporé. maintenant doit je pas toujours sur qui pladde chercher.
.
 
Gruß
Karl-Heinz
WIN XP home/Pro / XPROFAN 11 / P2CPP
ATMEL + BASCOM Fan
01.04.2008  
 



Karl-Heinz


et weil je un fauler Computeruser suis


Kollege ? ;)

cela Tool hat encore gefehlt !
 
01.04.2008  
 



Zum Quelltext


Topictitle, max. 100 marque.
 

Systemprofile:

ne...aucune Systemprofil angelegt. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

s'il te plaît s'inscrire um une Beitrag trop verfassen.
 

Options du sujet

4.558 Views

Untitledvor 0 min.
Axel Berse12.09.2023
H.Brill04.05.2023
Frank16.04.2021
RudiB.29.03.2020
plus...

Themeninformationen

cet Thema hat 2 participant:

KHR (2x)
unbekannt (1x)


Admins  |  AGB  |  Applications  |  Auteurs  |  Chat  |  protection des données  |  Télécharger  |  Entrance  |  Aider  |  Merchantportal  |  Empreinte  |  Mart  |  Interfaces  |  SDK  |  Services  |  Jeux  |  cherche  |  Support

un projet aller XProfaner, qui il y a!


Mon XProfan
Privé Nouvelles
Eigenes Ablageforum
Sujets-La liste de voeux
Eigene Posts
Eigene Sujets
Zwischenablage
Annuler
 Deutsch English Français Español Italia
Traductions

protection des données


Wir verwenden Cookies seulement comme Session-Cookies à cause de qui technischen Notwendigkeit et chez uns gibt es aucun Cookies de Drittanbietern.

si du ici sur unsere Webseite klickst ou bien navigierst, stimmst du unserer Erfassung de Informationen dans unseren Cookies sur XProfan.Net trop.

Weitere Informationen trop unseren Cookies et en supplément, comment du qui Kontrolle par-dessus behältst, findest du dans unserer nachfolgenden Datenschutzerklärung.


d'accordDatenschutzerklärung
je voudrais keinen Cookie