Subversion Repositories Kolibri OS

Rev

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

Rev Author Line No. Line
3895 leency 1 
; program data
3887 leency 2 
 
3891 leency 3 
curMonth dd ?
4 
curYear dd ?
5 
curDay dd ?
6 
 
3895 leency 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 ?
17 
number	  dd ?
18 
 
3887 leency 19 
; colors
4735 leency 20 
COL_WINDOW_BG    equ 0x54E7E7E7
3889 leency 21 
COL_TOOLBAR_BG   equ 0x555555
3890 leency 22 
COL_ACTIVE_TEXT  equ 0x10e7c750
3887 leency 23 
COL_WEEKDAY_BG   equ 0xCCCDDD
3889 leency 24 
COL_DATE_BUTTONS equ 0xF3F3F3
3887 leency 25 
COL_TIME_BUTTONS equ 0x5555dd
26 
COL_GO_TODAY_T   equ 0xd048c8
5880 pathoswith 27 
COL_MONTH_YEAR_B equ 0x555555
3889 leency 28 
COL_DROPDOWN_BG  equ 0x666666
29 
COL_DROPDOWN_T   equ 0x10CCCccc
30 
COL_NEW_STYLE_T  equ 0xef3333
3887 leency 31 
 
6950 leency 32 
COL_DATE_INACTIVE_1 equ 0x388CAF
33 
COL_DATE_INACTIVE_2 equ 0x75B9D5
34 
COL_DATE_INACTIVE_3 equ 0x9ECBDF
3892 leency 35 
COL_DATE_INACTIVE_4 equ 0xABD7E8
3891 leency 36 
 
6950 leency 37 
COL_DATE_ACTIVE_1   equ 0xA57F2C
38 
COL_DATE_ACTIVE_2   equ 0xEFB52D
39 
COL_DATE_ACTIVE_3   equ 0xFAD84C
40 
COL_DATE_ACTIVE_4   equ 0xFAE995
41 
 
42 
COL_DATE_1   equ 0x8C8C8C
43 
COL_DATE_2   equ 0xFFFfff
44 
COL_DATE_3   equ 0xF2F2F2
45 
COL_DATE_4   equ 0xF2F2F2
46 
 
3889 leency 47 
; definitions
3895 leency 48 
WIN_W equ 275
4196 Akyltist 49 
WIN_H equ 326
3889 leency 50 
 
3895 leency 51 
DATE_BUTTON_WIDTH  equ 32
52 
DATE_BUTTON_HEIGHT equ 30
53 
 
54 
 
3889 leency 55 
LINE1	  equ 27 shl 16+16
56 
B_MONTH_X equ 15 shl 16+158
57 
B_Y	  equ LINE1
5880 pathoswith 58 
B_MONTH   equ 63 shl 16+27
3889 leency 59 
 
4196 Akyltist 60 
BT_WBAR_Y equ 283 shl 16+43
61 
 
62 
B_WBAR_X  equ 1 shl 16+WIN_W-1
3889 leency 63 
B_WBAR_Y  equ 64 shl 16+20
6950 leency 64 
B_WEEK	  equ 34 shl 16+66
3889 leency 65 
B_WX_SHIFT equ 32 shl 16
66 
 
67 
B_DROP	  equ B_MONTH+16
68 
B_DAYS_Y  equ 106
69 
B_DAYS_SHIFT equ 30
70 
 
5880 pathoswith 71 
B_YEAR	  equ 204 shl 16+28
3889 leency 72 
 
5880 pathoswith 73 
B_SPIN_X  equ 186 shl 16+12
74 
B_SPIN	  equ 188 shl 16+28
75 
spinner db '<      >'
3889 leency 76 
 
77 
B_TODAY_X equ 25 shl 16
78 
B_TODAY_Y equ 48 shl 16+10
79 
B_TODAY   equ 30 shl 16+50
80 
 
81 
B_NS_X	  equ 185 shl 16+75
82 
B_NS_Y	  equ 48 shl 16+10
83 
B_NS	  equ 190 shl 16+50
84 
 
3890 leency 85 
FOCUSABLE equ 4
3889 leency 86 
 
3887 leency 87 
; multilanguage interface - configuratable in lang.inc
88 
day_count db 3,0,3,2,3,2,3,3,2,3,2,3
89 
Fkeys	  db 210,211,212,213,214,215,216,217,208,209,228,159
90 
 
91 
month_name:
92 
if lang eq ru
93 
     db   8
94 
     db   'Январь  '
95 
     db   'Февраль '
96 
     db   'Март    '
97 
     db   'Апрель  '
98 
     db   'Май     '
99 
     db   'Июнь    '
100 
     db   'Июль    '
101 
     db   'Август  '
102 
     db   'Сентябрь'
103 
     db   'Октябрь '
104 
     db   'Ноябрь  '
105 
     db   'Декабрь '
106 
else if lang eq de
107 
     db   9
108 
     db   'Januar   '
109 
     db   'Februar  '
110 
     db   'M+rz     '
111 
     db   'April    '
112 
     db   'Mai      '
113 
     db   'Juni     '
114 
     db   'Juli     '
115 
     db   'August   '
116 
     db   'September'
117 
     db   'Oktober  '
118 
     db   'November '
119 
     db   'Dezember '
120 
else if lang eq fr
121 
     db   9
122 
     db   'Janvier  '
123 
     db   'Fevrier  '
124 
     db   'Mars     '
125 
     db   'Avril    '
126 
     db   'Mai      '
127 
     db   'Juin     '
128 
     db   'Juliet   '
129 
     db   'Aout     '
130 
     db   'Septembre'
131 
     db   'Octobre  '
132 
     db   'Novembre '
