Subversion Repositories Kolibri OS

Rev

Rev 3848 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  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.         loop() switch(WaitEvent())
  28.         {
  29.                 case evButton:
  30.                                 id=GetButtonID();
  31.                                 IF (id==1) || (id==10) ExitProcess();
  32.                                 IF (id==23) RunProgram(BROWSER_PATH, BROWSER_LINK);
  33.                                 break;
  34.                                
  35.                 case evKey:
  36.                                 IF (GetKey()==27) ExitProcess();
  37.                                 break;
  38.                                
  39.                 case evReDraw:
  40.                                 DefineAndDrawWindow(600,150,181,232+GetSkinHeight(),0x34,col_work,INTRO_TEXT_1);
  41.                                 DrawBar(0,0,172,50,0x8494C4);
  42.                                 PutPaletteImage(#logo,85,85,43,7,8,#logo_pal);
  43.                                 WriteTextB(46,100,0x90,0xBF40BF,ABOUT_TITLE);
  44.                                 #ifdef LANG_RUS
  45.                                 WriteText(50,120,0x80,0,INTRO_TEXT_2);
  46.                                 #else
  47.                                 WriteText(55,120,0x80,0,INTRO_TEXT_2);
  48.                                 #endif                         
  49.                                 WriteText(39,130,0x80,0,"Leency & Veliant");
  50.                                 WriteText(45,140,0x80,0,"KolibriOS Team");
  51.                                 WriteText(61,150,0x80,0,"2008-2013");
  52.                                 #ifdef LANG_RUS
  53.                                 WriteText(19,170,0x80,0,INTRO_TEXT_3);
  54.                                 #else
  55.                                 WriteText(29,170,0x80,0,INTRO_TEXT_3);
  56.                                 #endif                         
  57.                                 DrawLink(71,170,0x80,23, "kolibri-n.org");
  58.                                 DrawFlatButton(85,190,70,22,10,0xE4DFE1, INTRO_TEXT_4);
  59.                                 DrawFilledBar(0, 216, 172, 12);
  60.         }
  61. }