Subversion Repositories Kolibri OS

Rev

Rev 485 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

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