Subversion Repositories Kolibri OS

Rev

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

Rev 2132 Rev 2862
Line 16... Line 16...
16
  dd     I_PARAM     ; адрес буфера для параметров 
16
  dd     I_PARAM     ; адрес буфера для параметров 
17
  dd     0x0         ; зарезервировано
17
  dd     0x0         ; зарезервировано
18
 
18
 
Line 19... Line 19...
19
 
19
 
Line 20... Line 20...
20
include 'macros.inc' ; 
20
include "..\..\..\macros.inc"
21
 
21
 
22
;---------------------------------------------------------------------
22
;---------------------------------------------------------------------
Line 57... Line 57...
57
 
57
 
Line 58... Line 58...
58
    cmp     ah, 1
58
    cmp     ah, 1
59
    jne     still        ;   return if button id != 1
59
    jne     still        ;   return if button id != 1
Line 60... Line -...
60
 
-
 
61
    or      eax, -1               ;   exit application
60
 
Line 62... Line 61...
62
    mcall
61
    call exit
63
 
62
 
64
  key:                              ; key event handler
63
  key:                              ; key event handler
Line 77... Line 76...
77
draw_window:
76
draw_window:
Line 78... Line 77...
78
 
77
 
Line 79... Line 78...
79
mcall 12, 1                    ; функция 12: сообщить ОС об отрисовке окна
78
mcall 12, 1                    ; функция 12: сообщить ОС об отрисовке окна
80
                                   
-
 
81
mov eax,14 ;получим ширину экрана
-
 
82
mov ebx, 4
79
                                   
83
mcall
80
mcall 14, 4 ;получим ширину экрана
84
shr eax, 16
81
shr eax, 16
85
and eax,0x0000FFFF
82
and eax,0x0000FFFF
86
sub eax,300 ;отнимем от нее 300
83
sub eax,300 ;отнимем от нее 300
Line 124... Line 121...
124
 
121
 
Line 125... Line 122...
125
fin: ;дорисовали
122
fin: ;дорисовали
Line 126... Line 123...
126
 
123
 
127
mcall 4, <3, 12>, 0x80000000, I_PARAM, 0 ;тень за текстом
124
mcall 4, <3, 12>, 0x80000000, I_PARAM, 0 ;тень за текстом
128
mcall 4, <5, 12>, 0x80000000, I_PARAM, 0 ;
125
mcall  , <5, 12>
129
mcall 4, <4, 11>, 0x80000000, I_PARAM, 0 ;
126
mcall  , <4, 11>
130
mcall 4, <4, 13>, 0x80000000, I_PARAM, 0 ;
127
mcall  , <4, 13>
Line 131... Line 128...
131
 mcall 4, <4, 12>, 0x80EFEFEF, I_PARAM, 0 ;текст
128
mcall  , <4, 12>, 0x80EFEFEF ;текст