-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathAboutWindow.pbf
43 lines (32 loc) · 2.01 KB
/
AboutWindow.pbf
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
; Form Designer for Purebasic - 5.70
; Warning: this file uses a strict syntax, if you edit it, make sure to respect the Form Designer limitation or it won't be opened again.
;
; 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 Window_About
Global Image_Icon, Text_Title, Text_Version, Text_Copyright, Text_Copyright_Icon, Text_Copyright_Icon_Copy1
Global Img_Window_About_0
UsePNGImageDecoder()
Img_Window_About_0 = LoadImage(#PB_Any,"/Users/niklas/code/ciphersaberGUI/Ciphersaber64.png")
Enumeration FormFont
#Font_Window_About_0
#Font_Window_About_1
EndEnumeration
LoadFont(#Font_Window_About_0,".AppleSystemUIFont", 14, #PB_Font_Bold)
LoadFont(#Font_Window_About_1,".AppleSystemUIFont", 10)
Procedure OpenWindow_About(x = 0, y = 0, width = 310, height = 210)
Window_About = OpenWindow(#PB_Any, x, y, width, height, "", #PB_Window_SystemMenu | #PB_Window_WindowCentered)
Image_Icon = ImageGadget(#PB_Any, 125, 27, 64, 64, ImageID(Img_Window_About_0))
Text_Title = TextGadget(#PB_Any, 0, 90, 310, 34, "Ciphersaber", #PB_Text_Center)
SetGadgetFont(Text_Title, FontID(#Font_Window_About_0))
Text_Version = TextGadget(#PB_Any, 0, 110, 310, 24, "Version 1.0 (23)", #PB_Text_Center)
SetGadgetFont(Text_Version, FontID(#Font_Window_About_1))
Text_Copyright = TextGadget(#PB_Any, 0, 180, 310, 21, "Kopyleft Ⓚ 2016 Niklas Hennigs. All rights reversed.", #PB_Text_Center)
SetGadgetFont(Text_Copyright, FontID(#Font_Window_About_1))
Text_Copyright_Icon = TextGadget(#PB_Any, 0, 140, 310, 15, "Icon 'Origami Colored Pencil' by Double-J Design", #PB_Text_Center)
SetGadgetFont(Text_Copyright_Icon, FontID(#Font_Window_About_1))
Text_Copyright_Icon_Copy1 = TextGadget(#PB_Any, 0, 160, 310, 15, "is licensed under CC BY 4.0", #PB_Text_Center)
SetGadgetFont(Text_Copyright_Icon_Copy1, FontID(#Font_Window_About_1))
EndProcedure