Subversion Repositories Kolibri OS

Rev

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

Rev 4462 Rev 7548
Line 103... Line 103...
103 
        mcall   12,1
 103 
        mcall   12,1
104 
        mov     edx, [sc.work]
 104 
        mov     edx, [sc.work]
105 
        or      edx, 0x34000000
 105 
        or      edx, 0x34000000
106 
        xor     esi, esi
 106 
        xor     esi, esi
107 
        mov     edi, str_title
 107 
        mov     edi, str_title
108 
        mcall   0, 50 shl 16 + 400, 30 shl 16 + 180
 108 
        mcall   0, 50 shl 16 + 415, 30 shl 16 + 195
Line 109... Line 109...
109 
 
 109 
 
110 
        mov     ebx, 5 shl 16 + 15
 110 
        mov     ebx, 5 shl 16 + 12
111 
        mov     ecx, 0x80000000
 111 
        mov     ecx, 0x90000000
112 
        or      ecx, [sc.work_text]
 112 
        or      ecx, [sc.work_text]
113 
        mov     edx, str_port
 113 
        mov     edx, str_port
114 
        mcall   4
 114 
        mcall   4
115 
        mov     ebx, 5 shl 16 + 35
 115 
        add     ebx, 25
116 
        mov     edx, str_speed
 116 
        mov     edx, str_speed
117 
        mcall
 117 
        mcall
118 
        mov     ebx, 5 shl 16 + 55
 118 
        add     ebx, 25
119 
        mov     edx, str_data
 119 
        mov     edx, str_data
120 
        mcall
 120 
        mcall
121 
        mov     ebx, 5 shl 16 + 75
 121 
        add     ebx, 25
122 
        mov     edx, str_stop
 122 
        mov     edx, str_stop
Line 123... Line 123...
123 
        mcall
 123 
        mcall
124 
 
 124 
 
125 
        mov     ebx, 180 shl 16 + 10
 125 
        mov     ebx, 195 shl 16 + 12
126 
        mov     edx, str_parity
 126 
        mov     edx, str_parity
127 
        mcall
 127 
        mcall
128 
        mov     ebx, 270 shl 16 + 10
 128 
        mov     ebx, 280 shl 16 + 12
Line -... Line 129...
- 
 
 129 
        mov     edx, str_flow
129 
        mov     edx, str_flow
 130 
        mcall
130 
        mcall
 131 
 
131 
 
 132 
		edit_boxes_set_sys_color edit1,editboxes_end,sc
132 
        invoke  edit_box_draw, edit1
 133 
        invoke  edit_box_draw, edit1
Line -... Line 134...
- 
 
 134 
        invoke  edit_box_draw, edit2
- 
 
 135 
        invoke  edit_box_draw, edit3
133 
        invoke  edit_box_draw, edit2
 136 
        invoke  edit_box_draw, edit4
134 
        invoke  edit_box_draw, edit3
 137 
 
Line -... Line 138...
- 
 
 138 
		option_boxes_set_sys_color sc, Option_boxs1
135 
        invoke  edit_box_draw, edit4
 139 
		option_boxes_set_sys_color sc, Option_boxs2
Line 136... Line 140...
136 
 
 140 
        invoke  option_box_draw, Option_boxs1
137 
        invoke  option_box_draw, Option_boxs1
 141 
        invoke  option_box_draw, Option_boxs2
Line 138... Line 142...
138 
        invoke  option_box_draw, Option_boxs2
 142 
 
139 
 
 143 
		check_boxes_set_sys_color2 ch1,ch1_end,sc ;set color
140 
        invoke  check_box_draw, ch1
 144 
        invoke  check_box_draw, ch1
Line 141... Line 145...
141 
 
 145 
 
142 
        mov     esi, [sc.work_button]
 146 
        mov     esi, [sc.work_button]
Line 143... Line 147...
143 
        mcall   8, 270 shl 16 + 100, 105 shl 16 + 16, 0x10
 147 
        mcall   8, 280 shl 16 + 100, 115 shl 16 + 22, 0x10
144 
 
 148 
 
145 
        mov     ecx, 0x80000000
 149 
        mov     ecx, 0x90000000
Line 146... Line 150...
146 
        or      ecx, [sc.work_button_text]
 150 
        or      ecx, [sc.work_button_text]
147 
        mcall   4, 300 shl 16 + 110, , str_open
 151 
        mcall   4, 315 shl 16 + 119, , str_open
Line 422... Line 426...
422 
        con_getch2,             'con_getch2',\
 426 
        con_getch2,             'con_getch2',\
423 
        con_write_asciiz,       'con_write_asciiz',\
 427 
        con_write_asciiz,       'con_write_asciiz',\
424 
        con_get_flags,          'con_get_flags',\
 428 
        con_get_flags,          'con_get_flags',\
