XProfan

Deutsch

Julian
Schmidt

Warum ist nach dem Wechsel aus dem Vollbildmodus die Titleleiste verschwunden?
Wie bekommt man es hin das sie nach dem Wechsel wieder vorhanden ist?
Kompilieren Markieren Separieren

declare mode$
WindowStyle 24'16=kein © + 8=System Menü
Windowtitle "Beispiel"
Window 300,100-500,300
cls rgb(255,0,0)
AppendMenubar 1001,"&Vollbild"
AppendMenubar 1002,"&Beenden"
AddHotKey 1101,122, 0//F11

while 1

    waitinput

    if menuitem(1001) or menuitem(1101)

        if mode$<>1

            SetStyle %hwnd,80'16=kein ©  + 64=keine Titlezeile
            ShowMax %hwnd
            mode$=1
            MessageBox("Vollbildmodus eingeschaltet","INFO",64)

        elseif mode$=1

            SetStyle %hwnd,24'16=kein © + 8=System Menü
            Setwindowpos %hwnd=300,100-500,300
            clear mode$
            MessageBox("Vollbildmodus ausgeschaltet","INFO",64)

        Endif

    elseif menuitem(1002)

        end

    Endif

Endwhile

LG

Julian57

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

13.03.2011 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

SetStyle erwartet API-Stilkonstanten keine von Xprofan.
Kompilieren Markieren Separieren

Declare mode$
WindowStyle 24'16=kein © + 8=System Menü
WindowTitle "Beispiel"
WINDOW 300,100-500,300
CLS rgb(255,0,0)
AppendMenubar 1001,"&Vollbild"
AppendMenubar 1002,"&Beenden"
AddHotKey 1101,122, 0//F11

While 1

    Waitinput

    If menuitem(1001) or menuitem(1101)

        If mode$<>1

            Windowstyle 80'16=kein ©  + 64=keine Titlezeile
            ShowMax %hwnd
            mode$=1
            MessageBox("Vollbildmodus eingeschaltet","INFO",64)

        ElseIf mode$=1

            Windowstyle 24'16=kein © + 8=System Menü
            Setwindowpos %hwnd=300,100-500,300
            Clear mode$
            MessageBox("Vollbildmodus ausgeschaltet","INFO",64)

        EndIf

    ElseIf menuitem(1002)

        End

    EndIf

EndWhile

Gruss
Andreas
________ ________ ________ ________ _
Profan 3.3 - XProfanX2
Win 95,98,ME,2000,XP,Vista - Win 7 32 / 64 Bit
ASUS X93S - Intel Core I7-NVIDIA GForce 540M 8GB Arbeitsspeicher
Homepage : [...]

13.03.2011 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Julian
Schmidt

Andreas Miethe (13.03.11)

SetStyle erwartet API-Stilkonstanten keine von Xprofan.
Kompilieren Markieren Separieren

Declare mode$
WindowStyle 24'16=kein © + 8=System Menü
WindowTitle "Beispiel"
WINDOW 300,100-500,300
CLS rgb(255,0,0)
AppendMenubar 1001,"&Vollbild"
AppendMenubar 1002,"&Beenden"
AddHotKey 1101,122, 0//F11

While 1

    Waitinput

    If menuitem(1001) or menuitem(1101)

        If mode$<>1

            Windowstyle 80'16=kein ©  + 64=keine Titlezeile
            ShowMax %hwnd
            mode$=1
            MessageBox("Vollbildmodus eingeschaltet","INFO",64)

        ElseIf mode$=1

            Windowstyle 24'16=kein © + 8=System Menü
            Setwindowpos %hwnd=300,100-500,300
            Clear mode$
            MessageBox("Vollbildmodus ausgeschaltet","INFO",64)

        EndIf

    ElseIf menuitem(1002)

        End

    EndIf

EndWhile

Jetzt wird der Stil des Programms nicht mehr angepasst !
Die Titleleiste bleibt im Vollbild erhalten

Wie kann man den Windowstyle nach dem erzeugen eines Hauptfensters ändern?

LG

Julian

˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗
Webseite [...]

13.03.2011 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Julian
Schmidt

Hab es nun über erweiterte Fensterstile hinbekommen
Kompilieren Markieren Separieren

 $H Windows.ph
declare mode$
WindowStyle 24'16=kein © + 8=System Menü
Windowtitle "Beispiel"
Window 300,100-500,300
cls rgb(255,0,0)
AppendMenubar 1001,"&Vollbild"
AppendMenubar 1002,"&Beenden"
AddHotKey 1101,122, 0//F11

while 1

    waitinput

    if menuitem(1001) or menuitem(1101)

        if mode$<>1

            SetStyle %hWnd,80
            ShowMax %hwnd
            mode$=1

        elseif mode$=1

            SetStyle %hWnd, 24 | ~WS_TILEDWINDOW
            Setwindowpos %hwnd=300,100-500,300
            clear mode$

        Endif

    elseif menuitem(1002)

        end

    Endif

Endwhile