Page 1 sur 1
AboutRequester
Publié : sam. 10/juin/2006 15:48
par Dr. Dri
je suis tombé par hasard sur la boite de dialogue "About" de windows alors voila un chtit code pour l'utiliser comme un requester PB ^^
Code : Tout sélectionner
Procedure.l AboutRequester(Title.s, Text.s = #NULL$, Window.l = #PB_Any, Beep.l = #MB_ICONINFORMATION)
Protected About.l, WindowID.l, IconID.l, Word.w
If Not IsWindow(Window) : Window = EventWindow() : EndIf
If IsWindow(Window) : WindowID = WindowID(Window) : EndIf
MessageBeep_(Beep)
IconID = ExtractAssociatedIcon_(GetModuleHandle_(#Null), ProgramFilename(), @Word)
About = ShellAbout_(WindowID, Title, Text, IconID)
If IconID : DestroyIcon_(IconID) : EndIf
ProcedureReturn About
EndProcedure
AboutRequester("AboutRequester")
Dri
Publié : sam. 10/juin/2006 20:17
par Anonyme2
Excellent
Publié : mer. 14/juin/2006 17:38
par bernard13
merci je fais essayer de modifier pour le personaliser
Publié : mer. 14/juin/2006 17:57
par Dr. Dri
pour ca tu peux ajouter la possibilité de choisir l'image mais il faut t'assurer que c'est une icône.
J'ai posté un exemple ici
http://purebasic.hmt-forum.com/viewtopic.php?p=50359
Dri
Publié : jeu. 15/juin/2006 16:50
par Jacobus
Une autre solution, en utilisant directement l'API
Ca prend une seule ligne et l'icône est automatiquement récupérée.
exemple :
Code : Tout sélectionner
Enumeration
#Window
#Btn_About
EndEnumeration
FlagWin = #PB_Window_SystemMenu| #PB_Window_ScreenCentered |#PB_Window_TitleBar
If OpenWindow(#Window,0,0, 200, 100, "ABOUT",FlagWin)=0 Or CreateGadgetList(WindowID(#Window))=0
End
EndIf
ButtonGadget(#Btn_About, 25,30,150,40,"About Windows")
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_Gadget
Select EventGadget()
Case #Btn_About : ShellAbout_(WindowID(#Window),"WINDOWS ABOUT REQUESTER","Copyright "+Chr(169)+" 2006 - PB4. Tous droits réservés.",0)
EndSelect
EndIf
Until Event = #PB_Event_CloseWindow
End
Re: AboutRequester
Publié : jeu. 15/juin/2006 17:17
par Dr. Dri
Dr. Dri a écrit :voila un chtit code pour l'utiliser comme un requester PB
Si je file le code c'est pour laisser le choix entre utiliser ma fonction telle quelle, ou piocher ce qui t'intéresse dedans
Dri
Publié : jeu. 15/juin/2006 20:45
par Jacobus
C'est tout l'avantage des "chtits bouts de code"
Publié : jeu. 15/juin/2006 21:09
par bernard13
moi j'ai mis un bout de code
aussi
voir section debutant