Subversion Repositories Kolibri OS

Rev

Rev 485 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
485 heavyiron 1 
; Interface
2 
 
3 
macro Window xStart,yStart,xSize,ySize,bColor,gColor,fColor
4 
{
532 diamond 5 
 __mov ebx,xStart,xSize
6 
 __mov ecx,yStart,ySize
7 
 __mov edx,bColor
8 
 __mov esi,gColor
9 
 __mov edi,fColor
485 heavyiron 10 
 xor eax,eax
11 
 mcall
12 
}
13 
 
14 
 
15 
;WriteTextToWindow
16 
macro Text xStart,yStart,rgbColor,pText,nTextLen
17 
{
532 diamond 18 
 __mov ebx,xStart,yStart
19 
 __mov ecx,rgbColor
20 
 __mov edx,pText
21 
 __mov esi,nTextLen
485 heavyiron 22 
 mov eax,4
23 
 mcall
24 
}
25 
 
26 
;DisplayNumber
27 
macro Number xStart,yStart,nPrintType,noOfDigits,Data,rgbColor
28 
{
532 diamond 29 
 __mov edx,xStart,yStart
30 
 __mov ebx,noOfDigits,nPrintType
31 
 __mov ecx,Data
32 
 __mov esi,rgbColor
485 heavyiron 33 
 mov eax,47
34 
 mcall
35 
}
36 
 
37 
macro DrawLine xStart,xEnd,yStart,yEnd,rgbColor
38 
{
532 diamond 39 
 __mov ebx,xStart,xEnd
40 
 __mov ecx,yStart,yEnd
41 
 __mov edx,rgbColor
485 heavyiron 42 
 mov eax,38
43 
 mcall
44 
}
45 
 
46 
macro PutImage xPos,yPos,xImage,yImage,pImage
47 
{
532 diamond 48 
 __mov ecx,xImage,yImage
49 
 __mov edx,xPos,yPos
50 
 __mov ebx,pImage
485 heavyiron 51 
 mov eax,7
52 
 mcall
53 
}
54 
 
55 
macro Button xStart,yStart,xSize,ySize,nID,rgbColor
56 
{
532 diamond 57 
 __mov ebx,xStart,xSize
58 
 __mov ecx,yStart,ySize
59 
 __mov edx,nID
60 
 __mov esi,rgbColor
485 heavyiron 61 
 mov eax,8
62 
 mcall
63 
}
64 
 
65 
macro CreateTread EntryPoint,StackPos
66 
{
67 
 xor ebx,ebx
68 
 inc ebx
69 
 mov ecx,EntryPoint
70 
 mov edx,StackPos
71 
 mov eax,51
72 
 mcall
73 
}