Subversion Repositories Kolibri OS

Rev

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

Rev 2165 Rev 2173
Line 1... Line 1...
1
;
1
;
2
; ¢ í⮬ ä ©«¥ ᮡ࠭ë ä㭪樨 ­ã¦­ë¥ ¤«ï ᮧ¤ ­¨ï ¨
2
; ¢ í⮬ ä ©«¥ ᮡ࠭ë ä㭪樨 ­ã¦­ë¥ ¤«ï ᮧ¤ ­¨ï ¨
3
; à ¡®âë ®ª­  á ª®®à¤¨­ â ¬¨
3
; à ¡®âë ®ª­  á ª®®à¤¨­ â ¬¨
4
;
4
;
Line 5... Line -...
5
 
-
 
6
prop_edits_top equ 25
-
 
7
prop_edits_height equ 18
5
 
8
prop_wnd_width equ 350 ;è¨à¨­  ®ª­  ᮠ᢮©á⢠¬¨ ®¡ê¥ªâ 
6
prop_wnd_width equ 350 ;è¨à¨­  ®ª­  ᮠ᢮©á⢠¬¨ ®¡ê¥ªâ 
9
SIZE_ONE_FLOAT equ 14
7
SIZE_ONE_FLOAT equ 14
Line 10... Line 8...
10
MAX_OBJECT_SIZE equ (4+SIZE_ONE_FLOAT*3+1)
8
MAX_OBJECT_SIZE equ (4+SIZE_ONE_FLOAT*3+1)
Line -... Line 9...
-
 
9
 
11
 
10
prop_wnd_run db 0 ;¯¥à¥¬¥­­ ï á«¥¤ïé ï §  ⥬ çâ®-¡ë ­¥ § ¯ã᪠âì ¡®«ìè¥ 1-£® ®ª­  ᮠ᢮©á⢠¬¨ ®¤­®¢à¥¬¥­­®
12
prop_wnd_run db 0 ;¯¥à¥¬¥­­ ï á«¥¤ïé ï §  ⥬ çâ®-¡ë ­¥ § ¯ã᪠âì ¡®«ìè¥ 1-£® ®ª­  ᮠ᢮©á⢠¬¨ ®¤­®¢à¥¬¥­­®
11
 
13
 
12
txt_q db '?',0
14
txt_space:
13
txt_space:
Line 52... Line 51...
52
	cmp ebx,0
51
	cmp ebx,0
53
	je .no_object
52
	je .no_object
54
		cmp word[ebx],CHUNK_VERTLIST
53
		cmp word[ebx],CHUNK_VERTLIST
55
		jne .no_object ;¥á«¨ ­¥ â®â ®¡ê¥ªâ
54
		jne .no_object ;¥á«¨ ­¥ â®â ®¡ê¥ªâ
56
		add ebx,8
55
		add ebx,8
-
 
56
		mov word[NumberSymbolsAD],5
57
		finit
57
		finit
58
		.new_point:
58
		.new_point:
59
			mov dword[obj_point],ebx
59
			mov dword[obj_point],ebx
60
			mov dword[obj_point.text],0
60
			mov dword[obj_point.text],0
61
			cld
61
			cld
Line 80... Line 80...
80
			dec edx
80
			dec edx
81
			cmp edx,0
81
			cmp edx,0
82
			jg .new_point
82
			jg .new_point
83
			stdcall dword[tl_cur_beg], tree3
83
			stdcall dword[tl_cur_beg], tree3
84
	.no_object:
84
	.no_object:
-
 
85
	edit_boxes_set_sys_color edit1,editboxes_end,sc ;ãáâ ­®¢ª  á¨á⥬­ëå 梥⮢
-
 
86
	stdcall [edit_box_set_text], edit1, txt_q
-
 
87
	stdcall [edit_box_set_text], edit2, txt_q
-
 
88
	stdcall [edit_box_set_text], edit3, txt_q
