PureBasic

Code : Tout sélectionner

;
; This code is automatically generated by the FormDesigner.
; Manual modification is possible to adjust existing commands, but anything else will be dropped when the code is compiled.
; Event procedures needs to be put in another source file.
;

Global FEN_Principale

Global BTN_Valider, SAI_Nom

Procedure OpenFEN_Principale(x = 0, y = 0, width = 600, height = 400)
  FEN_Principale = OpenWindow(#PB_Any, x, y, width, height, "", #PB_Window_SystemMenu)
  BTN_Valider = ButtonGadget(#PB_Any, 200, 30, 100, 25, "Valider")
  SAI_Nom = StringGadget(#PB_Any, 60, 30, 100, 25, "")
EndProcedure

Code : Tout sélectionner

EnableExplicit

Global	FEN_Principale_Fenetre_d_appel.i
Global	FEN_Principale_QuitteFenetre.b

XIncludeFile("FEN_Principale.pbf")

;-
;-=== FEN_Principale =============================
;-

Procedure Initialisation_de_FEN_Principale()
EndProcedure

Procedure Fermeture_de_FEN_Principale()
	If FEN_Principale_Fenetre_d_appel<>-1
		DisableWindow(FEN_Principale_Fenetre_d_appel, 0)
		SetActiveWindow(FEN_Principale_Fenetre_d_appel)
	EndIf
	CloseWindow(FEN_Principale)
	FEN_Principale_QuitteFenetre=#True
EndProcedure

;-
;-=== BTN_Valider =============================
;-

Procedure Initialisation_de_BTN_Valider()
EndProcedure

Procedure Clic_sur_BTN_Valider()
EndProcedure

;-
;-=== SAI_Nom =============================
;-

Procedure Initialisation_de_SAI_Nom()
EndProcedure

Procedure Entree_de_SAI_Nom()
EndProcedure

Procedure Sortie_de_SAI_Nom()
EndProcedure

Procedure A_Chaque_Modification_de_SAI_Nom()
EndProcedure

;-
;-*** Ouverture de la fenêtre / Boucle d'évènements ********
;-
Procedure Ouverture_de_FEN_Principale()
	Protected.i	Event, EventWindow, EventMenu, EventGadget, EventType
	FEN_Principale_QuitteFenetre=#False
	FEN_Principale_Fenetre_d_appel=GetActiveWindow()
	If FEN_Principale_Fenetre_d_appel<>-1
		DisableWindow(FEN_Principale_Fenetre_d_appel,1)
	EndIf
	OpenFEN_Principale()
	SetActiveWindow(FEN_Principale)
	Initialisation_de_FEN_Principale()

	If Not FEN_Principale_QuitteFenetre : Initialisation_de_BTN_Valider() : EndIf
	If Not FEN_Principale_QuitteFenetre : Initialisation_de_SAI_Nom() : EndIf

	While Not FEN_Principale_QuitteFenetre

		Event		= WaitWindowEvent()
		EventWindow = EventWindow()
		EventMenu	= EventMenu()
		EventGadget = EventGadget()
		EventType 	= EventType()

		Select EventWindow
			Case FEN_Principale
				Select Event
					Case #PB_Event_Menu
						Select EventMenu
						EndSelect
					Case #PB_Event_Gadget
						Select EventGadget
							Case BTN_Valider
								Select EventType
									Case #PB_EventType_LeftClick	: Clic_sur_BTN_Valider()
								EndSelect
							Case SAI_Nom
								Select EventType
									Case #PB_EventType_Focus		: Entree_de_SAI_Nom()
									Case #PB_EventType_LostFocus	: Sortie_de_SAI_Nom()
									Case #PB_EventType_Change		: A_Chaque_Modification_de_SAI_Nom()
								EndSelect
						EndSelect
					Case #PB_Event_CloseWindow						: Fermeture_de_FEN_Principale()
				EndSelect
		EndSelect

	Wend

EndProcedure

Ouverture_de_FEN_Principale()