Subversion Repositories Kolibri OS

Rev

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

Rev 3427 Rev 3463
Line 94... Line 94...
94
c_start_y = 10
94
c_start_y = 10
Line 95... Line 95...
95
 
95
 
96
c_size_x = 40
96
c_size_x = 40
97
c_size_y = 20
97
c_size_y = 20
98
;---------------------------------------------------------------------
-
 
-
 
98
;---------------------------------------------------------------------
-
 
99
x_minimal_size equ 350
-
 
100
y_minimal_size equ 250
99
 
101
;---------------------------------------------------------------------
100
START:
102
START:
101
	mcall	68,11
103
	mcall	68,11
102
	mcall	66,1,1
104
	mcall	66,1,1
103
	mcall	40,0x27
105
	mcall	40,0x27
Line 178... Line 180...
178
	and	eax,0xffff
180
	and	eax,0xffff
179
; dps "CD flag value: "
181
; dps "CD flag value: "
180
; dpd eax
182
; dpd eax
181
; newline
183
; newline
Line -... Line 184...
-
 
184
 
-
 
185
	call	get_window_param
-
 
186
	mov	ebx,[communication_area]
-
 
187
	mov	ecx,procinfo
-
 
188
;	mov	eax,[window_x]
-
 
189
	mov	eax,[ecx+34]
-
 
190
	shl	eax,16
-
 
191
	add	eax,[ecx+42]
-
 
192
	mov	[ebx+4],eax
-
 
193
;	mov	eax,[window_y]
-
 
194
	mov	eax,[ecx+38]
-
 
195
	shl	eax,16
-
 
196
	add	eax,[ecx+46]
-
 
197
	mov	[ebx+8],eax
182
 
198
 
183
	mcall	-1
199
	mcall	-1
-
 
200
;---------------------------------------------------------------------
-
 
201
get_window_param:
-
 
202
	mcall	9,procinfo,-1
-
 
203
	mov	eax,[ebx+66]
-
 
204
	inc	eax
-
 
205
;	mov	[window_high],eax
-
 
206
	mov	eax,[ebx+62]
-
 
207
	inc	eax
-
 
208
;	mov	[window_width],eax
-
 
209
	mov	eax,[ebx+70]
-
 
210
;	mov	[window_status],eax
-
 
211
	ret
184
;---------------------------------------------------------------------
212
;---------------------------------------------------------------------
185
align 4
213
align 4
186
get_communication_area:
214
get_communication_area:
187
	xor	eax,eax
215
	xor	eax,eax
188
	mov	al,[param]
216
	mov	al,[param]
Line 191... Line 219...
191
	mcall	68,22,param,,0x01
219
	mcall	68,22,param,,0x01
192
	mov	[communication_area],eax
220
	mov	[communication_area],eax
193
;	movzx	ebx,word [eax+2]
221
;	movzx	ebx,word [eax+2]
194
;	mov	[color_dialog_type],ebx
222
;	mov	[color_dialog_type],ebx
Line 195... Line 223...
195
 
223
 
196
;	mov	ebx,[eax+4]
224
	mov	ebx,[eax+4]
197
;	cmp	bx,word x_minimal_size ;300
225
	cmp	bx,word x_minimal_size ;300
198
;	jb	@f
226
	jb	@f
199
;	mov	[window_x],ebx
227
	mov	[window_x],ebx
200
;	mov	ebx,[eax+8]
228
	mov	ebx,[eax+8]
201
;	cmp	bx,word y_minimal_size ;200
229
	cmp	bx,word y_minimal_size ;200
202
;	jb	@f
230
	jb	@f
203
;	mov	[window_y],ebx
231
	mov	[window_y],ebx
204
@@:
232
@@:
205
	ret
233
	ret
206
;---------------------------------------------------------------------
234
;---------------------------------------------------------------------
207
align 4
235
align 4
Line 252... Line 280...
252
align 4
280
align 4
253
color_button:
281
color_button:
254
	mov	eax,[communication_area]
282
	mov	eax,[communication_area]
255
	mov	[eax],word 1
283
	mov	[eax],word 1
256
	mov	ebx,[selected_color]
284
	mov	ebx,[selected_color]
-
 
285
	and	ebx,0xffffff
257
	mov	[eax+20],ebx
286
	mov	[eax+20],ebx
258
; dps "CD flag value: OK "
287
; dps "CD flag value: OK "
259
	jmp	button.exit_1
288
	jmp	button.exit_1
260
;---------------------------------------------------------------------
289
;---------------------------------------------------------------------
261
align 4
290
align 4
Line 281... Line 310...
281
	ret
310
	ret
282
;---------------------------------------------------------------------
311
;---------------------------------------------------------------------
283
align 4
312
align 4
284
draw_window:
313
draw_window:
285
	mcall	12,1
314
	mcall	12,1
286
	mcall	0, , , 0x33AABBCC,,title
315
;	mcall	0, , , 0x33AABBCC,,title
-
 
316
	mcall	0,[window_x],[window_y], 0x33AABBCC,,title
287
	mcall	8,,,0x60000002
317
	mcall	8,,,0x60000002
288
	mcall	,,,0x60000003
318
	mcall	,,,0x60000003
289
	mcall	65,[palette_area],<[palette_SIZE_X],[palette_SIZE_Y]>,,24
319
	mcall	65,[palette_area],<[palette_SIZE_X],[palette_SIZE_Y]>,,24
290
	call	draw_tone
320
	call	draw_tone
291
	call	draw_selected_color
321
	call	draw_selected_color