Subversion Repositories Kolibri OS

Rev

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

  1. #define MEMSIZE 0xA1000
  2. #include "..\lib\kolibri.h"
  3. #include "..\lib\strings.h"
  4. #include "..\lib\figures.h"
  5. #include "..\lib\encoding.h"
  6. #include "..\lib\file_system.h"
  7. #include "..\lib\mem.h"
  8. #include "..\lib\dll.h"
  9. //*.obj libraries
  10. #include "..\lib\lib.obj\box_lib.h"
  11. #include "..\lib\lib.obj\libio_lib.h"
  12. #include "..\lib\lib.obj\libimg_lib.h"
  13. #include "..\lib\lib.obj\truetype.h"
  14.  
  15.  
  16. #define LOGOW 16
  17. #define LOGOH 16
  18. #define BLACK_H 40
  19. #define TEXTX 20
  20. #define WIN_W 500
  21. #define WIN_H 350
  22.  
  23. unsigned char logo[LOGOW*LOGOH*3]= FROM "img\logo.raw";
  24.  
  25. proc_info Form;
  26. system_colors sc;
  27. char dialog;
  28. enum {
  29.         HALLO,
  30.         INSTALL,
  31.         END
  32. };
  33.  
  34. int DefineWindow(dword wtitle, wbutton)
  35. {
  36.         sc.get();
  37.         DefineAndDrawWindow(GetScreenWidth()-WIN_W/2,GetScreenHeight()-WIN_H/2-30, WIN_W+9, WIN_H+GetSkinHeight()+4, 0x74,0xFFFfff);
  38.         DrawTitle("KolibriN 8.2a Setup");
  39.         GetProcessInfo(#Form, SelfInfo);
  40.         if (Form.status_window>2) return 0; //rolled_up
  41.  
  42.         DrawBar(0, 0, Form.cwidth, BLACK_H, 0);
  43.         DrawBar(0, BLACK_H, Form.cwidth, Form.cheight-BLACK_H, 0xFFFfff);
  44.         _PutImage(BLACK_H-LOGOW/2, BLACK_H-LOGOH/2, LOGOW,LOGOH, #logo);
  45.         WriteTextB(BLACK_H-LOGOW + LOGOW, BLACK_H-6/2, 0x90, 0xFFFfff, wtitle);
  46.         DrawCaptButton(Form.cwidth-107, Form.cheight-40, 90, 24, 10, sc.work_button, sc.work_button_text,wbutton);
  47.         return 1;
  48. }
  49.  
  50. #include "copyf.c"
  51. #include "tmp_add.c"
  52. #include "hallo.c";
  53. #include "installation.c";
  54.  
  55. void main()
  56. {
  57.         mem_Init();
  58.         if (load_dll2(boxlib, #box_lib_init,0)!=0) notify("Error while loading library /rd/1/lib/box_lib.obj");
  59.         SetEventMask(0x27);
  60.         program_path[strrchr(#program_path, '/')] = 0x0;
  61.         HalloLoop();
  62. }
  63.  
  64.  
  65. stop: