Subversion Repositories Kolibri OS

; program data: colors, text, vars

DATE_BUTTON_WIDTH  equ 32

DATE_BUTTON_HEIGHT equ 30

curMonth dd ?

curYear dd ?

curDay dd ?

; colors

COL_WINDOW_BG    equ 0x14E7E7E7

COL_TOOLBAR_BG   equ 0x555555

COL_ACTIVE_TEXT  equ 0x10e7c750

COL_WEEKDAY_BG   equ 0xCCCDDD

COL_DATE_BUTTONS equ 0xF3F3F3

COL_TIME_BUTTONS equ 0x5555dd

COL_GO_TODAY_T   equ 0xd048c8

COL_MONTH_YEAR_B equ 0x0555555 ; 0 for time?

COL_DROPDOWN_BG  equ 0x666666

COL_DROPDOWN_T   equ 0x10CCCccc

COL_NEW_STYLE_T  equ 0xef3333

COL_DATE_INACTIVE_1 equ 0x1379A8

COL_DATE_INACTIVE_2 equ 0x53ACD1

COL_DATE_INACTIVE_3 equ 0x7CC0DC

COL_DATE_INACTIVE_4 equ 0xABD7E8

COL_DATE_ACTIVE_1   equ 0xB17A00

COL_DATE_ACTIVE_2   equ 0xEDA700

COL_DATE_ACTIVE_3   equ 0xFFCC00

COL_DATE_ACTIVE_4   equ 0xFFE56B

remainder dd 1

quotient dd 1

; definitions

WIN_CW equ 266

WIN_X equ (5000 shl 16+WIN_CW+9)

WIN_Y equ (100 shl 16+335)

LINE1	  equ 27 shl 16+16

B_MONTH_X equ 15 shl 16+158

B_Y	  equ LINE1

B_MONTH   equ 63 shl 16+32

B_WBAR_X  equ 5 shl 16+WIN_CW

B_WBAR_Y  equ 64 shl 16+20

B_WEEK	  equ 34 shl 16+70

B_WX_SHIFT equ 32 shl 16

B_DROP	  equ B_MONTH+16

B_DAYS_Y  equ 106

B_DAYS_SHIFT equ 30

B_YEAR_X  equ 198 shl 16+46

B_YEAR	  equ 206 shl 16+32

B_SPIN_WIDTH equ 13

B_SPIN_X  equ 184 shl 16+B_SPIN_WIDTH

B_SPIN	  equ 188 shl 16+32

spinner db '<         >'

B_TODAY_X equ 25 shl 16

B_TODAY_Y equ 48 shl 16+10

B_TODAY   equ 30 shl 16+50

B_NS_X	  equ 185 shl 16+75

B_NS_Y	  equ 48 shl 16+10

B_NS	  equ 190 shl 16+50

FOCUSABLE equ 4

; multilanguage interface - configuratable in lang.inc

day_count db 3,0,3,2,3,2,3,3,2,3,2,3

Fkeys	  db 210,211,212,213,214,215,216,217,208,209,228,159

month_name:

if lang eq ru

     db   8

     db   '������  '

     db   '���ࠫ� '

     db   '����    '

     db   '��५�  '

     db   '���     '

     db   '���    '

     db   '���    '

     db   '������  '

     db   '�������'

     db   '������ '

     db   '�����  '

     db   '������� '

else if lang eq de

     db   9

     db   'Januar   '

     db   'Februar  '

     db   'M+rz     '

     db   'April    '

     db   'Mai      '

     db   'Juni     '

     db   'Juli     '

     db   'August   '

     db   'September'

     db   'Oktober  '

     db   'November '

     db   'Dezember '

else if lang eq fr

     db   9

     db   'Janvier  '

     db   'Fevrier  '

     db   'Mars     '

     db   'Avril    '

     db   'Mai      '

     db   'Juin     '

     db   'Juliet   '

     db   'Aout     '

     db   'Septembre'

     db   'Octobre  '

     db   'Novembre '

     db   'Decembre '

