| |
|
|
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? KompilierenMarkierenSeparierendeclare 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 ▲ |
|
|
|
|
Andreas Miethe
| SetStyle erwartet API-Stilkonstanten keine von Xprofan. KompilierenMarkierenSeparierenDeclare 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 ▲ |
|
|
|
|
Julian Schmidt | Andreas Miethe (13.03.11)
SetStyle erwartet API-Stilkonstanten keine von Xprofan. KompilierenMarkierenSeparierenDeclare 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 ▲ |
|
|
|
|
Julian Schmidt | Hab es nun circa erweiterte Fensterstile hinbekommen KompilierenMarkierenSeparieren $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
LG
Julian |
|
|
| ˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗˗ Webseite [...] | 13.03.2011 ▲ |
|
|
|