Subversion Repositories Kolibri OS

Rev

Rev 8484 | Rev 8762 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 8484 Rev 8489
Line 16... Line 16...
16
;               Added processing of keys: left and right arrow
16
;               Added processing of keys: left and right arrow
17
;------------------------------------------------------------------------------
17
;------------------------------------------------------------------------------
18
;   MAIN MENU by lisovin@26.ru
18
;   MAIN MENU by lisovin@26.ru
19
;   Some parts of code rewritten by Ivan Poddubny 
19
;   Some parts of code rewritten by Ivan Poddubny 
20
;
20
;
21
;   Compile with FASM for Menuet
21
;   Compile with FASM for Kolibri
22
;******************************************************************************
22
;******************************************************************************
23
  BTN_HEIGHT         = 22  ;26
23
  BTN_HEIGHT         = 26
24
  BTN_WIDTH          = 140 ;178
24
  BTN_WIDTH          = 178
25
  TXT_Y              = (BTN_HEIGHT)/2-4
25
  TXT_Y              = (BTN_HEIGHT)/2-6
26
  FONT_TYPE          = 0x80000000 ;0x90000000
26
  FONT_TYPE          = 0x90000000
Line 27... Line 27...
27
 
27
 
28
  PANEL_HEIGHT       = 20
28
  PANEL_HEIGHT       = 20
29
  MENU_BOTTON_X_POS  = 10
29
  MENU_BOTTON_X_POS  = 10
30
  MENU_BOTTON_X_SIZE = 50
30
  MENU_BOTTON_X_SIZE = 50
Line 894... Line 894...
894
	cmp	byte [edx],10
894
	cmp	byte [edx],10
895
	jne	.findline
895
	jne	.findline
896
	dec	ecx
896
	dec	ecx
897
	jnz	.findline
897
	jnz	.findline
Line 898... Line 898...
898
	
898
	
-
 
899
	mov ecx, [sc.work_text]
-
 
900
	add ecx, FONT_TYPE
899
	mcall	4,,[sc.work_text],,21
901
	mcall	4,,,,21
900
	pop	edx
902
	pop	edx
901
	ret
903
	ret
902
;------------------------------------------------------------------------------
904
;------------------------------------------------------------------------------
903
align 4
905
align 4