XProfan

English

Julian
Schmidt

Why is to the change from the Vollbildmodus The Titleleiste disappeared?
How get one it there the tappt im dunkeln to the change again present is?
Compile Mark Separation

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 [...]

03/13/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Andreas
Miethe

DOKTOR XPROFAN EHRENHALBER

SetStyle expects API-Stilkonstanten no of XProfan.
Compile Mark Separation

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 : [...]

03/13/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Julian
Schmidt

Andreas Miethe (13.03.11)

SetStyle expects API-Stilkonstanten no of XProfan.
Compile Mark Separation

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

now becomes the Style the program not any more adjusted !
The Titleleiste remaining in the Vollbild receive

How can whom Windowstyle to the produce a main window Change?

LG

Julian

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

03/13/11 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Julian
Schmidt

Have it now over erweiterte Fensterstile hinbekommen
Compile Mark Separation

 $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