Subversion Repositories Kolibri OS

Rev

Rev 5676 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
4497 leency 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
}