Mettre une fentre invisible en plein ecran ?

[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

[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 

[Dr. Dri]

Merci pour ta patience

C'est que je suis plutôt long à la détente lol

Dri

[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 

[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

[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