Subversion Repositories Kolibri OS

Rev

Rev 5676 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. // cursor file should be 32x32 in default MS Windows .cur format
  2.  
  3. struct CustomCursor
  4. {
  5.     dword CursorPointer;
  6.     dword Load();
  7.     dword Set();
  8.     dword Restore();
  9.     void Delete();
  10. };
  11.  
  12. dword CustomCursor::Load(dword CursorFilePath)
  13. {
  14.     if (CursorPointer) return;
  15.     EAX = 37;
  16.     EBX = 4;
  17.     ECX = CursorFilePath;
  18.     EDX = 1;
  19.     $int 0x40
  20.     CursorPointer = EAX; // 0 - err, other - handle
  21. }
  22.  
  23. dword CustomCursor::Set()
  24. {
  25.   EAX = 37;
  26.   EBX = 5;
  27.   ECX = CursorPointer;
  28.   $int 0x40
  29. }
  30.  
  31. dword CustomCursor::Restore()
  32. {
  33.   EAX = 37;
  34.   EBX = 5;
  35.   ECX = 0;
  36.   $int 0x40
  37. }
  38.  
  39. void CustomCursor::Delete()
  40. {
  41.     EAX = 37;
  42.     EBX = 6;
  43.     ECX = CursorPointer;
  44.     $int 0x40
  45. }
  46.