Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2013-01-04 17:20:11 ЛС | профиль | цитата
lenchik_vla писал(а):
Очередной бардак на ПК подтолкнул меня на создание этой полезной штуки
Штука полезная, но решена с применением того же бардака:
Список_директорий.jpg
(сравни со своим решением ). Во вторую ChildFormEx даже заглядывать страшно.
И пример работы с DateConvertor:
конвертор_даты.jpg
nesco старался, а все его старания побоку.
Вобщем, какой бардак на ПК, такой бардак и в работе. (или наоборот).

Извини, не обижайся.


------------ Дoбавленo в 17.15:
И здесь бардак - картинки сожрало.
Ладно выложу схемой:
1. ChildFormEx - Список_директорий

Add(ChildForm,9181237,161,91)
{
}
BEGIN_SDK
Add(EditMulti,1695464,21,21)
{
EventCount=2
WorkCount=2
Width=328
Height=291
link(doWork1,9790780:doVisible,[(75,27)(75,118)])
link(doWork2,4886140:doWork1,[(242,34)])
}
Add(MainForm,9790780,98,84)
{
Left=35
Top=105
Width=269
Height=272
Visible=1
Caption="Список директорий"
BorderStyle=5
MouseCapture=0
Position=1
ShiftLeft=4
ShiftTop=4
Point(doVisible)
link(onCreate,13026634:doLoad,[])
}
Add(Browse,4329720,91,175)
{
Title="Выбор папки"
NewStyle=0
link(onBrowse,11290997:doRowAction,[])
}
Add(MTStrTbl,13898783,42,224)
{
Width=253
Height=218
Align=5
Ctl3D=1
Name="TMD"
Hint="Директории мониторинга"
HintManager="parent.HM"
Columns=#10:Директория|0:|
Point(onKeyDown)
link(onKeyDown,10941579:doCompare,[])
}
Add(MST_RowAction,11290997,154,175)
{
MSTControl="TMD"
link(onChange,12668362:doEvent1,[])
}
Add(MST_ColAction,8737986,266,140)
{
Action=9
MSTControl="TMD"
}
Add(MST_ArrayRows,14136490,266,49)
{
MSTControl="TMD"
}
Add(Hub,12668362,203,175)
{
InCount=2
OutCount=3
link(onEvent1,16551523:doWork3,[(228,181)])
link(onEvent2,1695464:onEvent2,[(323,188)(323,34)])
link(onEvent3,4411194:doSave,[])
}
Add(MST_RowAction,9293560,154,252)
{
Action=3
MSTControl="TMD"
Point(Index)
link(onChange,12668362:doEvent2,[(194,258)(194,188)])
link(Index,13898783:Index,[(160,240)(141,240)(141,293)(55,293)])
}
Add(If_else,10941579,91,252)
{
Op2=String(46)
link(onTrue,9293560:doRowAction,[])
}
Add(MT_MTArrayEnum,15981303,266,98)
{
link(onItem,1695464:onEvent1,[(315,104)(315,27)])
link(Array,14136490:Strings,[])
}
Add(Button,4909446,42,175)
{
Top=218
Width=253
Align=4
Caption="Добавить директорию"
link(onClick,4329720:doBrowse,[])
}
Add(MST_Save,4411194,266,189)
{
FileName="PATHList"
SaveColumn=1
MSTControl="TMD"
}
Add(MST_Load,13026634,154,98)
{
FileName="PATHList"
ColNameHeader=1
MSTControl="TMD"
link(onLoad,2254083:doEvent1,[])
}
Add(HubEx,4886140,238,98)
{
link(onEvent,15981303:doEnum,[])
}
Add(Hub,2254083,203,98)
{
link(onEvent1,4886140:doWork2,[])
link(onEvent2,16551523:doWork1,[(228,111)])
}
Add(HubEx,16551523,224,140)
{
link(onEvent,8737986:doColAction,[])
}
END_SDK
2.конвертор_даты

Add(FileAttributes,9199120,378,77)
{
FileName="..License.txt"
Point(FileSize)
Point(onGetFileIcon)
Point(doGetFileIcon)
Point(DateCreateReal)
Point(DateAccessReal)
Point(DateModifyReal)
link(onRead,15146303:doEvent1,[(442,83)(442,119)(352,119)(352,139)])
}
Add(Hub,15146303,364,133)
{
OutCount=3
link(onEvent1,541625:doConvert,[])
link(onEvent2,3986063:doConvert,[(399,146)(399,181)])
link(onEvent3,2192641:doConvert,[(391,153)(391,223)])
}
Add(DateConvertor,541625,406,133)
{
Mode=9
Format="dd.MM.yyyy HH:mm"
Point(Result)
Point(Data)
link(Data,9199120:DateCreateReal,[])
}
Add(DateConvertor,3986063,413,175)
{
Mode=9
Format="dd.MM.yyyy HH:mm"
Point(Result)
Point(Data)
link(Data,9199120:DateAccessReal,[])
}
Add(DateConvertor,2192641,420,217)
{
Mode=9
Format="dd.MM.yyyy HH:mm"
Point(Result)
Point(Data)
link(Data,9199120:DateModifyReal,[])
}
------------ Дoбавленo в 17.20:
lenchik_vla,
1. ненавижу програмы, которые сами без спроса (читай без мыла) лезут куда их не просят (читай в задницу)
2. Опрашивать каждых 5 секунд - ты меня извини. Нет слов. Вернее слова есть, но... непечатные. Что нельзя удалить раз при запуске проги ? Непонимаю.

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 2Список_директорий.jpg [29.2KB] [733], конвертор_даты.jpg [50.8KB] [687]