Page 2 sur 2
Publié : mer. 08/mars/2006 9:26
par Dr. Dri
D'accord, dans cas j'ai enfin compris ^^
je pense que c'est ca:
Code : Tout sélectionner
OpenWindow(1, 284, 247, 800, 600, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_Invisible | #PB_Window_TitleBar | #PB_Window_ScreenCentered , "Programme")
style = GetWindowLong_(WindowID(1), #GWL_STYLE) | #WS_MAXIMIZE
SetWindowLong_(WindowID(1), #GWL_STYLE, Style)
HideWindow(1,0)
Repeat
event=WaitWindowEvent()
If EventWindow()=1
If event=#WM_CLOSE
Quit=1
EndIf
EndIf
Until Quit=1
Dri
Publié : mer. 08/mars/2006 10:46
par olivier
YES
YES
YES
Merci pour ta patience, et voilà cela marche, je rebalance le code de départ avec ton code et cela donne bien l'ouverture de la petite puis de la grande en grand écran !
Ce n'était pas évident à expliquer sans mettre 2000 ligne....
Encore merci et à +
Stef
Code : Tout sélectionner
plein_ecran=1 ; avec 0 cela marche bien, la fenetre invisible le reste le temps prévu
; avec 1 : pour mettre la fenetre en plein ecran, la fenetre apparet trop tôt !
OpenWindow(0,0,0,400,300,#PB_Window_BorderLess|#PB_Window_ScreenCentered,"Intro")
OpenWindow(1, 284, 247, 800, 600, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_Invisible | #PB_Window_TitleBar | #PB_Window_ScreenCentered , "Programme")
If plein_ecran=1
;SendMessage_(WindowID(1),#WM_SYSCOMMAND,#SC_MAXIMIZE,0)
style = GetWindowLong_(WindowID(1), #GWL_STYLE) | #WS_MAXIMIZE
SetWindowLong_(WindowID(1), #GWL_STYLE, style)
EndIf
Delay(1000)
CloseWindow(0)
HideWindow(1,0)
Repeat
event=WaitWindowEvent()
If EventWindow()=1
If event=#WM_CLOSE
Quit=1
EndIf
EndIf
Until Quit=1
Publié : mer. 08/mars/2006 10:50
par Dr. Dri
olivier a écrit :Merci pour ta patience
C'est que je suis plutôt long à la détente lol
Dri
Publié : mer. 08/mars/2006 14:18
par olivier
Enfer et Damnation !
J'halucine, c'est toujours pas bon !
Cela marche mais en fait non, car la taille de la fênetre n'est toujours pas changé, tant qu'elle n'est pas décachée !
HHHHHAAAAAAAAARRRRRRRRRRGGGGGGGGGGGGUE
Bon ben laisse tomber, je vais me débrouiller autrement...
Merci encore
Code : Tout sélectionner
plein_ecran=1 ; avec 0 cela marche bien, la fenetre invisible le reste le temps prévu
; avec 1 : pour mettre la fenetre en plein ecran, la fenetre apparet trop tôt !
OpenWindow(0,0,0,400,300,#PB_Window_BorderLess|#PB_Window_ScreenCentered,"Intro")
OpenWindow(1, 284, 247, 800, 600, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_Invisible | #PB_Window_TitleBar | #PB_Window_ScreenCentered , "Programme")
If plein_ecran=1
;SendMessage_(WindowID(1),#WM_SYSCOMMAND,#SC_MAXIMIZE,0)
style = GetWindowLong_(WindowID(1), #GWL_STYLE) | #WS_MAXIMIZE
SetWindowLong_(WindowID(1), #GWL_STYLE, style)
Debug WindowHeight(1)
EndIf
Delay(1000)
CloseWindow(0)
HideWindow(1,0)
Repeat
event=WaitWindowEvent()
If EventWindow()=1
If event=#WM_CLOSE
Quit=1
EndIf
EndIf
Until Quit=1
Publié : mer. 08/mars/2006 14:34
par Dr. Dri
Et tu as essayé de la montrer/cacher pour mettre à jour les dimensions de la fenetre ? A priori ca n'a pas le temps de s'afficher...
Dri
Publié : mer. 08/mars/2006 15:38
par brossden
Bonjour à tous
Pourquoi ne pas faire tous les calculs de dimenssionnement avant de demander la creation de la fenetre et de ne l'ouvrir que lorsque les calcul sont finis ????
Pige pas le problème !
Une autre solution créer la fenetre en dehors de l'ecran et la ramener dans l'ecran au dernier moment mais la solution 1 me plait mieux!
Enfin c juste mon avis