425 
        con_kbhit,              'con_kbhit'
 429 
        con_kbhit,              'con_kbhit'
Line 426... Line 430...
426 
 
 430 
 
427 
edit1   edit_box 60, 90, 10, 0xffffff, 0x6f9480, 0, 0, 0, 8, ed_port, mouse_dd, ed_focus, 4, 4
 431 
edit1   edit_box 60, 112, 10, 0xffffff, 0x6f9480, 0, 0, 0x10000000, 8, ed_port, mouse_dd, ed_focus, 4, 4
428 
edit2   edit_box 60, 90, 30, 0xffffff, 0x6a9480, 0, 0, 0, 7, ed_speed, mouse_dd, ed_figure_only, 4, 4
 432 
edit2   edit_box 60, 112, 35, 0xffffff, 0x6a9480, 0, 0, 0x10000000, 7, ed_speed, mouse_dd, ed_figure_only, 4, 4
429 
edit3   edit_box 60, 90, 50, 0xffffff, 0x6a9480, 0, 0, 0, 1, ed_data, mouse_dd, ed_figure_only, 1, 1
 433 
edit3   edit_box 60, 112, 60, 0xffffff, 0x6a9480, 0, 0, 0x10000000, 1, ed_data, mouse_dd, ed_figure_only, 1, 1
- 
 
 434 
edit4   edit_box 60, 112, 85, 0xffffff, 0x6a9480, 0, 0, 0x10000000, 1, ed_stop, mouse_dd, ed_figure_only, 1, 1
Line 430... Line 435...
430 
edit4   edit_box 60, 90, 70, 0xffffff, 0x6a9480, 0, 0, 0, 1, ed_stop, mouse_dd, ed_figure_only, 1, 1
 435 
editboxes_end:
431 
 
 436 
 
432 
ed_port         db "COM1",0,0,0,0,0,0
 437 
ed_port         db "COM1",0,0,0,0,0,0
433 
ed_speed        db "9600",0,0,0
 438 
ed_speed        db "9600",0,0,0
Line 434... Line 439...
434 
ed_data         db "8",0
 439 
ed_data         db "8",0
435 
ed_stop         db "1",0
 440 
ed_stop         db "1",0
436 
 
 441 
 
437 
option_group1   dd op1
 442 
option_group1   dd op1
438 
op1     option_box option_group1, 180, 27, 6, 12, 0xffffff, 0, 0, str_none, 4
 443 
op1     option_box option_group1, 195, 30, 6, 12, 0xffffff, 0, 0, str_none, 4
439 
op2     option_box option_group1, 180, 44, 6, 12, 0xffffff, 0, 0, str_odd, 3
 444 
op2     option_box option_group1, 195, 47, 6, 12, 0xffffff, 0, 0, str_odd, 3
Line 440... Line 445...
440 
op3     option_box option_group1, 180, 61, 6, 12, 0xffffff, 0, 0, str_even, 4
 445 
op3     option_box option_group1, 195, 64, 6, 12, 0xffffff, 0, 0, str_even, 4
441 
op4     option_box option_group1, 180, 78, 6, 12, 0xffffff, 0, 0, str_mark, 4
 446 
op4     option_box option_group1, 195, 81, 6, 12, 0xffffff, 0, 0, str_mark, 4
442 
op5     option_box option_group1, 180, 95, 6, 12, 0xffffff, 0, 0, str_space, 5
 447 
op5     option_box option_group1, 195, 98, 6, 12, 0xffffff, 0, 0, str_space, 5
443 
 
 448 
 
444 
option_group2   dd op6
 449 
option_group2   dd op6
Line 445... Line 450...
445 
op6     option_box option_group2, 270, 27, 6, 12, 0xffffff, 0, 0, str_none, 4
 450 
op6     option_box option_group2, 280, 30, 6, 12, 0xffffff, 0, 0, str_none, 4
- 
 
 451 
;op7     option_box option_group2, 270, 44, 6, 12, 0xffffff, 0, 0, str_xon, 8, 10b
Line 446... Line 452...
446 
;op7     option_box option_group2, 270, 44, 6, 12, 0xffffff, 0, 0, str_xon, 8, 10b
 452 
;op8     option_box option_group2, 270, 61, 6, 12, 0xffffff, 0, 0, str_rts, 7, 1b
447 
;op8     option_box option_group2, 270, 61, 6, 12, 0xffffff, 0, 0, str_rts, 7, 1b
 453 
;op9     option_box option_group2, 270, 78, 6, 12, 0xffffff, 0, 0, str_dsr, 7
Line 448... Line 454...
448 
;op9     option_box option_group2, 270, 78, 6, 12, 0xffffff, 0, 0, str_dsr, 7
 454