85
popad
89
popad
Line 86... Line 90...
86
 
90
 
87
align 4
91
align 4
88
prop_red_win:
92
prop_red_win:
Line 94... Line 98...
94
	mov bx,word[procinfo.box.left]
98
	mov bx,word[procinfo.box.left]
95
	add bx,word[buf_0.l]
99
	add bx,word[buf_0.l]
96
	shl ebx,16
100
	shl ebx,16
97
	mov bx,prop_wnd_width
101
	mov bx,prop_wnd_width
98
	mov cx,word[procinfo.box.top]
102
	mov cx,word[procinfo.box.top]
-
 
103
	add cx,word[buf_0.t]
99
	shl ecx,16
104
	shl ecx,16
100
	mov cx,250
105
	mov cx,250
101
	mov edx,0xffffd0
106
	mov edx,0xffffd0
102
	or  edx,0x33000000
107
	or  edx,0x33000000
103
	int 0x40
108
	int 0x40
Line -... Line 109...
-
 
109
 
-
 
110
	mov eax,8
-
 
111
	mov ebx,(5 shl 16)+20
-
 
112
	mov ecx,(195 shl 16)+20
-
 
113
	mov edx,3
-
 
114
	mov esi,[sc.work_button]
-
 
115
	int 0x40
-
 
116
 
-
 
117
	mov ebx,(30 shl 16)+20
-
 
118
	mov ecx,(195 shl 16)+20
-
 
119
	mov edx,4
-
 
120
	int 0x40
-
 
121
 
-
 
122
	mov eax,7
-
 
123
	mov ebx,[image_data_toolbar]
-
 
124
	add ebx,4*IMAGE_TOOLBAR_ICON_SIZE
-
 
125
	mov ecx,(16 shl 16)+16
-
 
126
	mov edx,(7 shl 16)+197 ;load
-
 
127
	int 0x40
-
 
128
 
-
 
129
	sub ebx,IMAGE_TOOLBAR_ICON_SIZE
-
 
130
	mov edx,(32 shl 16)+197 ;save
-
 
131
	int 0x40
104
 
132
 
105
	mov dword[w_scr_t3.all_redraw],1
133
	mov dword[w_scr_t3.all_redraw],1
106
	stdcall [scrollbar_ver_draw],dword w_scr_t3
134
	stdcall [scrollbar_ver_draw],dword w_scr_t3
-
 
135
	stdcall [tl_draw], tree3
-
 
136
	stdcall [edit_box_draw], edit1
-
 
137
	stdcall [edit_box_draw], edit2
107
	stdcall [tl_draw], tree3
138
	stdcall [edit_box_draw], edit3
108
	mcall 12,2
139
	mcall 12,2
Line 109... Line 140...
109
popad
140
popad
110
 
141
 
Line 131... Line 162...
131
 
162
 
132
align 4
163
align 4
133
prop_key:
164
prop_key:
134
push eax
165
push eax
-
 
166
	mcall 2
-
 
167
	stdcall [edit_box_key], edit1
-
 
168
	stdcall [edit_box_key], edit2
135
	mcall 2
169
	stdcall [edit_box_key], edit3
136
	stdcall [tl_key], tree3
170
	stdcall [tl_key], tree3
137
pop eax
171
pop eax
Line 138... Line 172...
138
	ret
172
	ret
139
 
173
 
140
align 4
174
align 4
141
prop_mouse:
175
prop_mouse:
-
 
176
	;push ecx edi
-
 
177
	stdcall [tl_mouse], tree3
-
 
178
	stdcall [edit_box_mouse], edit1
142
	;push ecx edi
179
	stdcall [edit_box_mouse], edit2
143
	stdcall [tl_mouse], tree3
180
	stdcall [edit_box_mouse], edit3
Line 144... Line 181...
144
	;pop edi ecx
181
	;pop edi ecx
