Subversion Repositories Kolibri OS

Rev

Rev 6008 | Rev 6191 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. //Leency 2008-2016
  2.  
  3. #define BROWSER_PATH    "/sys/network/webview"
  4. #define BROWSER_LINK    "http://kolibri-n.org/inf/eolite/eolite_p1"
  5.  
  6. #ifdef LANG_RUS
  7.         ?define DEVELOPERS_TEXT "Разработчики:\nLeency Veliant PunkJoker Pavelyakov\nKolibriOS Team\n2008-2016"
  8.         ?define CLOSE_BUTTON_TEXT "Закрыть"
  9. #else
  10.         ?define DEVELOPERS_TEXT "Developers:\nLeency Veliant PunkJoker Pavelyakov\nKolibriOS Team\n2008-2016"
  11.         ?define CLOSE_BUTTON_TEXT "Close"
  12. #endif
  13.  
  14. void about_dialog()
  15. {  
  16.         byte id;
  17.         proc_info about_form;
  18.  
  19.         if (active_about) {cmd_free=2;ExitProcess();} else active_about=1;
  20.         loop() switch(WaitEvent())
  21.         {
  22.                 case evButton:
  23.                                 id=GetButtonID();
  24.                                 IF (id==1) || (id==10)
  25.                                 {
  26.                                         active_about=0;
  27.                                         cmd_free = 2;
  28.                                         ExitProcess();
  29.                                 }
  30.                                 IF (id==11) RunProgram(BROWSER_PATH, BROWSER_LINK);
  31.                                 break;
  32.                                
  33.                 case evKey:
  34.                                 IF (GetKey()==27)
  35.                                 {
  36.                                         active_about=0;
  37.                                         cmd_free = 2;
  38.                                         ExitProcess();
  39.                                 }
  40.                                 break;
  41.                                
  42.                 case evReDraw:
  43.                                 DefineAndDrawWindow(Form.left+Form.width/2,Form.top+Form.height/2-114,440,200+GetSkinHeight(),0x34,system.color.work,0);
  44.                                 GetProcessInfo(#about_form, SelfInfo);
  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);
  49.                                 WriteTextLines(110,53,10010000b,0,DEVELOPERS_TEXT,21);
  50.                                 #ifdef LANG_RUS
  51.                                 DrawFlatButton(about_form.cwidth-310,about_form.cheight-38,180,26,11,"История разработки");
  52.                                 #endif
  53.                                 DrawFlatButton(about_form.cwidth-110,about_form.cheight-38, 90,26,10,CLOSE_BUTTON_TEXT);
  54.         }
  55. }
  56.