Subversion Repositories Kolibri OS

Rev

Blame | 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.  
  8. void about_dialog()
  9. {  
  10.         byte id;
  11.         loop() switch(WaitEvent())
  12.         {
  13.                 case evButton:
  14.                                 id=GetButtonID();
  15.                                 IF (id==1) || (id==10) ExitProcess();
  16.                                 IF (id==23) RunProgram(BROWSER_PATH, BROWSER_LINK);
  17.                                 IF (id==33) RunProgram(EDITOR_PATH, #program_path);
  18.                                 break;
  19.                                
  20.                 case evKey:
  21.                                 IF (GetKey()==27) ExitProcess();
  22.                                 break;
  23.                                
  24.                 case evReDraw:
  25.                                 DefineAndDrawWindow(600,150,181,232+GetSkinHeight(),0x34,col_work,"About Eolite");
  26.                                 DrawBar(0,0,172,50,0x8494C4);
  27.                                 PutPaletteImage(#logo,85,85,43,7,8,#logo_pal);
  28.                                 WriteTextB(46,100,0x90,0xBF40BF,"Eolite v1.62");
  29.                                 WriteText(55,120,0x80,0,"Developers:");
  30.                                 WriteText(39,130,0x80,0,"Leency & Veliant");
  31.                                 WriteText(45,140,0x80,0,"KolibriOS Team");
  32.                                 WriteText(61,150,0x80,0,"2008-2013");
  33.                                 WriteText(29,170,0x80,0,"Visit");
  34.                                 DrawLink(66,170,0x80,23, "kolibri-n.org");
  35.                                 DrawFlatButton(85,190,70,22,10,0xE4DFE1, "Close");
  36.                                 DefineButton(20-1,195-1, 16+1,15+1, 33+BT_HIDE, 0);
  37.                                 PutPaletteImage(8*16*15+#ficons,16,15,20,195,8,#ficons_pal);   
  38.                                 DrawFilledBar(0, 216, 172, 12);
  39.         }
  40. }