Subversion Repositories Kolibri OS

Rev

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

Rev 5512 Rev 5515
Line 1... Line 1...
1
//copyf - copy file or folder with content
1
//copyf - copy file or folder with content
2
#define WIN_COPY_W 300
-
 
3
#define WIN_COPY_H 50
-
 
-
 
2
 
4
:int copyf(dword from1, in1)
3
:int copyf(dword from1, in1)
5
{
4
{
6
	dword error;
5
	dword error;
7
	BDVK CopyFile_atr1;
6
	BDVK CopyFile_atr1;
8
	DefineAndDrawWindow(Form.left+Form.width-200,Form.top+90,WIN_COPY_W,GetSkinHeight()+WIN_COPY_H-1,0x34,sc.work,T_PASTE_WINDOW);
-
 
-
 
7
 
9
	if (!from1) || (!in1)
8
	if (!from1) || (!in1)
10
	{
9
	{
11
		notify("Error: too less copyf params!");
10
		notify("Error: too less copyf params!");
12
		notify(from1);
11
		notify(from1);
13
		notify(in1);
12
		notify(in1);
Line 23... Line 22...
23
	else
22
	else
24
	{
23
	{
25
		copyf_Draw_Progress(from1+strchr(from1, '/'));
24
		copyf_Draw_Progress(from1+strchr(from1, '/'));
26
		return CopyFile(from1, in1);
25
		return CopyFile(from1, in1);
27
	}
26
	}
28
	if (CheckEvent()==evButton) 
-
 
29
	{
-
 
30
		notify(T_CANCEL_PASTE);
-
 
31
		CopyExit();
-
 
32
	} 
-
 
33
}
27
}
Line 34... Line 28...
34
 
28
 
35
:int CopyFile(dword copy_from3, copy_in3)
29
:int CopyFile(dword copy_from3, copy_in3)
36
{
30
{