Вверх ↑
Этот топик читают: Гость
Ответов: 45
Рейтинг: -2
#1: 2009-03-16 20:39:59 ЛС | профиль | цитата
Можно ли сделать чтобы прогресс элемента DirTools погазывался на Панели прогресса ?
Например поставил копирование файлы и не открывается окно с прогрессом виндовса, а прям в окне на панели прогресса?
карма: 1

0
vip
#1.1контекстная реклама от партнеров
Ответов: 4674
Рейтинг: 516
#2: 2009-03-17 16:33:41 ЛС | профиль | цитата
[b]DAdMAx[/b], попробуй так

Add(MainForm,37125,35,35)
{
Left=20
Top=105
Width=377
Height=195
Caption="Копирование файлов с помощью FileStream"
BorderStyle=3
Position=1
}
Add(FileStream,9126190,462,84)
{
Mode=1
Point(doCopyFromStream)
link(FileName,8018009:Text,[])
}
Add(StreamCopy,3497766,357,189)
{
Count=1000
link(Dest,9126190:Stream,[(363,168)(468,168)])
link(Source,6674453:Stream,[])
link(Count,7196084:Text,[(377,178)(188,178)])
link(onCopy,9126190:doCopyFromStream,[(425,195)(425,104)])
}
Add(Hub,10001394,301,189)
{
link(onEvent1,3497766:doCopy,[])
link(onEvent2,3334286:doWork1,[(347,202)])
}
Add(Thread,16606372,182,189)
{
Delay=0
FastStop=0
link(onExec,6285456:doFor,[])
}
Add(FileStream,6674453,364,98)
{
link(FileName,4997065:Text,[])
}
Add(Edit,4997065,364,35)
{
Left=10
Top=20
Width=315
Text="Имя файла"
link(onChange,2711294:doWork1,[])
}
Add(Button,13364289,119,35)
{
Left=330
Top=20
Width=30
Hint="Выберите файл"
Caption="..."
link(onClick,772520:doExecute,[])
}
Add(Edit,8018009,462,35)
{
Left=10
Top=60
Width=350
Text="Новое имя файла"
}
Add(ODialog,772520,182,35)
{
link(onExecute,981079:doEvent1,[])
}
Add(Hub,981079,245,35)
{
OutCount=4
link(onEvent1,4997065:doText,[])
link(onEvent2,6674453:doOpen,[(344,48)(344,104)])
link(onEvent3,7754654:In,[(294,55)(294,69)])
link(onEvent4,14267965:doEnabled,[(286,62)(286,76)(107,76)(107,90)])
}
Add(MultiElement,2711294,413,35)
{
@Hint=#32:Новое имя файла с префиксом New_|
link(onEvent1,8018009:doText,[])
}
BEGIN_SDK
Add(EditMulti,15985795,21,21)
{
EventCount=1
WorkCount=1
link(doWork1,3305867:doEvent1,[(35,27)(35,111)])
}
Add(StrCat,871027,175,56)
{
Str1="New_"
link(onStrCat,12080695:doValue,[])
}
Add(FilePart,4833415,105,49)
{
NameWOExt=1
link(onPath,7061556:doValue,[])
link(onName,871027:doStrCat,[])
}
Add(StrCat,2123902,224,112)
{
link(onStrCat,15985795:onEvent1,[(309,118)(309,27)])
link(Str1,7061556:Value,[])
link(Str2,12080695:Value,[(237,104)(272,104)])
}
Add(Memory,7061556,224,49)
{
}
Add(Memory,12080695,266,56)
{
}
Add(Hub,3305867,49,105)
{
link(onEvent1,4833415:doPart,[(93,111)(93,55)])
link(onEvent2,2123902:doStrCat,[])
}
END_SDK
Add(For,6285456,245,189)
{
Start=1
Step=1000
Point(doStep)
link(onEvent,10001394:doEvent1,[])
link(onStop,10551021:doEvent1,[(286,202)(286,111)])
link(End,8758688:Var1,[(258,156)])
}
Add(ProgressBar,14763115,357,252)
{
Left=10
Top=100
Width=350
Smooth=1
ProgressColor=8388608
Point(doMax)
}
Add(DoData,9748640,308,259)
{
link(onEventData,14763115:doMax,[])
link(Data,8758688:Var2,[])
}
Add(GetDataEx,8758688,301,147)
{
Angle=1
link(Data,6674453:Size,[(377,156)])
}
Add(Edit,7196084,182,133)
{
Left=10
Top=130
Text="1000"
DataType=2
link(onChange,6285456:doStep,[(226,139)(226,209)])
}
Add(Label,13011390,35,112)
{
Left=70
Top=135
Width=139
Height=17
Caption="Размер буфера в байтах"
}
Add(Button,14267965,119,84)
{
Left=230
Top=130
Width=130
Enabled=1
Caption="Копировать"
Point(doEnabled)
link(onClick,8200132:doEvent1,[])
}
Add(Message,4711303,511,119)
{
Message="Копирование завершено."
Caption="Сообщение"
Point(onOK)
link(onOK,2886157:In,[])
}
Add(Hub,8200132,182,84)
{
link(onEvent1,9126190:doOpen,[])
link(onEvent2,16606372:doStart,[(226,97)(226,124)(169,124)(169,195)])
}
Add(Hub,10551021,301,105)
{
OutCount=3
link(onEvent1,6674453:doClose,[])
link(onEvent2,9126190:doClose,[(415,118)(415,97)])
link(onEvent3,4711303:doMessage,[])
}
Add(LineBreak,3689887,243,259)
{
Caption="max"
link(Out,9748640:doData,[])
Primary=[7754654,65,-196]
}
Add(HubEx,3334286,343,231)
{
Angle=1
link(onEvent,14763115:doPosition,[(347,258)])
}
Add(LineBreak,15418567,239,238)
{
Caption="clear"
link(Out,3334286:doWork2,[])
Primary=[2886157,321,-112]
}


