Subversion Repositories Kolibri OS

Rev

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

  1. //Leency 2008-2013
  2.  
  3. #define BROWSER_PATH    "/sys/network/webview"
  4. #define BROWSER_LINK    "http://kolibri-n.org/index.php"
  5.  
  6. #ifdef LANG_RUS
  7.         ?define INTRO_TEXT_1 "О Eolite"
  8.         ?define INTRO_TEXT_2 "Разработчики:"
  9.         ?define INTRO_TEXT_3 "Посетите"
  10.         ?define INTRO_TEXT_4 "Закрыть"
  11. #elif LANG_EST
  12.         ?define INTRO_TEXT_1 "Programmis Eolite"
  13.         ?define INTRO_TEXT_2 "Arendajad:"
  14.         ?define INTRO_TEXT_3 "K№lasta"
  15.         ?define INTRO_TEXT_4 "Sulge"
  16. #else
  17.         ?define INTRO_TEXT_1 "About Eolite"
  18.         ?define INTRO_TEXT_2 "Developers:"
  19.         ?define INTRO_TEXT_3 "Visit"
  20.         ?define INTRO_TEXT_4 "Close"
  21. #endif
  22.  
  23. void about_dialog()
  24. {  
  25.         byte id;
  26.         proc_info about_form;
  27.  
  28.         IF (active_about){cmd_free = 2;ExitProcess();}
  29.         active_about=1;
  30.         loop() switch(WaitEvent())
  31.         {
  32.                 case evButton:
  33.                                 id=GetButtonID();
  34.                                 IF (id==1) || (id==10)
  35.                                 {
  36.                                         active_about=0;
  37.                                         cmd_free = 2;
  38.                                         ExitProcess();
  39.                                 }
  40.                                 IF (id==23) RunProgram(BROWSER_PATH, BROWSER_LINK);
  41.                                 break;
  42.                                
  43.                 case evKey:
  44.                                 IF (GetKey()==27)
  45.                                 {
  46.                                         active_about=0;
  47.                                         cmd_free = 2;
  48.                                         ExitProcess();
  49.                                 }
  50.                                 break;
  51.                                
  52.                 case evReDraw:
  53.                                 DefineAndDrawWindow(Form.left+Form.width/2,Form.top+Form.height/2-114,300,248+GetSkinHeight(),0x34,system.color.work,INTRO_TEXT_1);
  54.                                 GetProcessInfo(#about_form, SelfInfo);
  55.                                 if (Form.status_window>2) break;
  56.                                 DrawBar(0,0,about_form.cwidth,50,0x8494C4);
  57.                                 PutPaletteImage(#logo,85,85,about_form.cwidth/2-43,7,8,#logo_pal);
  58.                                 WriteTextB(-strlen(ABOUT_TITLE)*12+about_form.cwidth/2,100,0x81,0xBF40BF,ABOUT_TITLE);
  59.                                 WriteTextCenter(0,130,about_form.cwidth,0,INTRO_TEXT_2);                       
  60.                                 WriteTextCenter(0,143,about_form.cwidth,0,"Leency Veliant PunkJoker Pavelyakov");
  61.                                 WriteTextCenter(0,156,about_form.cwidth,0,"KolibriOS Team");
  62.                                 WriteTextCenter(0,169,about_form.cwidth,0,"2008-2015");
  63.                                 WriteTextCenter(10,182,about_form.width-125,0,INTRO_TEXT_3);                   
  64.                                 DrawLink(about_form.cwidth/2-15,182,0x80,23, "kolibri-n.org");
  65.                                 DrawFlatButton(about_form.cwidth/2-35,about_form.cheight-35,70,22,10,0xE4DFE1, INTRO_TEXT_4);
  66.         }
  67. }
  68.