Rev 4076 | Go to most recent revision | Details | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
4042 | leency | 1 | //Leency 2008-2013 |
2 | |||
3 | #define EDITOR_PATH "/sys/tinypad" |
||
4 | #define BROWSER_PATH "/sys/htmlv" |
||
5 | #define BROWSER_LINK "http://kolibri-n.org/index.php" |
||
6 | |||
7 | #ifdef LANG_RUS |
||
8 | ?define INTRO_TEXT_1 "О Eolite" |
||
9 | ?define INTRO_TEXT_2 "Разработчики:" |
||
10 | ?define INTRO_TEXT_3 "Посетите" |
||
11 | ?define INTRO_TEXT_4 "Закрыть" |
||
12 | #elif LANG_EST |
||
13 | ?define INTRO_TEXT_1 "Programmis Eolite" |
||
14 | ?define INTRO_TEXT_2 "Arendajad:" |
||
15 | ?define INTRO_TEXT_3 "K№lasta" |
||
16 | ?define INTRO_TEXT_4 "Sulge" |
||
17 | #else |
||
18 | ?define INTRO_TEXT_1 "About Eolite" |
||
19 | ?define INTRO_TEXT_2 "Developers:" |
||
20 | ?define INTRO_TEXT_3 "Visit" |
||
21 | ?define INTRO_TEXT_4 "Close" |
||
22 | #endif |
||
23 | |||
24 | void about_dialog() |
||
25 | { |
||
26 | byte id; |
||
27 | IF (active_about) ExitProcess(); |
||
28 | active_about=1; |
||
29 | loop() switch(WaitEvent()) |
||
30 | { |
||
31 | case evButton: |
||
32 | id=GetButtonID(); |
||
33 | IF (id==1) || (id==10) |
||
34 | { |
||
35 | active_about=0; |
||
36 | ExitProcess(); |
||
37 | } |
||
38 | IF (id==23) RunProgram(BROWSER_PATH, BROWSER_LINK); |
||
39 | break; |
||
40 | |||
41 | case evKey: |
||
42 | IF (GetKey()==27) |
||
43 | { |
||
44 | active_about=0; |
||
45 | ExitProcess(); |
||
46 | } |
||
47 | break; |
||
48 | |||
49 | case evReDraw: |
||
50 | DefineAndDrawWindow(600,150,181,232+GetSkinHeight(),0x34,col_work,INTRO_TEXT_1); |
||
51 | DrawBar(0,0,172,50,0x8494C4); |
||
52 | PutPaletteImage(#logo,85,85,43,7,8,#logo_pal); |
||
53 | WriteTextB(46,100,0x90,0xBF40BF,ABOUT_TITLE); |
||
54 | #ifdef LANG_RUS |
||
55 | WriteText(50,120,0x80,0,INTRO_TEXT_2); |
||
56 | #else |
||
57 | WriteText(55,120,0x80,0,INTRO_TEXT_2); |
||
58 | #endif |
||
59 | WriteText(39,130,0x80,0,"Leency & Veliant"); |
||
60 | WriteText(45,140,0x80,0,"KolibriOS Team"); |
||
61 | WriteText(61,150,0x80,0,"2008-2013"); |
||
62 | #ifdef LANG_RUS |
||
63 | WriteText(19,170,0x80,0,INTRO_TEXT_3); |
||
64 | #else |
||
65 | WriteText(29,170,0x80,0,INTRO_TEXT_3); |
||
66 | #endif |
||
67 | DrawLink(71,170,0x80,23, "kolibri-n.org"); |
||
68 | DrawFlatButton(85,190,70,22,10,0xE4DFE1, INTRO_TEXT_4); |
||
69 | DrawFilledBar(0, 216, 172, 12); |
||
70 | } |
||
71 | } |