145
	ret
182
	ret
146
 
183
 
Line 147... Line 184...
147
align 4
184
align 4
148
prop_button:
185
prop_button:
-
 
186
	mcall 17 ;¯®«ãç¨âì ª®¤ ­ ¦ â®© ª­®¯ª¨
-
 
187
 
-
 
188
	cmp ah,3
-
 
189
	jne @f
-
 
190
		;§ £à㧪  ª®®à¤¨­ â ¢ editbox-ë
-
 
191
		push ebx
-
 
192
		stdcall [tl_node_get_data],tree3
-
 
193
		pop ebx
-
 
194
		cmp ebx,0
-
 
195
		je .no_select_0
-
 
196
			mov ebx,[ebx]
-
 
197
			mov word[NumberSymbolsAD],8
-
 
198
			finit
-
 
199
			fld dword[ebx]
-
 
200
			fstp qword[Data_Double]
-
 
201
			call DoubleFloat_to_String
-
 
202
			stdcall [edit_box_set_text], edit1, Data_String
-
 
203
			fld dword[ebx+4]
-
 
204
			fstp qword[Data_Double]
-
 
205
			call DoubleFloat_to_String
-
 
206
			stdcall [edit_box_set_text], edit2, Data_String
-
 
207
			fld dword[ebx+8]
-
 
208
			fstp qword[Data_Double]
-
 
209
			call DoubleFloat_to_String
-
 
210
			stdcall [edit_box_set_text], edit3, Data_String
-
 
211
			stdcall [edit_box_draw], edit1
-
 
212
			stdcall [edit_box_draw], edit2
-
 
213
			stdcall [edit_box_draw], edit3
-
 
214
		.no_select_0:
-
 
215
		pop ebx
-
 
216
	@@:
-
 
217
	cmp ah,4
-
 
218
	jne @f
-
 
219
		push ebx ecx esi edi
-
 
220
		stdcall [tl_node_get_data],tree3
-
 
221
		pop ebx
-
 
222
		cmp ebx,0
-
 
223
		je .no_select_1
-
 
224
			mov ebx,[ebx]
-
 
225
			finit
-
 
226
 
-
 
227
			mov esi,string1
-
 
228
			mov edi,Data_String
-
 
229
			cld
-
 
230
			mov ecx,32
-
 
231
			rep movsb
-
 
232
			call String_to_DoubleFloat
-
 
233
			fld  qword[Data_Double] ;áç¨â뢠¥¬ ª ª double
-
 
234
			fstp dword[ebx] ;á®å࠭塞 ª ª float
-
 
235
 
-
 
236
			mov esi,string2
-
 
237
			mov edi,Data_String
-
 
238
			cld
-
 
239
			mov ecx,32
-
 
240
			rep movsb
-
 
241
			call String_to_DoubleFloat
-
 
242
			fld  qword[Data_Double] ;áç¨â뢠¥¬ ª ª double
-
 
243
			fstp dword[ebx+4] ;á®å࠭塞 ª ª float
-
 
244
 
-
 
245
			mov esi,string3
-
 
246
			mov edi,Data_String
-
 
247
			cld
-
 
248
			mov ecx,32
-
 
249
			rep movsb
-
 
250
			call String_to_DoubleFloat
-
 
251
			fld  qword[Data_Double] ;áç¨â뢠¥¬ ª ª double
-
 
252
			fstp dword[ebx+8] ;á®å࠭塞 ª ª float
-
 
253
 
-
 
254
			;®¡­®¢«¥­¨¥ ¨§¬¥­¥­­®£® 㧫  ¢ ᯨ᪥ tree3 ¨ £« ¢­®£® ®ª­  (¯® â ©¬¥àã)
-
 
255
			mov word[NumberSymbolsAD],5
-
 
256
			mov dword[obj_point],ebx
-
 
257
			mov dword[obj_point.text],0
-
 
258
			cld
