Subversion Repositories Kolibri OS

Rev

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

Rev 3894 Rev 3895
Line 1... Line 1...
1 
; program data: colors, text, vars
 1 
; program data
2 
DATE_BUTTON_WIDTH  equ 32
 - 
 
3 
DATE_BUTTON_HEIGHT equ 30
 - 
 
Line 4... Line 2...
4 
 
 2 
 
5 
curMonth dd ?
 3 
curMonth dd ?
6 
curYear dd ?
 4 
curYear dd ?
Line -... Line 5...
- 
 
 5 
curDay dd ?
- 
 
 6 
 
- 
 
 7 
remainder dd ?
- 
 
 8 
quotient dd ?
- 
 
 9 
 
- 
 
 10 
firstday  dd ?
- 
 
 11 
Year dd   ?
- 
 
 12 
Month dd  ?
- 
 
 13 
day_sel   dd ?
- 
 
 14 
 
- 
 
 15 
datestr   dd  ?
- 
 
 16 
leap_year dd ?
7 
curDay dd ?
 17 
number	  dd ?
8 
 
 18 
 
9 
; colors
 19 
; colors
10 
COL_WINDOW_BG    equ 0x14E7E7E7
 20 
COL_WINDOW_BG    equ 0x14E7E7E7
11 
COL_TOOLBAR_BG   equ 0x555555
 21 
COL_TOOLBAR_BG   equ 0x555555
Line 26... Line 36...
26 
COL_DATE_ACTIVE_1   equ 0xB17A00
 36 
COL_DATE_ACTIVE_1   equ 0xB17A00
27 
COL_DATE_ACTIVE_2   equ 0xEDA700
 37 
COL_DATE_ACTIVE_2   equ 0xEDA700
28 
COL_DATE_ACTIVE_3   equ 0xFFCC00
 38 
COL_DATE_ACTIVE_3   equ 0xFFCC00
29 
COL_DATE_ACTIVE_4   equ 0xFFE56B
 39 
COL_DATE_ACTIVE_4   equ 0xFFE56B
Line 30... Line -...
30 
 
 - 
 
31 
remainder dd 1
 - 
 
32 
quotient dd 1
 - 
 
33 
 
 40 
 
34 
; definitions
 41 
; definitions
35 
WIN_CW equ 266
 42 
WIN_W equ 275
- 
 
 43 
WIN_H equ 325
- 
 
 44 
 
36 
WIN_X equ (5000 shl 16+WIN_CW+9)
 45 
DATE_BUTTON_WIDTH  equ 32
- 
 
 46 
DATE_BUTTON_HEIGHT equ 30
Line 37... Line 47...
37 
WIN_Y equ (100 shl 16+335)
 47 
 
38 
 
 48 
 
39 
LINE1	  equ 27 shl 16+16
 49 
LINE1	  equ 27 shl 16+16
40 
B_MONTH_X equ 15 shl 16+158
 50 
B_MONTH_X equ 15 shl 16+158
Line 41... Line 51...
41 
B_Y	  equ LINE1
 51 
B_Y	  equ LINE1
42 
B_MONTH   equ 63 shl 16+32
 52 
B_MONTH   equ 63 shl 16+32
43 
 
 53 
 
44 
B_WBAR_X  equ 5 shl 16+WIN_CW
 54 
B_WBAR_X  equ 5 shl 16+WIN_W-9
Line 45... Line 55...
45 
B_WBAR_Y  equ 64 shl 16+20
 55 
B_WBAR_Y  equ 64 shl 16+20
Line 311... Line 321...
311 
else if lang eq it
 321 
else if lang eq it
312 
		db   ' Impostazioni ',0
 322 
		db   ' Impostazioni ',0
313 
else
 323 
else
314 
		db  '   Set date    ',0
 324 
		db  '   Set date    ',0
315 
end if
 325 
end if
316 

            326
            

          

          

            -
            
 

            327