Subversion Repositories Kolibri OS

Rev

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