карма: 6

0
Гость
Ответов: 17029
Рейтинг: 0
#3: 2009-03-18 20:19:42 правка | ЛС | профиль | цитата


Редактировалось 5 раз(а), последний 2020-03-01 19:23:12
карма: 0

0
Ответов: 45
Рейтинг: -2
#4: 2009-03-18 20:36:17 ЛС | профиль | цитата
Вау спасиб помог сильно даже не знаю как отблагодарить !))(выше я писал только тупанул джай)

------------ Дoбавленo:

а можешь тоже самое только с папкой по этому исходнику(моему)
вопшем нужно что он искал файлы и папке в паке DATA и копировал их в путь по назначению(в исходнике есть)


карма: 1

0
Ответов: 4641
Рейтинг: 334
#5: 2009-03-18 20:43:55 ЛС | профиль | цитата
DAdMAx, не надо так делать! Для вставки кода используй теги из закладки CODE,

карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 4674
Рейтинг: 516
#6: 2009-03-19 12:13:20 ЛС | профиль | цитата
DAdMAx писал(а):
вопшем нужно что он искал файлы и папке в паке DATA и копировал их в путь по назначению


это уже больше походит на тех.задание , был пример, я его предоставил.
карма: 6

0
Ответов: 45
Рейтинг: -2
#7: 2009-03-19 19:57:21 ЛС | профиль | цитата
Ravilr
у меня не работает вся панель bb кодов
карма: 1

0
Ответов: 4641
Рейтинг: 334
#8: 2009-03-19 21:45:15 ЛС | профиль | цитата
DAdMAx писал(а):
у меня не работает вся панель bb кодов

Пора уже наверно писать FAQ, почему неработает панель BB кодов. Панель работает только в IE или Opera, или в Firefox но с патчем специальном, где то на форуме было.
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 3514
Рейтинг: 184
#9: 2009-03-19 21:58:43 ЛС | профиль | цитата
А есть ещё прога от меня. Смотри схемы.
карма: 0
0
Ответов: 45
Рейтинг: -2
#10: 2009-03-26 15:44:54 ЛС | профиль | цитата
так я тут схемку наскрябал на днях кто может помочь до ума довести ?
нужно что бы файлы копировал вопщем как InnoSetup ))))

