Rev 6950 | 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' |
||
7725 | dunkaist | 258 | db 'Wed' |
259 | db 'Thu' |
||
3887 | leency | 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 |