149
	mcall 17 ;¯®«ãç¨âì ª®¤ ­ ¦ â®© ª­®¯ª¨
259
			mov ecx,3
-
 
260
			.coord:
-
 
261
				fld dword[ebx]
-
 
262
				fstp qword[Data_Double]
-
 
263
				call DoubleFloat_to_String
-
 
264
				add ebx,4
-
 
265
				stdcall str_len, Data_String
-
 
266
				mov esi,txt_space
-
 
267
				add esi,eax
-
 
268
				cmp esi,txt_space.end
-
 
269
				jl .normal_size
-
 
270
					mov esi,txt_space.end-1 ;¬¨­¨¬ã¬ 1 ¯à®¡¥« ­ã¦­® ¤®¡ ¢¨âì, çâ®-¡ë æ¨äàë ­¥ ᫨¯ «¨áì
-
 
271
				.normal_size:
-
 
272
				stdcall str_cat, obj_point.text,esi
150
 
273
				stdcall str_cat, obj_point.text,Data_String
-
 
274
				loop .coord
-
 
275
			stdcall dword[tl_node_set_data], obj_point, tree3
-
 
276
			stdcall dword[tl_draw], tree3
151
	cmp ah,10
277
			mov byte[can_save],1 ;¤«ï ¯®ª §  ª­®¯ª¨ '‘®åà ­¨âì'
Line 152... Line 278...
152
	jne @f
278
			mov dword[offs_last_timer],0 ;¤«ï ®¡­®¢«¥­¨ï ¡«®ª  ¢ â ©¬¥à¥
153
		;;;call but_element_change
279
		.no_select_1:
154
		mov ah,1 ;¤«ï § ªàëâ¨ï ®ª­ 
280
		pop edi esi ecx ebx
Line 164... Line 290...
164
	mcall -1 ;¢ë室 ¨§ ¯à®£à ¬¬ë
290
	mcall -1 ;¢ë室 ¨§ ¯à®£à ¬¬ë
Line 165... Line 291...
165
 
291
 
166
;¤¥à¥¢® á ®¡ê¥ªâ ¬¨ ¢ ¯®«ì§®¢ â¥«ì᪮¬ ä ©«¥
292
;¤¥à¥¢® á ®¡ê¥ªâ ¬¨ ¢ ¯®«ì§®¢ â¥«ì᪮¬ ä ©«¥
167
tree3 tree_list MAX_OBJECT_SIZE,3,\
293
tree3 tree_list MAX_OBJECT_SIZE,3,\
168
	tl_key_no_edit+tl_list_box_mode,\
294
	tl_key_no_edit+tl_list_box_mode,\
169
	16,16, 0xffffff,0xb0d0ff,0xd000ff, 5,30,300,150, 16, 4,0, el_focus,\
295
	16,16, 0xffffff,0xb0d0ff,0xd000ff, 5,30,300,160, 16, 4,0, el_focus,\
Line -... Line 296...
-
 
296
	w_scr_t3,0
-
 
297
 
-
 
298
edit1 edit_box 80,  70, 200, 0xffffff, 0xff, 0x80ff, 0, 0x8000, 34, string1, mouse_dd, 0
-
 
299
edit2 edit_box 80, 154, 200, 0xffffff, 0xff, 0x80ff, 0, 0x8000, 34, string2, mouse_dd, 0
-
 
300
edit3 edit_box 80, 238, 200, 0xffffff, 0xff, 0x80ff, 0, 0x8000, 34, string3, mouse_dd, 0
-
 
301
editboxes_end:
-
 
302
 
-
 
303
string1 rb 34
-
 
304
string2 rb 34
170
	w_scr_t3,0
305
string3 rb 34
171
 
306
 
172
align 4
307
align 4
173
w_scr_t3:
308
w_scr_t3:
174
.size_x     dw 16 ;+0
309
.size_x     dw 16 ;+0