#sha
Make(delphi)
ver(4.01 build 175)
Add(MainForm,3595639,70,119)
{
Left=400
Top=300
Width=504
Height=386
Caption="Установка XXXXXXXXXXXXXXXX"
BorderStyle=3
Icon=[ZIP360E000078DAED96BF4B6C4714C7CFE619662142B4B112622CC2B37B3295551E6EFB8487205869AA219D010B8304B29555082101612A5F9184A44863A95B2C09BCE239B53611B2C8E3C1DD0977DD6617F7E1C9F7CCCC5DEFAE6BFE02CFE5B3F79EF33DF3E39E19E74A54A10F68668670AFD2971F127D46440B0BD1FFAD4AF43D624F119B9138C5B8D8F30A4DB47AFAA9A7877A729ACD2635FF6ED2AF6F3A34353545D56A95A6A7A769767696E6E6E6687E7E9E16171769696989363636686D6D8D56575769656585F89B3AF1CB97744E3F91F34CF9F96B7AF7EE9CFEF8FD07D218C5000B9C0C8980060658E000A7240D0CB0C0014E0D3530C002073875A681011638C0E2337CE0380E2697011638C069021A186081039C26A581011638C069A21A186081039C26AF81011638C012C30B196081039C5E50662297050E707A690D0CB0C0014E85D0C0000B5C2A8C060658E000A762696081039C8AA781058E652C878B43112D0A2A970BAB82CA681B66E570678AC5D6C0481EEE0E309E35DA1A690F1CE0B4201A98303EE280D322699638F2717780D3C2E954011BE6E4C2026B2CA6011638C06971353046E68138E0B01110070658E000A74DA081011638C06963686058E682386089A55590B796CDA435560458E00003D9501A188C6D717780C3A6431C186081039C369E060658E0004B8C11C3981677C7D207D651D685658DC5179DE917FA94B6B7B7696F6F8F0E0E0EE8F0F090CECECEE8F8F8982E2E2EE8F2F292AEAEAE28CB32BABEBEA67EBF4F3CE8D0AB573FE3CFB84E61DBE387D30327876360D4BC02CCEAF666E87BA558DD2855F215DD0C06251FCF85CEE4076A70CB77BEF203F8B82B15FDA4F8309687EF9329191ADDC908623E6479E577F6D797D75EB08F3DB2DF792B81E84BCACE5B09241F919D7D0994FC1762777E279AA7EF3EC151F73150252AF14C2C28CEC87F4007BC2FF1349DB1CF4BE76C7DEAF19C7D3C671FCFD9C773F6C173165DD46A357AC0B2ECF4B4F5E7E6F248866F7023F6932915F56747A5040FB94138E1B21C27E7694BE4A352426CDFF3D4CE73D145EE766BE3ED7B590EC300CFA0764B0945FBAC11128820E2A176AF7DA3818C742E97F5A2FD8F6212C1F9EBFDFDF6DDEED1D1E62651DEE3CE48FF5247B4EF425DDFDD3DC97B8A3B9D31DD2341E4AF5B27B92494DF2FB6EF659BEBEBBBADD6093AE8A95AF8CE947458169A9F4807A1B9CAFD884EED76D46BB5F8D552633AF3BFB0769B0BF3B11AF8D605DD8F59E83F138BFA3DCB3F8ADD7348A0E2F3A8463F93B0D043CA1D9A1A7EF6E210D02B25BBD35382E883FDFD65183E3565BD283257FEDA2A1246F4F4965CD91A268CEAA917B42F1226EB5BC384C9FAFE30E1017D98F0901E12F09A93F5C9F5295761427D87D61E331C03B78A9BFD0A37BF226E2ED0B74D0A7C1EF92251F8F40454008D53977F33401FE0FF8FCA2D60A1FF3FBCA727FF014B5D4FEF]
TaskBar=1
Position=1
}
Add(StyleXP,14224395,63,77)
{
}
Add(Hub,6362703,560,126)
{
InCount=5
OutCount=1
link(onEvent1,1254244:doEvent1,[(579,132)(579,174)(142,174)(142,223)])
}
Add(ChildPanel,7461583,161,126)
{
link(onEvent1,6362703:doEvent1,[])
link(onEvent2,9286429:doWork1,[])
}
BEGIN_SDK
Add(EditMulti,15414441,10,10)
{
EventCount=3
Width=139
Height=151
}
Add(Panel,13612531,21,21)
{
Top=310
Width=498
Height=46
BevelInner=0
BevelOuter=2
Point(doColor)
}
Add(Button,8540068,63,20)
{
Left=310
Top=10
Width=80
Height=25
Caption="Отмена"
link(onClick,15414441:onEvent1,[(122,26)(122,16)])
}
Add(Button,11801891,63,62)
{
Left=400
Top=10
Width=80
Height=25
Caption="Далее >"
Point(doVisible)
link(onClick,15414441:onEvent2,[(122,68)(122,23)])
}
END_SDK
Add(ChildPanel,12254000,273,133)
{
link(onEvent1,6362703:doEvent2,[])
link(onEvent2,3030758:doWork1,[(345,146)(345,181)])
}
BEGIN_SDK
Add(EditMulti,5258339,21,21)
{
EventCount=3
WorkCount=2
VarCount=1
Width=608
Height=501
link(doWork1,13574451:doBringToFront,[(49,27)(49,76)])
link(Var1,8205894:EditText,[(27,406)(422,406)])
}
Add(Panel,13574451,77,49)
{
Left=1
Width=498
Height=355
Visible=1
BevelInner=0
Point(doVisible)
Point(doSendToBack)
Point(doBringToFront)
}
Add(Label,7342293,49,189)
{
Left=85
Top=80
Width=338
Height=17
Caption="Программа установит XXXXXXXXXXXXXXXX в следующую папку."
}
Add(Label,8863593,47,188)
{
Left=50
Top=115
Width=408
Height=17
Caption="Нажмите "Далее" что приступить к установки.Если вы хотите выбрать другую "
}
Add(ChildPanel,3586203,280,153)
{
link(onEvent1,5258339:onEvent1,[(383,159)(383,27)])
link(onEvent2,13574451:doSendToBack,[(337,166)(337,118)(65,118)(65,69)])
link(onEvent3,5258339:onEvent2,[(470,173)(470,34)])
}
BEGIN_SDK
Add(EditMulti,15414441,10,10)
{
EventCount=3
Width=153
Height=172
}
Add(Panel,13612531,21,21)
{
Top=310
Width=497
Height=46
BevelInner=0
BevelOuter=2
Point(doColor)
}
Add(Button,8540068,63,20)
{
Left=310
Top=10
Width=80
Height=25
Caption="Отмена"
link(onClick,15414441:onEvent1,[(122,26)(122,16)])
}
Add(Button,16338514,63,69)
{
Left=220
Top=10
Width=80
Height=25
Caption="< Назад"
Point(doEnabled)
link(onClick,15414441:onEvent2,[(129,75)(129,23)])
}
Add(Button,11801891,77,111)
{
Left=400
Top=10
Width=80
Height=25
Caption="Установить"
Point(doVisible)
link(onClick,15414441:onEvent3,[(136,117)(136,30)])
}
END_SDK
Add(Label,4161267,49,189)
{
Left=50
Top=130
Width=129
Height=17
Caption="папку, нажмите "Обзор""
}
Add(ChildPanel,59783,161,42)
{
}
BEGIN_SDK
Add(EditMulti,14466465,21,21)
{
}
Add(Panel,4417273,35,105)
{
Left=-1
Width=500
Height=55
BevelInner=0
BevelOuter=1
}
Add(Image,218829,154,84)
{
Width=500
Height=55
}
END_SDK
Add(CheckBox,16397587,98,343)
{
Left=50
Top=185
Width=195
Checked=0
Caption="Добавить ярлык на рабочий стол"
}
Add(CheckBox,14121632,148,346)
{
Left=50
Top=210
Width=310
Checked=0
Caption="Установить дополнительное программное обеспечение"
}
Add(Label,7910374,49,189)
{
Left=50
Top=250
Width=142
Height=17
Caption="Требуется места на диске:"
}
Add(Label,8467930,52,190)
{
Left=50
Top=270
Width=141
Height=17
Caption="Доступно места на диске: "
}
Add(Label,1048958,147,294)
{
Left=200
Top=270
Width=28
Height=17
Caption="none"
}
Add(Label,15258922,98,294)
{
Left=200
Top=250
Width=28
Height=17
Caption="none"
}
Add(ComboBox,8205894,402,224)
{
Left=50
Top=150
Width=340
Height=21
Point(EditText)
}
Add(Button,6475112,266,245)
{
Left=395
Top=148
Width=80
Height=25
Caption="Обзор"
link(onClick,4104339:doBrowse,[])
}
Add(Browse,4104339,329,245)
{
Title="Выберите папку для извлечения"
link(onBrowse,8205894:doText,[])
}
END_SDK
Add(ChildPanel,3030758,371,175)
{
link(onEvent1,6362703:doEvent3,[(489,181)(489,146)])
}
BEGIN_SDK
Pos(34,3)
Add(EditMulti,5258339,-13,18)
{
EventCount=3
WorkCount=3
DataCount=2
VarCount=1
Width=650
Height=599
link(doWork1,10269048:doEvent1,[(11,24)(11,94)])
link(doWork2,3081929:doPosition,[(25,31)(25,129)])
link(doWork3,3081929:doMax,[(25,38)(25,136)])
}
Add(Panel,13574451,43,46)
{
Left=1
Width=498
Height=355
Visible=1
BevelInner=0
Point(doVisible)
Point(doSendToBack)
Point(doBringToFront)
}
Add(ChildPanel,9745176,134,108)
{
link(onEvent1,5258339:onEvent1,[(290,114)(290,24)])
}
BEGIN_SDK
Add(EditMulti,15414441,10,10)
{
EventCount=1
Width=139
Height=151
}
Add(Panel,13612531,21,21)
{
Top=310
Width=497
Height=46
BevelInner=0
BevelOuter=2
Point(doColor)
}
Add(Button,8540068,63,20)
{
Left=380
Top=7
Width=100
Height=30
Caption="Отмена"
link(onClick,15414441:onEvent1,[(122,26)(122,16)])
}
END_SDK
Add(Label,7342293,141,151)
{
Left=75
Top=80
Width=365
Height=17
Caption="Пожалуйста, подождите завершения установки XXXXXXXXXXXXXXXX."
}
Add(ChildPanel,10414663,99,46)
{
}
BEGIN_SDK
Add(EditMulti,14466465,21,21)
{
}
Add(Panel,4417273,35,105)
{
Left=-1
Width=500
Height=55
BevelInner=0
BevelOuter=1
}
Add(Image,218829,154,84)
{
Width=500
Height=55
}
END_SDK
Add(ProgressBar,3081929,71,123)
{
Left=40
Top=165
Width=410
Height=25
ProgressColor=15780518
Point(doMax)
}
Add(Label,12540725,8,144)
{
Left=40
Top=145
Width=68
Height=17
Caption="Установка..."
}
Add(Hub,10269048,36,88)
{
OutCount=3
link(onEvent1,13574451:doBringToFront,[(62,94)(62,84)(31,84)(31,73)])
link(onEvent2,5258339:onEvent2,[(344,101)(344,31)])
}
END_SDK
Add(ChildPanel,6646726,476,161)
{
link(onEvent1,2325382:doEvent2,[(520,167)(520,160)(30,160)(30,153)])
}
BEGIN_SDK
Add(EditMulti,5258339,21,21)
{
EventCount=1
WorkCount=1
Width=608
Height=501
link(doWork1,13574451:doBringToFront,[(49,27)(49,76)])
}
Add(Panel,13574451,77,49)
{
Left=1
Width=498
Height=355
Visible=1
BevelInner=0
Point(doVisible)
Point(doSendToBack)
Point(doBringToFront)
}
Add(Label,7342293,49,112)
{
Left=140
Top=130
Width=221
Height=17
Caption="Установка STALKER Clear Sky завершена."
}
Add(Label,8863593,47,111)
{
Left=105
Top=165
Width=284
Height=17
Caption="Нажмите "Выход" что выйти из программы установки."
}
Add(ChildPanel,2950900,161,97)
{
link(onEvent1,5258339:onEvent1,[(383,103)(383,27)])
}
BEGIN_SDK
Add(EditMulti,15414441,10,10)
{
EventCount=1
Width=153
Height=172
}
Add(Panel,13612531,21,21)
{
Top=310
Width=497
Height=46
BevelInner=0
BevelOuter=2
Point(doColor)
}
Add(Button,11801891,77,111)
{
Left=400
Top=10
Width=80
Height=25
Caption="Выход"
Point(doVisible)
link(onClick,15414441:onEvent1,[(136,117)(136,16)])
}
END_SDK
Add(ChildPanel,12980576,161,42)
{
}
BEGIN_SDK
Add(EditMulti,14466465,21,21)
{
}
Add(Panel,4417273,35,105)
{
Left=-1
Width=500
Height=55
BevelInner=0
BevelOuter=1
}
Add(Image,218829,154,84)
{
Width=500
Height=55
}
END_SDK
END_SDK
Add(ChildPanel,13008579,161,84)
{
}
BEGIN_SDK
Add(EditMulti,5258339,21,21)
{
Width=419
Height=312
}
Add(Panel,13574451,63,105)
{
Left=171
Width=332
Height=310
Color=16777215
BevelInner=0
}
Add(Label,5883143,245,196)
{
Left=5
Top=35
Width=267
Height=23
Color=16777215
Font=[Arial,12,1,0,204]
Caption="Установка XXXXXXXXXXXXXXXX"
}
Add(Label,7342293,189,175)
{
Left=5
Top=85
Width=319
Height=17
Color=16777215
Caption="Программа установит XXXXXXXXXXXXXX на ваш компьютер."
}
Add(Label,13300509,126,168)
{
Left=5
Top=115
Width=256
Height=17
Color=16777215
Caption="Рекомендуется закрыть все прочие приложения "
}
Add(Label,4885211,63,161)
{
Left=5
Top=155
Width=306
Height=17
Color=16777215
Caption="Нажмите "Далее" чтобы продолжить или "Отмена", чтобы "
}
Add(Label,1056739,28,140)
{
Left=5
Top=130
Width=207
Height=17
Color=16777215
Caption="перед тем, как приступить к установки."
}
Add(Label,13402539,56,196)
{
Left=5
Top=170
Width=170
Height=17
Color=16777215
Caption="выйти из программы установки."
}
END_SDK
Add(ChildPanel,12241263,161,42)
{
}
BEGIN_SDK
Add(EditMulti,14466465,21,21)
{
}
Add(Panel,4417273,35,105)
{
Left=-1
Width=172
Height=310
BevelInner=0
BevelOuter=1
}
Add(Image,8077002,133,105)
{
Width=172
Height=320
}
END_SDK
Add(ChildForm,12050998,182,217)
{
link(onEvent1,2325382:doEvent1,[(226,223)(226,185)(37,185)(37,146)])
}
BEGIN_SDK
Add(EditMulti,8497311,21,21)
{
EventCount=1
WorkCount=1
Width=587
Height=410
link(doWork1,2941370:doVisible,[(31,27)(31,139)])
}
Add(MainForm,2941370,42,105)
{
Left=35
Top=105
Width=295
Height=139
Visible=1
Caption="Выход ?"
BorderStyle=3
Position=1
Point(doVisible)
}
Add(Button,1507373,196,182)
{
Left=60
Top=60
Width=80
Height=25
Caption="OK"
link(onClick,8497311:onEvent1,[(418,188)(418,27)])
}
Add(Button,269484,196,217)
{
Left=155
Top=60
Width=80
Height=25
Caption="Отмена"
link(onClick,2941370:doClose,[(240,223)(240,177)(23,177)(23,132)])
}
Add(Label,193470,196,63)
{
Left=30
Top=15
Width=229
Height=17
Caption="Установки не завершена,вы хотите выйти ?"
}
END_SDK
Add(Hub,1254244,154,217)
{
InCount=2
OutCount=1
link(onEvent1,12050998:doWork1,[])
}
Add(ChildPanel,9286429,217,133)
{
link(onEvent1,12254000:doWork1,[])
link(onEvent2,6362703:doEvent4,[(405,146)(405,153)])
}
BEGIN_SDK
Add(EditMulti,5258339,21,21)
{
EventCount=2
WorkCount=1
Width=461
Height=501
link(doWork1,13574451:doBringToFront,[(49,27)(49,76)])
}
Add(Panel,13574451,77,49)
{
Left=1
Width=498
Height=355
Visible=1
BevelInner=0
Point(doVisible)
Point(doSendToBack)
Point(doBringToFront)
}
Add(Label,7342293,49,189)
{
Left=145
Top=60
Width=218
Height=17
Caption="Прочитайте Readme перед установкой."
}
Add(ChildPanel,7641681,217,153)
{
link(onEvent1,5258339:onEvent2,[(365,159)(365,34)])
link(onEvent2,13574451:doSendToBack,[(324,166)(324,118)(65,118)(65,69)])
link(onEvent3,5258339:onEvent1,[(365,173)(365,27)])
}
BEGIN_SDK
Add(EditMulti,15414441,10,10)
{
EventCount=3
Width=153
Height=172
}
Add(Panel,13612531,21,21)
{
Top=310
Width=497
Height=46
BevelInner=0
BevelOuter=2
Point(doColor)
}
Add(Button,8540068,63,20)
{
Left=310
Top=10
Width=80
Height=25
Caption="Отмена"
link(onClick,15414441:onEvent1,[(122,26)(122,16)])
}
Add(Button,16338514,63,69)
{
Left=220
Top=10
Width=80
Height=25
Caption="< Назад"
Point(doEnabled)
link(onClick,15414441:onEvent2,[(129,75)(129,23)])
}
Add(Button,11801891,77,111)
{
Left=400
Top=10
Width=80
Height=25
Caption="Далее >"
Point(doVisible)
link(onClick,15414441:onEvent3,[(136,117)(136,30)])
}
END_SDK
Add(ChildPanel,8649315,161,42)
{
}
BEGIN_SDK
Add(EditMulti,14466465,21,21)
{
}
Add(Panel,4417273,35,105)
{
Left=-1
Width=500
Height=55
BevelInner=0
BevelOuter=1
}
Add(Image,218829,154,84)
{
Width=500
Height=55
}
END_SDK
Add(RichEdit,11665892,161,161)
{
Left=10
Top=80
Width=475
Height=230
Strings=#45: Тут будет какая либо информация.|
ReadOnly=0
}
END_SDK
Add(Hub,2325382,42,140)
{
InCount=2
OutCount=1
link(onEvent1,3595639:doClose,[])
}

