Subversion Repositories Kolibri OS

Rev

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

  1. #define MEMSIZE 0x7E80
  2.  
  3. #include "../lib/font.h"
  4.  
  5. byte id,key;
  6.  
  7. void main()
  8. {  
  9.  
  10.         SetEventMask(1100111b);
  11.        
  12.         font.load("font/Verdana.kf");
  13.  
  14.         loop()
  15.    {
  16.       switch(WaitEvent())
  17.       {
  18.                 case evMouse:
  19.                         mouse.get();
  20.                
  21.                        
  22.                 break;
  23.          case evButton:
  24.             id=GetButtonID();              
  25.             if (id==1) ExitProcess();
  26.                         break;
  27.      
  28.         case evKey:
  29.                         key = GetKey();
  30.                         if (key==013){ //Enter
  31.                                 draw_window();
  32.                                
  33.                         }
  34.                         break;
  35.          
  36.          case evReDraw:
  37.                         draw_window();
  38.  
  39.                         break;
  40.       }
  41.    }
  42. }
  43. char buf[40];
  44. void draw_window()
  45. {
  46.         proc_info Form;
  47.        
  48.         int i =8;
  49.         int ii = 0;
  50.         DefineAndDrawWindow(215,100,450,500,0x33,0xFFFFFF,"Window header");
  51.         GetProcessInfo(#Form, SelfInfo);
  52.         while(i<=45)
  53.         {
  54.                 sprintf(#buf,"Ðàçìåð øðèôòà/size font %d ïèêñåëåé.",i);
  55.                 font.text(0,ii,#buf,0,i);
  56.                 ii+=font.height;
  57.                 i++;
  58.         }
  59. }