Code: Select all
Declare about_purebasic()
Enumeration
#WINDOW_ABOUT_PUREBASIC
#WINDOW_MAIN
#IMAGE_WINDOW_ABOUT_PUREBASIC
#IMAGE_WINDOW_ABOUT_PUREBASIC_2
#EDITOR_WINDOW_ABOUT_PUREBASIC
#BUTTON_WINDOW_ABOUT_PUREBASIC_OKAY
EndEnumeration
CreateImage(31,407,133)
CreateImage(32,130,130)
OpenWindow(#WINDOW_MAIN,0,0,300,300,"Linux")
about_purebasic()
End
Procedure about_purebasic()
If OpenWindow(#WINDOW_ABOUT_PUREBASIC,0,0,550+4+4+4+4,283,"About PureBasic",#PB_Window_WindowCentered,WindowID(#WINDOW_MAIN))=#False : MessageRequester("Error", "Can't open a window.",#PB_MessageRequester_Error) : EndIf
DisableWindow(#WINDOW_MAIN,#True)
; Big logo 407x133 pixels
ImageGadget(#IMAGE_WINDOW_ABOUT_PUREBASIC,10+2+2+4,10,407,130,ImageID(31))
; Z logo 130x130 pixels
ImageGadget(#IMAGE_WINDOW_ABOUT_PUREBASIC_2,2+2+GadgetX(#IMAGE_WINDOW_ABOUT_PUREBASIC)+GadgetWidth(#IMAGE_WINDOW_ABOUT_PUREBASIC)+5,10,130,130,ImageID(32))
; Editor Gadget with PureBasic information
EditorGadget(#EDITOR_WINDOW_ABOUT_PUREBASIC,10+2+2+4,GadgetY(#IMAGE_WINDOW_ABOUT_PUREBASIC)+GadgetHeight(#IMAGE_WINDOW_ABOUT_PUREBASIC)+5,407+130-3-2-1,100+10-10,#PB_Editor_ReadOnly|#PB_Text_Center)
t$=""
t$+"Coded/Compiled using PureBasic "+current_version_purebasic$+" - "+current_release_date_purebasic$+#LF$
t$+Chr(34)+"Feel the ..Pure.. Power"+Chr(34)+#LF$+#LF$
t$+"© 1998-"+FormatDate("%yyyy", #PB_Compiler_Date)+" Fantaisie Software."+#LF$
t$+"www.purebasic.com"
SetGadgetText(#EDITOR_WINDOW_ABOUT_PUREBASIC,t$)
; OKAY button
ButtonGadget(#BUTTON_WINDOW_ABOUT_PUREBASIC_OKAY,220+2+2+4,253,90,25,"OK")
; Wait for the user to press the OKAY button
okay=#False
Repeat
event=WaitWindowEvent()
; Pressed the close window gadget (Ubuntu) OR <ENTER> or <ESC>
If (event=#PB_Event_CloseWindow) Or (event=#PB_Event_Menu And EventMenu()=1003) Or (event=#PB_Event_Menu And EventMenu()=1000)
okay=#True
EndIf
Select event
Case #PB_Event_Gadget
Select EventGadget()
; OKAY button
Case #BUTTON_WINDOW_ABOUT_PUREBASIC_OKAY
okay=#True
EndSelect
EndSelect
Until okay=#True
; Close the About window and activate the main window
DisableWindow(#WINDOW_MAIN,#False)
CloseWindow(#WINDOW_ABOUT_PUREBASIC)
EndProcedure
; IDE Options = PureBasic 5.62 beta 1 (Linux - x64)
; CursorPosition = 20
; FirstLine = 4
; Folding = -
; EnableXP