карма: 1

0
Разработчик
Ответов: 4682
Рейтинг: 423
#11: 2009-03-26 15:55:04 ЛС | профиль | цитата
Не понял Ты хочешь чтобы прога копировала из папки программы, которую надо установить, в папку установки?
карма: 10
0
Ответов: 45
Рейтинг: -2
#12: 2009-03-26 15:56:00 ЛС | профиль | цитата
-=да=-
карма: 1

0
Разработчик
Ответов: 4682
Рейтинг: 423
#13: 2009-03-26 15:59:50 ЛС | профиль | цитата
Вот кусок моей проги, правда немного другого назначения. Уверен найдешь че надо!
#sha
Add(Edit,12914149,367,106)
{
@Hint=#25:Путь туды куды копировать|
Left=5
Top=35
Width=425
Height=25
Font=[MS Sans Serif,10,0,0,1]
Text="Путь к папке"
AddHint(9,-38,156,13,@Hint)
}
Add(Browse,11188591,262,148)
{
link(onBrowse,14882776:doStrCat,[])
}
Add(Button,10421767,213,106)
{
@Hint=#15:Туды копировать|
Left=440
Top=35
Width=60
Height=25
Caption="Выбрать"
link(onClick,13543899:doBrowse,[])
AddHint(-1,-39,103,13,@Hint)
}
Add(Edit,14248607,381,148)
{
@Hint=#22:Путь туды откуда брать|
Left=5
Top=100
Width=425
Height=25
Font=[MS Sans Serif,10,0,0,1]
Text="Путь к папке"
AddHint(51,-21,135,13,@Hint)
}
Add(Button,1789080,213,148)
{
@Hint=#12:Оттуда брать|
Left=440
Top=100
Width=60
Height=25
Caption="Выбрать"
link(onClick,11188591:doBrowse,[])
AddHint(-35,44,82,13,@Hint)
}
Add(Button,7324329,185,246)
{
Left=5
Top=410
Width=135
Height=25
Caption="Начать"
Point(doEnabled)
link(onClick,1902390:doEvent1,[])
AddHint(-13,-29,51,13,Caption)
}
Add(Button,5578446,185,302)
{
Left=365
Top=410
Width=135
Height=25
Enabled=1
Caption="Отменить"
Point(doEnabled)
link(onClick,2575536:doEvent1,[])
AddHint(-13,41,65,13,Caption)
}
Add(Browse,13543899,262,106)
{
link(onBrowse,7618828:doStrCat,[])
}
Add(Hub,1902390,227,246)
{
OutCount=6
link(onEvent1,6971642:doClear,[(332,252)(332,259)])
link(onEvent2,16764575:doStart,[(259,259)(259,252)])
link(onEvent3,9517126:doWork1,[(253,266)(253,281)(112,281)])
link(onEvent4,10571376:doClear,[(255,273)(255,581)])
link(onEvent5,3014202:doWork3,[(253,280)(253,276)(105,276)])
link(onEvent6,8957637:doEvent2,[(253,287)(253,275)(61,275)(61,287)])
}
Add(StringTable,10571376,724,568)
{
Left=5
Top=145
Width=495
Height=195
Columns=#4:Файл|6:Размер|4:Путь|
Redaction=1
Flat=1
Point(doSelect)
}
Add(StrCat,7618828,311,106)
{
Str2=""
link(onStrCat,12914149:doText,[])
}
Add(StrCat,14882776,311,148)
{
Str2=""
link(onStrCat,14248607:doText,[])
}
Add(StrCat,5745043,766,470)
{
link(onStrCat,2617486:doData,[(810,476)(810,464)(705,464)(705,476)])
link(Str1,3886008:Var1,[(772,345)(333,345)])
link(Str2,6534454:Var1,[(779,369)])
}
Add(FileSearch,12366938,325,246)
{
Include=2
link(onSearch,12495545:doReplace,[])
link(onEndSearch,4813702:doEvent1,[(365,259)(365,329)])
link(Dir,3886008:Var2,[])
}
Add(StrList,6971642,423,246)
{
}
Add(FileSearch,10167679,458,330)
{
link(onSearch,2547099:doReplace,[])
link(onEndSearch,8957637:doEvent1,[(500,343)(500,384)(61,384)(61,280)])
link(Dir,6332170:Var2,[])
}
Add(Replace,2547099,507,330)
{
link(onReplace,1203937:doValue,[])
link(Sub_str,6332170:Var3,[(520,311)])
}
Add(GetDataEx,6332170,458,302)
{
link(Data,14248607:Text,[(471,243)(387,243)])
}
Add(Replace,12495545,374,246)
{
link(onReplace,6971642:doAdd,[])
link(Sub_str,3886008:Var3,[(387,220)])
}
Add(GetDataEx,3886008,325,211)
{
link(Data,11479293:Var1,[(338,185)])
}
Add(ArrayEnum,1782633,605,330)
{
onBreakEnable=0
link(onItem,3994309:doCompare,[])
link(onEndEnum,10324423:doEvent1,[(645,343)(645,427)])
link(Array,702594:Var3,[(611,304)])
}
Add(If_else,3994309,654,330)
{
link(onTrue,1782633:doStop,[(697,336)(697,376)(598,376)(598,343)])
link(Op2,6534454:Var3,[(667,318)(592,318)(592,374)])
}
Add(Memory,1203937,549,330)
{
link(onData,1782633:doEnum,[])
}
Add(StrCat,2373649,703,421)
{
link(Str1,12908538:Var3,[(709,409)])
link(Str2,6534454:Var2,[(716,399)(583,399)])
}
Add(GetDataEx,6534454,570,365)
{
Angle=3
link(Data,1203937:Value,[(555,374)])
}
Add(FileTools,13088458,703,526)
{
link(onEnd,12482480:doNext,[])
link(FileName,2373649:Result,[])
link(NewFileName,6146321:Var2,[(716,518)(723,518)])
}
Add(Hub,10324423,654,421)
{
OutCount=3
link(onEvent1,2373649:doStrCat,[])
link(onEvent2,13088458:doCopy,[(686,434)(686,539)])
link(onEvent3,591551:doStrCat,[(680,441)(680,507)(642,507)(642,574)])
}
Add(EventFromData,2617486,717,470)
{
link(onEvent,5745043:doStrCat,[])
}
Add(DoData,5594371,829,470)
{
link(onEventData,1980889:doMax,[])
link(Data,4078096:getVar,[])
}
Add(LineBreak,9834740,787,533)
{
Caption="2"
link(Out,5594371:doData,[(823,539)(823,476)])
Primary=[6411655,-371,-49]
}
Add(Counter,12482480,752,526)
{
Max=10000000
link(onNext,1980889:doPosition,[(816,532)(816,469)])
}
Add(MultiElementEx,591551,654,568)
{
link(onStrCat,10571376:doAdd,[])
link(Str1,15329069:Var2,[])
link(Str2,15329069:Var3,[(667,556)])
link(Str21,15329069:Var1,[(674,562)(655,562)])
}
BEGIN_SDK
Add(EditMultiEx,12299841,21,21)
{
WorkCount=#35:doStrCat=Создает строку для таблицы|
EventCount=#40:onStrCat=Выдает в поток созданную строку|
DataCount=#9:Str1=Файл|17:Str2=Размер файла|18:Str21=Путь к файлу|
link(doStrCat,5767611:doStrCat,[(31,27)(31,139)])
}
Add(StrCat,5767611,42,133)
{
Str2=";"
link(onStrCat,5894107:doStrCat,[])
link(Str1,13189765:GetData,[])
}
Add(StrCat,5894107,140,133)
{
link(onStrCat,14293971:doStrCat,[(183,139)(183,81)(142,81)(142,48)])
link(Str2,9866699:GetData,[])
}
Add(StrCat,14293971,154,42)
{
Str2=";"
link(onStrCat,713293:doStrCat,[])
}
Add(StrCat,713293,210,42)
{
link(onStrCat,12299841:onStrCat,[(282,48)(282,27)])
link(Str2,12299841:Str21,[(223,32)(41,32)])
}
Add(EventFromData,9866699,147,91)
{
link(onEvent,13608464:doRead,[])
}
Add(FileAttributes,13608464,196,91)
{
Point(FileSize)
link(onRead,4994337:doData,[])
link(FileName,12299841:Str2,[(202,30)(34,30)])
}
Add(DoData,4994337,245,91)
{
link(onEventData,9866699:doData,[(289,97)(289,85)(135,85)(135,97)])
link(Data,13608464:FileSize,[(251,83)(236,83)(236,130)(223,130)])
}
Add(EventFromData,13189765,42,84)
{
link(onEvent,16463911:doPart,[])
}
Add(FilePart,16463911,84,84)
{
NameWOExt=1
link(onName,13189765:doData,[(124,97)(124,72)(35,72)(35,90)])
link(FileName,12299841:Str1,[(90,32)(27,32)])
}
END_SDK
Add(GetDataEx,15329069,647,547)
{
link(Data,6146321:Var1,[(660,507)])
}
Add(GetDataEx,6146321,710,498)
{
link(Data,2617486:GetData,[])
}
Add(ArrayEnum,4161970,514,442)
{
onBreakEnable=0
link(onItem,13235914:doCompare,[])
link(onEndEnum,16311364:doNext,[(554,455)(554,490)])
link(Array,702594:Var2,[(520,429)(443,429)])
}
Add(If_else,13235914,563,442)
{
link(onTrue,4161970:doStop,[(606,448)(606,481)(502,481)(502,455)])
link(Op2,5770994:Value,[(576,430)(524,430)(524,486)(471,486)])
}
Add(FileSearch,2707975,367,442)
{
link(onSearch,10912527:doReplace,[])
link(onEndSearch,6411655:In,[(407,455)(407,490)])
link(Dir,9775930:Var2,[])
}
Add(Replace,10912527,416,442)
{
link(onReplace,5770994:doValue,[])
link(Sub_str,12908538:Var2,[(429,428)(457,428)])
}
Add(Memory,5770994,465,442)
{
link(onData,4161970:doEnum,[])
}
Add(GetDataEx,702594,430,295)
{
link(Data,6971642:Array,[])
}
Add(GetDataEx,12908538,444,400)
{
Angle=3
link(Data,6332170:Var1,[(452,311)])
}
Add(Hub,4813702,374,323)
{
OutCount=3
link(onEvent1,2707975:doSearch,[(400,329)(400,389)(355,389)(355,448)])
link(onEvent2,9174538:doSearch,[(398,336)(398,423)(343,423)(343,518)])
link(onEvent3,10167679:doSearch,[(423,343)(423,336)])
}
Add(Counter,16311364,563,484)
{
Max=10000000
}
Add(Thread,16764575,276,246)
{
Delay=1
FastStop=0
Point(doStopFlag)
link(onExec,12366938:doSearch,[])
}
Add(Hub,2575536,234,302)
{
OutCount=10
link(onEvent1,16764575:doStopFlag,[(262,308)(262,266)])
link(onEvent2,12366938:doStop,[(314,315)(314,259)])
link(onEvent3,2707975:doStop,[(313,322)(313,455)])
link(onEvent4,10167679:doStop,[(353,329)(353,343)])
link(onEvent5,9174538:doStop,[(308,336)(308,525)])
link(onEvent7,9517126:doWork3,[(260,350)(260,378)(112,378)])
link(onEvent8,3014202:doWork1,[(260,357)(260,261)])
link(onEvent9,6339136:doWork1,[(266,364)])
link(onEvent10,7979208:doWork2,[(258,371)(258,399)])
}
Add(GProgressBar,1980889,885,463)
{
Left=5
Top=345
Width=495
Height=30
Ctl3D=0
LightProgress=65280
DarkProgress=32768
Point(doMax)
}
Add(FileSearch,9174538,367,512)
{
Include=1
link(onSearch,3445223:doReplace,[])
link(Dir,9775930:Var1,[(380,479)(360,479)(360,423)])
}
Add(GetDataEx,9775930,367,414)
{
link(Data,12908538:Var1,[(380,404)])
}
Add(Dir,14162382,507,512)
{
}
Add(Replace,3445223,423,512)
{
link(onReplace,12502631:doStrCat,[])
link(Sub_str,9775930:Var3,[(436,423)])
}
Add(StrCat,12502631,465,512)
{
link(onStrCat,14162382:doDir,[])
link(Str1,11479293:Var2,[(471,372)(359,372)])
}
Add(GetDataEx,11479293,346,176)
{
Angle=1
link(Data,12914149:Text,[(373,185)])
}
Add(LineBreakEx,10615544,563,533)
{
Caption="Max"
Type=3
link(_Data,16311364:Count,[])
}
Add(Hub,8957637,73,274)
{
InCount=2
OutCount=5
link(onEvent1,3014202:doWork2,[(94,280)(94,266)])
link(onEvent2,9517126:doWork2,[(97,287)(97,301)])
link(onEvent4,6339136:doWork2,[(175,301)(175,420)])
link(onEvent5,7979208:doWork1,[(273,308)])
}
Add(Switch,7303216,122,295)
{
DataOn=Integer(0)
DataOff=Integer(1)
link(onSwitch,5578446:doEnabled,[(170,301)(170,308)])
}
Add(Switch,8232494,122,260)
{
DataOn=Integer(0)
DataOff=Integer(1)
Default=0
link(onSwitch,7324329:doEnabled,[(170,266)(170,252)])
}
Add(HubEx,3014202,101,253)
{
link(onEvent,8232494:doSwitch,[])
}
Add(HubEx,9517126,108,288)
{
link(onEvent,7303216:doSwitch,[])
}
Add(HubEx,6339136,262,407)
{
Angle=1
link(onEvent,12482480:doReset,[(266,546)])
}
Add(HubEx,7979208,269,386)
{
Angle=1
link(onEvent,16311364:doReset,[(273,504)])
}
Add(LineBreakEx,4078096,829,435)
{
Caption="Max"
Type=2
}
карма: 10
0
файлы: 1code_12437.txt [9.2KB] [534]
Ответов: 4674
Рейтинг: 516
#14: 2009-03-26 17:33:04 ЛС | профиль | цитата
Вот по этой прчине был брошен один из моих проектов.
Причина бональна, через две недели после того как я остановил рисование, так и не смог монять что я хотел сотворить , кстати процесор копирования файлов и папок был почти доделан.
------------ Дoбавленo:

Вот поэтому нужно очень внимательно читать главную страницу сайта
карма: 6

0
Ответов: 45
Рейтинг: -2
#15: 2009-03-26 17:33:54 ЛС | профиль | цитата
Я тоже просал но опять захотел сделать думал что то выйдет

карма: 1

0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)