133 
     db   'Decembre '
134 
else if lang eq fi
135 
     db   9
136 
     db   'Tammikuu '
137 
     db   'Helmikuu '
138 
     db   'Maaliskuu'
139 
     db   'Huhtikuu '
140 
     db   'Toukokuu '
141 
     db   'Kes+kuu  '
142 
     db   'Hein+kuu '
143 
     db   'Elokuu   '
144 
     db   'Syyskuu  '
145 
     db   'Lokakuu  '
146 
     db   'Marraskuu'
147 
     db   'Joulukuu '
148 
else if lang eq et
149 
     db   9
150 
     db   'Jaanuar  '
151 
     db   'Veebruar '
152 
     db   'Mфrts    '
153 
     db   'Aprill   '
154 
     db   'Mai      '
155 
     db   'Juuni    '
156 
     db   'Juuli    '
157 
     db   'August   '
158 
     db   'September'
159 
     db   'Oktoober '
160 
     db   'November '
161 
     db   'Detsember'
162 
else if lang eq it
163 
     db   9
164 
     db   'Gennaio  '
165 
     db   'Febbraio '
166 
     db   'Marzo    '
167 
     db   'Aprile   '
168 
     db   'Maggio   '
169 
     db   'Giugno   '
170 
     db   'Luglio   '
171 
     db   'Agosto   '
172 
     db   'Settembre'
173 
     db   'Ottobre  '
174 
     db   'Novembre '
175 
     db   'Dicembre '
176 
else
177 
     db   9
178 
     db   'January  '
179 
     db   'February '
180 
     db   'March    '
181 
     db   'April    '
182 
     db   'May      '
183 
     db   'June     '
184 
     db   'July     '
185 
     db   'August   '
186 
     db   'September'
187 
     db   'October  '
188 
     db   'November '
189 
     db   'December '
190 
end if
191 
week_days:
192 
if lang eq ru
193 
     db   2
194 
     db   1
195 
     db   'Пн'
196 
     db   'Вт'
197 
     db   'Ср'
198 
     db   'Чт'
199 
     db   'Пт'
200 
     db   'Сб'
201 
     db   'Вс'
202 
else if lang eq de
203 
     db   2
204 
     db   7
205 
     db   'So'
206 
     db   'Mo'
207 
     db   'Di'
208 
     db   'Mi'
209 
     db   'Do'
210 
     db   'Fr'
211 
     db   'Sa'
212 
else if lang eq fr
213 
     db   3
214 
     db   7
215 
     db   'Dim'
216 
     db   'Lun'
217 
     db   'Mar'
218 
     db   'Mer'
219 
     db   'Jeu'
220 
     db   'Ven'
221 
     db   'Sam'
222 
else if lang eq fi
223 
     db   2
224 
     db   7
225 
     db   'Su'
226 
     db   'Ma'
227 
     db   'Ti'
228 
     db   'Ke'
229 
     db   'To'
230 
     db   'Pe'
231 
     db   'La'
232 
else if lang eq et
233 
     db   3
234 
     db   7
235 
     db   'Esm'
236 
     db   'Tei'
237 
     db   'Kol'
238 
     db   'Nel'
239 
     db   'Ree'
240 
     db   'Lau'
241 
     db   'P№h'
242 
else if lang eq it
243 
     db   3
244 
     db   7
245 
     db   'Dom'
246 
     db   'Lun'
247 
     db   'Mar'
248 
     db   'Mer'
249 
     db   'Gio'
250 
     db   'Ven'
251 
     db   'Sab'
252 
else
253 
     db   3
254 
     db   7
255 
     db   'Sun'
256 
     db   'Mon'
257 
     db   'Tue'
258 
     db   'Wen'
259 
     db   'Thi'
260 
     db   'Fri'
261 
     db   'Sat'
262 
end if
263 
 
3889 leency 264 
title:
3887 leency 265 
if lang eq ru
266 
     db   'Календарь',0
267 
else if lang eq ge
268 
     db   'Kalender',0
269 
else if lang eq fr
270 
     db   'Calendrier',0
271 
else if lang eq et
272 
     db   'Kalender',0
273 
else if lang eq it
274 
     db   'Calendario',0
275 
else
276 
     db   'Calendar',0
277 
end if
278 
 
279 
today_msg:
280 
if lang eq ru
281 
     db   'Сегодня'
282 
else if lang eq ge
283 
     db   'Heute'
284 
else if lang eq fr
285 
     db   "Aujourd'hui"
286 
else if lang eq et
287 
     db   'Tфna'
288 
else if lang eq it
289 
     db   'Oggi'
290 
else
291 
     db   'Today'
292 
end if
293 
today_end:
294 
focus dd  3
295 
new_style dd 1
296 
dropped db 0
297 
 
298 
sys_text:
299 
if lang eq ru
3894 heavyiron 300 
		db  'Время',0
3887 leency 301 
else if lang eq it
3894 heavyiron 302 
		db  '  Ora',0
3927 kaitz 303 
else if lang eq et
304 
		db  ' Aeg ',0
3887 leency 305 
else
3894 heavyiron 306 
		db  ' Time',0
3887 leency 307 
end if
3894 heavyiron 308 
separator  db ':',0
309 
plus  db  '+',0
310 
minus db  '-',0
3887 leency 311 
set_date_t:
312 
if lang eq ru
313 
		db  'Установить дату',0
314 
else if lang eq it
3889 leency 315 
		db   ' Impostazioni ',0
3927 kaitz 316 
else if lang eq et
317 
		db   ' Mффra kuupфev ',0
3887 leency 318 
else
3889 leency 319 
		db  '   Set date    ',0
3895 leency 320 
end if
321