Subversion Repositories Kolibri OS

Rev

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

  1. #include "imgs\logo.txt"
  2.  
  3. ?define add_new_path 1
  4. ?define go_back 2
  5.  
  6. ?define ONLY_SHOW       0
  7. ?define WITH_REDRAW     1
  8. ?define ONLY_OPEN       2
  9.  
  10. ?define REDRAW  1
  11. ?define ANIM    2
  12. ?define NOTIP   3
  13.  
  14. /*
  15. //IPC
  16. #include "lib\Nable_lib.h--"
  17. #include "lib\ipc.h--"
  18.  
  19. int pLoadedImage;
  20. void GetImage(dword ipath)
  21. {
  22.         IF (pLoadedImage) free(pLoadedImage);
  23.         pLoadedImage=loadimage_viaIPC(ipath, #CurrentImage);
  24.         SetEventMask(100111b); //restore normal event mask
  25. }
  26.  
  27. */
  28.  
  29.  
  30. void authors()
  31. {  
  32.         mouse mm;
  33.         byte letitclose=0;
  34.         SetEventMask(100111b);
  35.         loop() switch(WaitEvent())
  36.         {
  37.                 case evMouse:
  38.                                 mm.get();
  39.                                 //êóëüíî
  40.                                 IF (mm.x>85) && (mm.x<155) && (mm.y>190) && (mm.y<190+22)
  41.                                 IF (mm.lkm) {DrawRegion_3D(86,191,68,20,0xC7C7C7,0xFFFFFF); letitclose=1;}
  42.                                 ELSE {IF (letitclose) {DrawRegion_3D(86,191,68,20,0xFFFFFF,0xC7C7C7); Pause(7); ExitProcess();}}
  43.                                 ELSE IF (letitclose) {letitclose=0; DrawRegion_3D(86,191,68,20,0xFFFFFF,0xC7C7C7);}
  44.                                 break;
  45.                 case evButton: ExitProcess();
  46.                 case evKey: IF (GetKey()==27) ExitProcess(); break;
  47.                 case evReDraw:
  48.                         WindowRedrawStatus(1);
  49.                         DefineAndDrawWindow(500,200,181,256,0x34,0x10EFEBEF,0,0,"About Eolite");
  50.                         DrawBar(0,0,172,50,0x8494C4); //ãîëóáîå ñçàäè
  51.                         PutPaletteImage(#logo,85,85,48,7,#logo_pal);
  52.                         WriteText(33,100,0x80,0xBF40BF,"Eolite v0.98.5 RC2",0);
  53.                         WriteText(55,120,0x80,0,"Developers:",0);
  54.                         WriteText(39,130,0x80,0,"Leency & Veliant",0);
  55.                         WriteText(30,140,0x80,0,"Diamond, Lrz, Nable",0);
  56.                         WriteText(21,160,0x80,0,"Made using C-- in 2008",0);
  57.                         WriteText(18,170,0x80,0,"Visit www.kolibrios.org",0);
  58.                         DrawFlatButton(85,190,70,22,0,0xE4DFE1, "Close");
  59.                         WindowRedrawStatus(2);
  60.         }
  61. }
  62.  
  63.  
  64. void HistoryPath(byte action)
  65. {
  66.         if (action==add_new_path)
  67.         {
  68.                 IF (strcmp(#PathHistory+find_symbol(#PathHistory,'|'),#path)==0) return;
  69.                 IF (strlen(#PathHistory)+strlen(#path)>2560) {copystr(#PathHistory+1024,#PathHistory); copystr("/",#PathHistory+strlen(#PathHistory));}//0_o
  70.                 copystr("|",#PathHistory+strlen(#PathHistory));
  71.                 copystr(#path,#PathHistory+strlen(#PathHistory));
  72.         }
  73.         if (action==go_back)
  74.         {
  75.                 i=strlen(#PathHistory)-1;
  76.                 WHILE (PathHistory[i]<>'|') { i--; };
  77.                 IF (i>0) PathHistory[i]=0x00;
  78.                 WHILE (PathHistory[i]<>'|')     { copystr(#PathHistory[i],#path); i--;  }
  79.                 IF (i>0) PathHistory[i]=0x00;
  80.         }
  81. }
  82.  
  83.  
  84. /*òèïà àíèìàöèÿ
  85. WHILE (m.lkm==1)
  86. {
  87.         Pause(10);
  88.         PutPaletteImage(p*16*15+#ficons,16,15,100,350,#ficons_pal);
  89.         IF (p>21) p=0; ELSE p++;
  90.         m.get();
  91. }*/
  92.  
  93.  
  94. dword onLeft(dword right,left) {EAX=Form.width-right-left;}
  95. dword onTop(dword down,up) {EAX=Form.height-GetSkinWidth()-down-up;}
  96.  
  97.  
  98. dword ConvertSize(dword bytes)
  99. {
  100.         byte size_prefix[8], temp[3];
  101.         IF (bytes>=1073741824) copystr(" Gb",#temp);
  102.         ELSE IF (bytes>=1048576) copystr(" Mb",#temp);
  103.         ELSE IF (bytes>=1024) copystr(" Kb",#temp);
  104.         ELSE copystr(" b ",#temp);
  105.         WHILE (bytes>1023) bytes/=1024;
  106.         copystr(IntToStr(bytes),#size_prefix);
  107.         copystr(#temp,#size_prefix+strlen(#size_prefix));
  108.         EAX=#size_prefix;
  109. }
  110.