Subversion Repositories Kolibri OS

Rev

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

Rev 7982 Rev 8012
Line 173... Line 173...
173
	word	pos_in_stack,slot,rezerv1;
173
	word	pos_in_stack,slot,rezerv1;
174
	unsigned char name[11];
174
	unsigned char name[11];
175
	char	rezerv2;
175
	char	rezerv2;
176
	dword	adress,use_memory,ID,left,top,width,height;
176
	dword	adress,use_memory,ID,left,top,width,height;
177
	word	status_slot,rezerv3;
177
	word	status_slot,rezerv3;
178
	dword	work_left,work_top,work_width,work_height;
178
	dword	cleft,ctop,cwidth,cheight;
179
	char	status_window;
179
	char	status_window;
180
	dword   cwidth,cheight;
-
 
181
	byte    reserved[1024-71-8];
180
	byte    reserved[1024-71-8];
182
};
181
};
Line 183... Line 182...
183
 
182
 
184
:void GetProcessInfo(dword _process_struct_pointer, _process_id)
183
:void GetProcessInfo(dword _process_struct_pointer, _process_id)
185
{
184
{
186
	EAX = 9;
185
	EAX = 9;
187
	EBX = _process_struct_pointer;
186
	EBX = _process_struct_pointer;
188
	ECX = _process_id;
187
	ECX = _process_id;
189
	$int  0x40
-
 
190
	DSDWORD[EBX+71] = DSDWORD[EBX+42] - 9; //set cwidth
-
 
191
	DSDWORD[EBX+75] = DSDWORD[EBX+46] - skin_height - 4; //set cheight
188
	$int  0x40
Line 192... Line 189...
192
}
189
}
193
 
190
 
194
inline fastcall int GetPointOwner( EBX, ECX) //ebx=m.x, ecx=m.y
191
inline fastcall int GetPointOwner( EBX, ECX) //ebx=m.x, ecx=m.y