else if lang eq fi

     db   9

     db   'Tammikuu '

     db   'Helmikuu '

     db   'Maaliskuu'

     db   'Huhtikuu '

     db   'Toukokuu '

     db   'Kes+kuu  '

     db   'Hein+kuu '

     db   'Elokuu   '

     db   'Syyskuu  '

     db   'Lokakuu  '

     db   'Marraskuu'

     db   'Joulukuu '

else if lang eq et

     db   9

     db   'Jaanuar  '

     db   'Veebruar '

     db   'M�rts    '

     db   'Aprill   '

     db   'Mai      '

     db   'Juuni    '

     db   'Juuli    '

     db   'August   '

     db   'September'

     db   'Oktoober '

     db   'November '

     db   'Detsember'

else if lang eq it

     db   9

     db   'Gennaio  '

     db   'Febbraio '

     db   'Marzo    '

     db   'Aprile   '

     db   'Maggio   '

     db   'Giugno   '

     db   'Luglio   '

     db   'Agosto   '

     db   'Settembre'

     db   'Ottobre  '

     db   'Novembre '

     db   'Dicembre '

else

     db   9

     db   'January  '

     db   'February '

     db   'March    '

     db   'April    '

     db   'May      '

     db   'June     '

     db   'July     '

     db   'August   '

     db   'September'

     db   'October  '

     db   'November '

     db   'December '

end if

week_days:

if lang eq ru

     db   2

     db   1

     db   '��'

     db   '��'

     db   '��'

     db   '��'

     db   '��'

     db   '��'

     db   '��'

else if lang eq de

     db   2

     db   7

     db   'So'

     db   'Mo'

     db   'Di'

     db   'Mi'

     db   'Do'

     db   'Fr'

     db   'Sa'

else if lang eq fr

     db   3

     db   7

     db   'Dim'

     db   'Lun'

     db   'Mar'

     db   'Mer'

     db   'Jeu'

     db   'Ven'

     db   'Sam'

else if lang eq fi

     db   2

     db   7

     db   'Su'

     db   'Ma'

     db   'Ti'

     db   'Ke'

     db   'To'

     db   'Pe'

     db   'La'

else if lang eq et

     db   3

     db   7

     db   'Esm'

     db   'Tei'

     db   'Kol'

     db   'Nel'

     db   'Ree'

     db   'Lau'

     db   'P�h'

else if lang eq it

     db   3

     db   7

     db   'Dom'

     db   'Lun'

     db   'Mar'

     db   'Mer'

     db   'Gio'

     db   'Ven'

     db   'Sab'

else

     db   3

     db   7

     db   'Sun'

     db   'Mon'

     db   'Tue'

     db   'Wen'

     db   'Thi'

     db   'Fri'

     db   'Sat'

end if

title:

if lang eq ru

     db   '���������',0

else if lang eq ge

     db   'Kalender',0

else if lang eq fr

     db   'Calendrier',0

else if lang eq et

     db   'Kalender',0

else if lang eq it

     db   'Calendario',0

else

     db   'Calendar',0

end if

n_style:

if lang eq ru

     db   '���� �⨫�'

else if lang eq de

     db   'Neuer Stil'

else if lang eq fr

     db   'Nouveau'

else if lang eq et

     db   'Uus stiil'

else if lang eq it

     db   'Nuovo stile'

else

     db   'New style'

end if

ns_end:

today_msg:

if lang eq ru

     db   '�������'

else if lang eq ge

     db   'Heute'

else if lang eq fr

     db   "Aujourd'hui"

else if lang eq et

     db   'T�na'

else if lang eq it

     db   'Oggi'

else

     db   'Today'

end if

today_end:

focus dd  3

new_style dd 1

dropped db 0

sys_text:

if lang eq ru

		db  '�६�',0

else if lang eq it

		db  '  Ora',0

else

		db  ' Time',0

end if

separator  db ':',0

plus  db  '+',0

minus db  '-',0

set_date_t:

if lang eq ru

		db  '��⠭����� ����',0

else if lang eq it

		db   ' Impostazioni ',0

else

		db  '   Set date    ',0

end if