Rev 6008 | Rev 6191 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
6005 | leency | 1 | //Leency 2008-2016 |
4042 | leency | 2 | |
5581 | leency | 3 | #define BROWSER_PATH "/sys/network/webview" |
6005 | leency | 4 | #define BROWSER_LINK "http://kolibri-n.org/inf/eolite/eolite_p1" |
4042 | leency | 5 | |
6 | #ifdef LANG_RUS |
||
6005 | leency | 7 | ?define DEVELOPERS_TEXT "Разработчики:\nLeency Veliant PunkJoker Pavelyakov\nKolibriOS Team\n2008-2016" |
8 | ?define CLOSE_BUTTON_TEXT "Закрыть" |
||
4042 | leency | 9 | #else |
6005 | leency | 10 | ?define DEVELOPERS_TEXT "Developers:\nLeency Veliant PunkJoker Pavelyakov\nKolibriOS Team\n2008-2016" |
11 | ?define CLOSE_BUTTON_TEXT "Close" |
||
4042 | leency | 12 | #endif |
13 | |||
14 | void about_dialog() |
||
15 | { |
||
16 | byte id; |
||
5481 | leency | 17 | proc_info about_form; |
18 | |||
6005 | leency | 19 | if (active_about) {cmd_free=2;ExitProcess();} else active_about=1; |
4042 | leency | 20 | loop() switch(WaitEvent()) |
21 | { |
||
22 | case evButton: |
||
23 | id=GetButtonID(); |
||
24 | IF (id==1) || (id==10) |
||
25 | { |
||
26 | active_about=0; |
||
5576 | pavelyakov | 27 | cmd_free = 2; |
4042 | leency | 28 | ExitProcess(); |
29 | } |
||
6005 | leency | 30 | IF (id==11) RunProgram(BROWSER_PATH, BROWSER_LINK); |
4042 | leency | 31 | break; |
32 | |||
33 | case evKey: |
||
34 | IF (GetKey()==27) |
||
35 | { |
||
36 | active_about=0; |
||
5576 | pavelyakov | 37 | cmd_free = 2; |
4042 | leency | 38 | ExitProcess(); |
39 | } |
||
40 | break; |
||
41 | |||
42 | case evReDraw: |
||
6005 | leency | 43 | DefineAndDrawWindow(Form.left+Form.width/2,Form.top+Form.height/2-114,440,200+GetSkinHeight(),0x34,system.color.work,0); |
5481 | leency | 44 | GetProcessInfo(#about_form, SelfInfo); |
6050 | leency | 45 | if (about_form.status_window>2) break; |
46 | _PutImage(10, 23, 86, 86, #logo); |
||
47 | WriteTextB(112,16,0x82,0xD49CD2,ABOUT_TITLE); |
||
48 | WriteTextB(110,14,0x82,0xBF40BF,ABOUT_TITLE); |
||
6005 | leency | 49 | WriteTextLines(110,53,10010000b,0,DEVELOPERS_TEXT,21); |
50 | #ifdef LANG_RUS |
||
6050 | leency | 51 | DrawFlatButton(about_form.cwidth-310,about_form.cheight-38,180,26,11,"История разработки"); |
6005 | leency | 52 | #endif |
6050 | leency | 53 | DrawFlatButton(about_form.cwidth-110,about_form.cheight-38, 90,26,10,CLOSE_BUTTON_TEXT); |
4042 | leency | 54 | } |
5685 | leency | 55 | } |