Subversion Repositories Kolibri OS

Rev

Rev 2875 | Go to most recent revision | Blame | Last modification | View Log | Download | RSS feed

  1. //Leency - 2012
  2.  
  3. #include "imgs\logo.txt"
  4.  
  5. #define EDITOR_PATH     "/sys/tinypad"
  6. #define BROWSER_PATH    "/sys/htmlv"
  7. #define BROWSER_LINK    "http://kolibri-os.narod.ru"
  8.  
  9.  
  10. void about_dialog()
  11. {  
  12.         byte p;
  13.         mouse mm;
  14.         byte id, letitclose=0;
  15.         SetEventMask(100111b);
  16.         loop() switch(WaitEvent())
  17.         {
  18.                 case evMouse:
  19.                                 mm.get();
  20.                                 //êóëüíî
  21.                                 IF (mm.x>85) && (mm.x<155) && (mm.y>190) && (mm.y<190+22)
  22.                                 IF (mm.lkm) {DrawRegion_3D(86,191,68,20,0xC7C7C7,0xFFFFFF); letitclose=1;}
  23.                                 ELSE {IF (letitclose) {DrawRegion_3D(86,191,68,20,0xFFFFFF,0xC7C7C7); Pause(7); ExitProcess();}}
  24.                                 ELSE IF (letitclose) {letitclose=0; DrawRegion_3D(86,191,68,20,0xFFFFFF,0xC7C7C7);}
  25.                                 break;
  26.                                
  27.                 case evButton:
  28.                                 id=GetButtonID();
  29.                                 IF (id==1) ExitProcess();
  30.                                 IF (id==23) RunProgram(BROWSER_PATH, BROWSER_LINK);
  31.                                 IF (id==33) RunProgram(EDITOR_PATH, #program_path);
  32.                                 break;
  33.                                
  34.                 case evKey:
  35.                                 IF (GetKey()==27) ExitProcess();
  36.                                 break;
  37.                                
  38.                 case evReDraw:
  39.                                 DefineAndDrawWindow(600,150,181,256,0x34,0x10EFEBEF,"About Eolite");
  40.                                 DrawBar(0,0,172,50,0x8494C4); //ãîëóáîå ñçàäè
  41.                                 PutPaletteImage(#logo,85,85,43,7,#logo_pal);
  42.                                 WriteText(46,100,0x90,0xBF40BF,"Eolite v1.32",0);
  43.                                         $add ebx, 1<<16
  44.                                         $int 0x40
  45.                                 WriteText(55,120,0x80,0,"Developers:",0);
  46.                                 WriteText(39,130,0x80,0,"Leency & Veliant",0);
  47.                                 WriteText(45,140,0x80,0,"KolibriOS Team",0);
  48.                                 WriteText(61,150,0x80,0,"2008-2012",0);
  49.                                 WriteText(12,170,0x80,0,"Visit",0);
  50.                                 DrawLink(48,170,23, "kolibri-os.narod.ru"); //ññûëêa
  51.                                 DrawFlatButton(85,190,70,22,0,0xE4DFE1, "Close");
  52.                                
  53.                                 DefineButton(20-1,195-1, 16+1,15+1, 33+BT_HIDE, 0);
  54.                                 PutPaletteImage(8*16*15+#ficons,16,15,20,195,#ficons_pal);                                                             
  55.         }
  56. }
  57.  
  58. void DrawLink(dword x,y,btn_id, inscription)
  59. {
  60.         WriteText(x,y,0x80,0x4E00E7,inscription,0);
  61.         DrawBar(x,y+8,strlen(inscription)*6,1,0x4E00E7); //ïîä÷åðêíóòü ññûëêó
  62.         DefineButton(x-1,y-1,strlen(inscription)*6,10,btn_id+BT_HIDE,0);
  63. }