Subversion Repositories Kolibri OS

Rev

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