------------ Дoбавленo:
Вот схема с подправленным компоненом Dir
#sha
Add(MainForm,1051149,7,7)
{
Left=20
Top=105
Width=721
Height=573
Caption="Файловый менеджер"
BorderStyle=1
DragForm=0
Position=1
link(onCreate,7529429:doData,[(48,27)(48,13)])
}
Add(ShellBrowser,4476034,42,119)
{
Left=10
Top=80
Width=345
Height=375
Color=15793151
DefaultDir="c:"
ShellSort=0
ShowUpDir=0
AutoDblClicks=0
Point(doShellUpdate)
Point(onChangeDir)
Point(doStyle)
Point(doShellSort)
link(onClick,13931579:doTrim,[])
link(onChangeDir,12533759:doText,[(86,139)(86,233)(37,233)(37,342)])
}
Add(Edit,1922926,196,112)
{
Left=10
Top=35
Width=345
Color=-16777197
Text="Переименуйте файл (папку) и нажмите Enter"
link(onEnter,9306951:doValue,[])
}
Add(DirTools,8886816,308,441)
{
AllowUnDo=1
Point(doRename)
link(onOK,6770754:doEvent1,[])
link(Source,3220673:Var,[(314,359)(216,359)])
link(Dest,5665790:Var,[(321,363)(307,363)])
}
Add(Memory,14605166,196,154)
{
Point(Data)
link(Data,1922926:Text,[])
}
Add(Memory,9306951,252,119)
{
link(onData,2723147:doData,[])
}
Add(GetIndexData,5665790,301,252)
{
Count=4
link(Data1,9306951:Value,[(307,191)(258,191)])
link(Data2,15791687:Value,[(314,206)(629,206)])
link(Data3,8135721:Var3,[(321,240)(229,240)(229,380)])
link(Data4,1727215:Var1,[(328,240)(392,240)(392,380)])
}
Add(DoData,2723147,308,119)
{
Data=Integer(0)
link(onEventData,110809:doEvent1,[])
}
Add(Hub,6555803,140,112)
{
OutCount=3
link(onEvent1,1922926:doText,[])
link(onEvent2,14605166:doValue,[(187,125)(187,160)])
link(onEvent3,13689419:doData,[(184,132)(184,202)(30,202)(30,293)])
}
Add(Hub,110809,357,119)
{
InCount=2
OutCount=3
link(onEvent1,11832687:doWork2,[(401,125)(401,202)(247,202)(247,279)])
link(onEvent2,9057264:doWork1,[(401,132)(401,178)(172,178)])
link(onEvent3,8886816:doRename,[(414,139)(414,243)(296,243)(296,468)])
}
Add(ShellBrowser,5492202,434,119)
{
Left=360
Top=80
Width=345
Height=375
Color=15793151
DefaultDir="c:"
ShellSort=0
ShowUpDir=0
AutoDblClicks=0
Point(doShellUpdate)
Point(onChangeDir)
Point(doStyle)
Point(doShellSort)
link(onClick,5426267:doTrim,[])
link(onChangeDir,8391971:doText,[(470,139)(470,342)])
}
Add(Edit,1283150,567,119)
{
Left=360
Top=35
Width=345
Color=-16777197
Text="Переименуйте файл (папку) и нажмите Enter"
link(onEnter,15791687:doValue,[])
}
Add(Button,7709810,182,476)
{
Left=200
Top=465
Width=90
Caption="Удалить"
link(onClick,8886816:doDelete,[(285,482)(285,461)])
}
Add(Memory,4823370,567,161)
{
Point(Data)
link(Data,1283150:Text,[])
}
Add(Memory,15791687,623,126)
{
Default=Integer(1)
link(onData,15811091:doData,[])
}
Add(GetIndexData,3220673,210,245)
{
link(Data1,14605166:Value,[(216,215)(202,215)])
link(Data2,4823370:Value,[(223,219)(573,219)])
}
Add(DoData,15811091,672,126)
{
Data=Integer(1)
link(onEventData,110809:doEvent2,[(712,132)(712,104)(345,104)(345,132)])
}
Add(Hub,14771426,518,119)
{
OutCount=3
link(onEvent1,1283150:doText,[])
link(onEvent2,4823370:doValue,[(558,132)(558,167)])
link(onEvent3,3532432:doData,[(562,139)(562,195)(443,195)(443,293)])
}
Add(Hub,6770754,371,441)
{
InCount=2
link(onEvent1,4476034:doShellUpdate,[(409,447)(409,197)(35,197)(35,139)])
link(onEvent2,5492202:doShellUpdate,[(426,454)(426,139)])
}
Add(Trim,13931579,91,119)
{
Char=""
link(onTrim,6555803:doEvent1,[(135,125)(135,118)])
}
Add(Trim,5426267,476,119)
{
Char=""
link(onTrim,14771426:doEvent1,[])
}
Add(Button,6842963,182,427)
{
Left=10
Top=465
Width=90
Caption="Копировать"
link(onClick,8886816:doCopy,[(289,433)(289,447)])
}
Add(DoData,9677754,553,287)
{
Data=Integer(2)
link(onEventData,11832687:doWork3,[(596,293)(596,326)(263,326)])
}
Add(GetDataEx,1727215,448,371)
{
Angle=1
link(Data,8391971:Text,[(510,380)])
}
Add(DoData,13689419,42,287)
{
Data=Integer(0)
link(onEventData,675480:doEvent1,[])
}
Add(HubEx,9057264,168,217)
{
Angle=1
link(onEvent,2748755:doEvent1,[(172,552)])
}
Add(DoData,3532432,455,287)
{
Data=Integer(1)
link(onEventData,77847:doEvent1,[])
}
Add(DoData,13235170,140,294)
{
Data=Integer(3)
link(onEventData,11832687:doWork1,[(183,300)(183,262)(263,262)])
}
Add(InfoTip,14993733,35,42)
{
Info=#29:Переименование файлов и папок|12:в левом окне|
Width=365
Height=179
}
Add(Edit,12533759,49,336)
{
Left=10
Top=60
Width=345
Color=15793151
ReadOnly=0
}
Add(Edit,8391971,504,336)
{
Left=360
Top=60
Width=345
Color=15793151
ReadOnly=0
}
Add(Hub,9693225,63,413)
{
link(onEvent1,4476034:doStyle,[(107,419)(107,283)(30,283)(30,146)])
link(onEvent2,5492202:doStyle,[(289,426)(289,146)])
}
Add(DriveBox,9295852,42,56)
{
Left=10
Top=5
Width=285
Height=21
Color=15793151
link(onSelect,14610167:doWork2,[])
}
Add(DriveBox,16706592,413,49)
{
Left=360
Top=5
Width=285
Height=21
Color=15793151
link(onSelect,13465175:doWork2,[])
}
Add(Hub,2748755,280,546)
{
link(onEvent1,3220673:doIndex,[(333,552)(333,402)(191,402)(191,251)])
link(onEvent2,2839214:doIndex,[(345,559)(345,538)])
}
Add(HubEx,11832687,259,266)
{
link(onEvent,5665790:doIndex,[(284,279)(284,258)])
}
Add(Hub,675480,84,287)
{
link(onEvent1,9057264:doWork2,[(129,293)(129,230)])
link(onEvent2,13235170:doData,[])
}
Add(Hub,77847,497,287)
{
link(onEvent1,9057264:doWork3,[(541,293)(541,230)])
link(onEvent2,9677754:doData,[(541,300)(541,293)])
}
Add(GetDataEx,8135721,119,371)
{
Angle=3
link(Data,12533759:Text,[(55,380)])
}
Add(Button,1893139,189,595)
{
Left=295
Top=465
Width=90
Caption="Создать папку"
link(onClick,14885286:doString,[(282,601)(282,608)])
}
Add(InfoTip,12117509,406,42)
{
Info=#29:Переименование файлов и папок|13:в правом окне|
Width=323
Height=179
}
Add(InfoTip,2870013,434,259)
{
Info=#11:Копирование|23:из правого окна в левое|
Width=190
Height=137
}
Add(InfoTip,5959337,35,259)
{
Info=#11:Копирование|23:из левого окна в правое|
Width=162
Height=137
}
Add(Button,14252141,182,525)
{
Left=105
Top=465
Width=90
Caption="Переместить"
link(onClick,8886816:doMove,[(289,531)(289,454)])
}
Add(DoData,7529429,63,7)
{
Data=String(c:)
link(onEventData,3410901:doEvent1,[])
}
Add(Hub,3410901,112,7)
{
link(onEvent1,13465175:doWork1,[(459,13)])
link(onEvent2,14610167:doWork1,[(154,20)(154,55)(130,55)])
}
Add(HubEx,14610167,126,49)
{
link(onEvent,4476034:doSetDir,[(147,62)(147,94)(30,94)(30,125)])
}
Add(HubEx,13465175,455,42)
{
link(onEvent,5492202:doSetDir,[(476,55)(476,90)(422,90)(422,125)])
}
Add(Edit,8340929,399,532)
{
Left=390
Top=465
Width=220
Text="Введите название папки"
Alignment=2
}
Add(Dir,6609712,399,602)
{
link(onEnd,6770754:doEvent2,[(441,608)(441,495)(359,495)(359,454)])
}
Add(FormatStr,14885286,343,602)
{
Mask="%1%2"
link(onFString,6609712:doDir,[])
link(Str1,2839214:Var,[(349,583)(363,583)])
link(Str2,8340929:Text,[(356,589)(405,589)])
}
Add(GetIndexData,2839214,357,532)
{
link(Data1,8135721:Var2,[(363,458)(132,458)])
link(Data2,1727215:Var2,[(370,458)(461,458)])
}
Add(InfoTip,9757598,266,511)
{
Info=#13:Создать папку|
Width=218
Height=130
}
Add(Button,12605044,238,0)
{
Left=300
Top=5
Caption="Сеть"
link(onClick,6680020:doData,[(278,6)(278,62)])
}
Add(Button,11471459,581,7)
{
Left=650
Top=5
Caption="Сеть"
link(onClick,5616625:doData,[(622,13)(622,62)])
}
Add(Dir,8158976,294,0)
{
Point(NetHood)
}
Add(Dir,1133269,637,7)
{
Point(NetHood)
}
Add(DoData,6680020,322,56)
{
link(onEventData,14610167:doWork3,[(364,62)(364,100)(130,100)])
link(Data,8158976:NetHood,[])
}
Add(DoData,5616625,665,56)
{
link(onEventData,13465175:doWork3,[(709,62)(709,74)(459,74)])
link(Data,1133269:NetHood,[])
}
Add(Hub,8322698,70,469)
{
link(onEvent1,4476034:doShellSort,[(114,475)(114,314)(30,314)(30,153)])
link(onEvent2,5492202:doShellSort,[(268,482)(268,153)])
}
Add(ChildPanelEx,7612855,77,588)
{
}
BEGIN_SDK
Add(EditMultiEx,3666942,21,21)
{
}
Add(Panel,3454695,35,105)
{
Left=10
Top=490
Width=150
Height=35
}
END_SDK
Add(Label,7689050,28,588)
{
Left=20
Top=500
Width=34
Height=17
Font=[MS Sans Serif,9,0,0,1]
Caption="Стиль"
}
Add(ComboBox,15302359,21,406)
{
Left=60
Top=495
Width=90
Height=21
Strings=#4:Icon|9:SmallIcon|4:List|6:Detail|14:DetailNoHeader|
link(onClick,9693225:doEvent1,[])
}
Add(ChildPanel,12646477,77,532)
{
}
BEGIN_SDK
Add(EditMulti,1223967,21,21)
{
}
Add(Panel,7399625,35,105)
{
Left=165
Top=490
Width=195
Height=35
}
END_SDK
Add(Label,2869135,28,532)
{
Left=170
Top=500
Width=69
Height=17
Font=[MS Sans Serif,9,0,0,1]
Caption="Сортировать"
}
Add(ComboBox,12296781,21,469)
{
Left=240
Top=495
Width=110
Height=21
Strings=#4:None|12:FoldersFirst|13:CaseSensitive|4:Name|3:Ext|4:Size|14:SizeDescending|10:DateCreate|11:DateChanged|12:DateAccessed|
link(onClick,8322698:doEvent1,[(65,482)(65,475)])
}