-
Notifications
You must be signed in to change notification settings - Fork 2
/
gui_info.erl
70 lines (60 loc) · 2.73 KB
/
gui_info.erl
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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
%%%---------------------------------------------------------------------
%%% Created by: Jody Swartz
%%% Creation date: 2011-10-22
%%% Refactored date: 2011-11-23
%%%---------------------------------------------------------------------
%%% Description module of gui_info
%%%---------------------------------------------------------------------
%%% This module display information about the Developing team and the
%%% Glögg application.
%%%
%%%---------------------------------------------------------------------
-module(gui_info).
-compile(export_all).
-include_lib("wx/include/wx.hrl").
%%--------------------------------------------------------------------
%% Function: start/1
%% Purpose: Starts the a
%% Args: Parents
%% Returns: -
%%--------------------------------------------------------------------
start(Parents) ->
new_mini_frame(Parents).
%%--------------------------------------------------------------------
%% Function: new_mini_frame/1
%% Purpose: This creates miniframe and displays the miniframe.
%% Args: Parents
%% Returns:-
%%--------------------------------------------------------------------
new_mini_frame(Parents) ->
MiniFrame = wxMiniFrame:new(Parents, 1, "About Glögg",
[{style, ?wxDEFAULT_FRAME_STYLE bor ?wxFRAME_FLOAT_ON_PARENT}]),
Panel = wxPanel:new(MiniFrame, []),
wxWindow:setBackgroundColour(Panel, ?wxWHITE),
Text1 = "JJBEEF DEVELOPMENT TEAM.\n",
Text2 = "Project Manager: Jing Liu \n GUI Designer: Jody Swartz\n",
Text3 = "Software Architect: Bruce \n Quality Manager: Eva-Lisa Kedborn\n",
Text4 = "Designer: Fredrik Gustafsson \n Version: 3.0 \n \n Powered by:",
IText = Text1 ++ Text2 ++ Text3 ++ Text4,
InfoText = wxStaticText:new(Panel, ?wxID_ANY, IText,
[{style, ?wxALIGN_CENTER}]),
%%JJBEEF Logo
Image_JLogo = wxImage:new("jjbeef.jpg", [{type, ?wxBITMAP_TYPE_JPEG}]),
Bitmap_JLogo = wxBitmap:new(Image_JLogo, []),
StaticBitmap_JLogo = wxStaticBitmap:new(Panel, 2, Bitmap_JLogo),
%%Glögg Logo
Image_Logo = wxImage:new("glogg.png", [{type, ?wxBITMAP_TYPE_PNG}]),
Bitmap_Logo = wxBitmap:new(Image_Logo, []),
StaticBitmap_Logo = wxStaticBitmap:new(Panel, 2, Bitmap_Logo),
OutSizer = wxBoxSizer:new(?wxVERTICAL),
MiniFSizer = wxGridSizer:new(3, 1, 1, 1),
wxSizer:add(OutSizer, MiniFSizer, [{proportion, 0}, {flag, ?wxEXPAND}]),
wxSizer:add(MiniFSizer, StaticBitmap_Logo, [{proportion, 0},
{flag, ?wxALIGN_CENTER}]),
wxSizer:add(MiniFSizer, InfoText, [{proportion, 0},
{flag, ?wxALIGN_CENTER}]),
wxSizer:add(MiniFSizer, StaticBitmap_JLogo, [{proportion, 0},
{flag, ?wxALIGN_CENTER}]),
wxPanel:setSizer(Panel, OutSizer),
wxMiniFrame:center(MiniFrame),
wxMiniFrame:show(MiniFrame).