Forums PureBasic - Français
https://www.purebasic.fr/french/
Voila, si vous savez, aidez moi sil vous plaiiiittt !!!Est-il possible de créer une sous fenetre en mode plein-ecran?
pour quoi faire ?#PB_IS_COOL a écrit :Bonjour !:)
J'aimerais vous poser une question:
Voila, si vous savez, aidez moi sil vous plaiiiittt !!!Est-il possible de créer une sous fenetre en mode plein-ecran?
@+
c'est impossible avec le mode plein ecran !!#PB_IS_COOL a écrit :Ben en fait c'est que lorsque on appui sur une touche, sa ouvre une fenetre sans réduire le plein écran...
; on peut meme la faire ronde !! 
Code : Tout sélectionner
Declare OpenScreen_()
Win0 = OpenScreen_()
Tmp = #PB_Window_SystemMenu ; Autorise le menu système sur la barre de titre.
Tmp | #PB_Window_MinimizeGadget ; Ajoute l'icône 'Réduire' sur la barre de titre. #PB_Window_SystemMenu est ajouté automatiquement.
Tmp | #PB_Window_MaximizeGadget ; Ajoute l'icône 'Agrandir' sur la barre de titre. #PB_Window_SystemMenu est ajouté automatiquement.
Tmp | #PB_Window_SizeGadget ; Ajoute LES possibilités de redimensionnement à la fenêtre.
Tmp | #PB_Window_TitleBar ; Crée la fenêtre avec une barre de titre.
Tmp | #PB_Window_WindowCentered ; Centre la fenêtre au milieu de la fenêtre mère ('FenetreMereID' doit être spécifié). LES paramètres x,y sont ignorés.
Win1 = OpenWindow(#PB_Any, 0, 0, 400, 200, "Fenêtre d'essai", Tmp)
MessageRequester("", "Une fenêtre dans un screen intégral")
Procedure OpenScreen_()
ExamineDesktops()
x = DesktopWidth(0)
y = DesktopHeight(0)
Win = OpenWindow(#PB_Any, 0, 0, x, y, "", $81000000)
InitSprite()
OpenWindowedScreen(WindowID(Win), 0, 0, x, y, 0, 0, 0)
ProcedureReturn Win
EndProcedureen definitif tu fais ce que j'ai ecris plus haut !Ollivier a écrit :Finalement, par cette astuce, ça devient possible
si! ça marche bienOllivier a écrit :Tout à fait Dobro. D'ailleurs, vu le peu de temps que j'ai PB. Je suis curieux de tester toutes les théories possibles et inimaginables. C'est peut-être hors sujet mais j'ai essayé de mettre un menu PopUp dans cet exemple ci-dessus : ça coince!
Declare OpenScreen_ ()
Win0 = OpenScreen_ ()
Tmp = #PB_Window_SystemMenu ; Autorise le menu système sur la barre de titre.
Tmp | #PB_Window_MinimizeGadget ; Ajoute l'icône 'Réduire' sur la barre de titre. #PB_Window_SystemMenu est ajouté automatiquement.
Tmp | #PB_Window_MaximizeGadget ; Ajoute l'icône 'Agrandir' sur la barre de titre. #PB_Window_SystemMenu est ajouté automatiquement.
Tmp | #PB_Window_SizeGadget ; Ajoute LES possibilités de redimensionnement à la fenêtre.
Tmp | #PB_Window_TitleBar ; Crée la fenêtre avec une barre de titre.
Tmp | #PB_Window_WindowCentered ; Centre la fenêtre au milieu de la fenêtre mère ('FenetreMereID' doit être spécifié). LES paramètres x,y sont ignorés.
Win1 = OpenWindow ( #PB_Any , 0, 0, 400, 200, "Fenêtre d'essai" , Tmp)
If CreatePopupMenu (0) ; La création du menu contextuel commence...
MenuTitle ( "Projet" ) ; Vous pouvez utiliser toutes les commandes relatives au menu,
MenuItem (1, "Ouvrir" ) ; comme si c'était un menu normal...
MenuItem (2, "Enregistrer" )
MenuItem (3, "Enregistrer sous" )
MenuItem (4, "Quitter" )
MenuBar ()
OpenSubMenu ( "Fic&hiers récents" )
MenuItem (5, "PureBasic.exe" )
MenuItem (6, "Test.txt" )
CloseSubMenu ()
MenuTitle ( "Editer" )
MenuTitle ( "Options" )
EndIf
Repeat
Select WaitWindowEvent () ; Examine quel type d'évènement est survenu sur la fenêtre
Case #WM_RBUTTONDOWN ; Le bouton droit de la souris a été clické =>
DisplayPopupMenu (0, WindowID (Win1 )) ; On affiche le menu contextuel
Case #PB_Event_Menu ; Un élément du menu a été sélectionné
Select EventMenu () ; On recupère le numéro de cet élement...
Case 1 : Debug "Menu : Ouvrir"
Case 2 : Debug "Menu : Enregistrer"
Case 3 : Debug "Menu : Enregistrer sous"
Case 4 : Quitter = 1
Case 5 : Debug "Menu : PureBasic.exe"
Case 6 : Debug "Menu : Text.txt"
EndSelect
Case #PB_Event_CloseWindow
Quitter = 1
EndSelect
Until Quitter = 1
MessageRequester ( "" , "Une fenêtre dans un screen intégral" )
Procedure OpenScreen_ ()
ExamineDesktops ()
x = DesktopWidth (0)
Y = DesktopHeight (0)
Win = OpenWindow ( #PB_Any , 0, 0, x, Y, "" , $81000000)
InitSprite ()
OpenWindowedScreen ( WindowID (Win), 0, 0, x, Y, 0, 0, 0)
ProcedureReturn Win
EndProcedure
Code : Tout sélectionner
Declare OpenScreen_ ()
Win0 = OpenScreen_ ()
Tmp = #PB_Window_SystemMenu ; Autorise le menu système sur la barre de titre.
Tmp | #PB_Window_MinimizeGadget ; Ajoute l'icône 'Réduire' sur la barre de titre. #PB_Window_SystemMenu est ajouté automatiquement.
Tmp | #PB_Window_MaximizeGadget ; Ajoute l'icône 'Agrandir' sur la barre de titre. #PB_Window_SystemMenu est ajouté automatiquement.
Tmp | #PB_Window_SizeGadget ; Ajoute LES possibilités de redimensionnement à la fenêtre.
Tmp | #PB_Window_TitleBar ; Crée la fenêtre avec une barre de titre.
Tmp | #PB_Window_WindowCentered ; Centre la fenêtre au milieu de la fenêtre mère ('FenetreMereID' doit être spécifié). LES paramètres x,y sont ignorés.
Win1 = OpenWindow ( #PB_Any , 0, 0, 400, 200, "Fenêtre d'essai" , Tmp)
;************************************************************
;************************************************************
; ICI RAJOUT DE CODE QUI VA BUGGER
;************************************************************
If CreateGadgetList(WindowID(Win1) )
TreeGadget(29, 0, 0, 300, 300)
AddGadgetItem(29, 0, "Root", 0, 0)
EndIf
;************************************************************
; FIN RAJOUT DE CODE
;************************************************************
;************************************************************
If CreatePopupMenu (0) ; La création du menu contextuel commence...
MenuTitle ( "Projet" ) ; Vous pouvez utiliser toutes les commandes relatives au menu,
MenuItem (1, "Ouvrir" ) ; comme si c'était un menu normal...
MenuItem (2, "Enregistrer" )
MenuItem (3, "Enregistrer sous" )
MenuItem (4, "Quitter" )
MenuBar ()
OpenSubMenu ( "Fic&hiers récents" )
MenuItem (5, "PureBasic.exe" )
MenuItem (6, "Test.txt" )
CloseSubMenu ()
MenuTitle ( "Editer" )
MenuTitle ( "Options" )
EndIf
;************************************************************
;************************************************************
; PAR CONTRE SI LE RAJOUT EST ICI, CA FONCTIONNERA
;************************************************************
;************************************************************
; ICI RAJOUT
;************************************************************
;************************************************************
Repeat
Select WaitWindowEvent () ; Examine quel type d'évènement est survenu sur la fenêtre
Case #WM_RBUTTONDOWN ; Le bouton droit de la souris a été clické =>
DisplayPopupMenu (0, WindowID (Win1 )) ; On affiche le menu contextuel
Case #PB_Event_Menu ; Un élément du menu a été sélectionné
Select EventMenu () ; On recupère le numéro de cet élement...
Case 1 : Debug "Menu : Ouvrir"
Case 2 : Debug "Menu : Enregistrer"
Case 3 : Debug "Menu : Enregistrer sous"
Case 4 : Quitter = 1
Case 5 : Debug "Menu : PureBasic.exe"
Case 6 : Debug "Menu : Text.txt"
EndSelect
Case #PB_Event_CloseWindow
Quitter = 1
EndSelect
Until Quitter = 1
MessageRequester ( "" , "Une fenêtre dans un screen intégral" )
Procedure OpenScreen_ ()
ExamineDesktops ()
x = DesktopWidth (0)
Y = DesktopHeight (0)
Win = OpenWindow ( #PB_Any , 0, 0, x, Y, "" , $81000000)
InitSprite ()
OpenWindowedScreen ( WindowID (Win), 0, 0, x, Y, 0, 0, 0)
ProcedureReturn Win
EndProcedure
Ollivier a écrit :C'est ton code avec un rajout de TreeGadget(). Sur le mien, ça ne fonctionne pas. J'ai peut-être zappé un tuto là-dessus?
ça viendrai de la, que ça m'étonnerai guerre pffffff ! et il s'etonne ... pffffff !Ollivier a écrit :PB 4.02
il n'y a pas de problèmes majeur de compatibilité depuis la version 4.00 !Ollivier a écrit :Ben écoute. Je débarque
Chui un pti jeune! (29/06)
Je suis peut-être accroché au train mais ça ne m'empêche pas de courir encore sur le quai
Bon ben je vais essayer la nouvelle version. J'espère qu'elle est en Fr. ça m'arrangerait. Et puis j'espère que mes 1er source sont compatibles sans trop de correction...