Gunta писал(а):
Что-то с наглядностью не очень. А так?
Чет с утра еще не проснулся, наворотил с бодуна

Add(MainForm,10634884,42,42)
{
Width=674
Height=367
Point(onClose)
link(onClose,15144682:doEvent1,[])
}
Add(ChildPanelEx,5765194,42,98)
{
link(onEvent2,10088875:doEvent1,[(83,104)(83,97)])
link(onPart1,10904693:doValue,[])
link(onPart2,168900:doWork1,[(323,118)])
link(onPart3,9301816:doValue,[(363,125)(363,188)])
link(onPosition,16551392:doWork2,[(636,132)(636,321)])
}
BEGIN_SDK
Add(EditMultiEx,15651246,21,21)
{
WorkCount=#5:doMax|
EventCount=#8:onEvent2|7:onPart1|7:onPart2|7:onPart3|10:onPosition|
link(doMax,4262571:doEvent1,[(73,27)(73,174)])
}
Add(Panel,11288418,35,105)
{
Width=658
Height=35
Align=2
}
Add(Label,1683065,35,49)
{
Left=10
Top=10
Width=82
Height=17
Caption="Начало смен с:"
}
Add(DatePicker,438136,161,49)
{
Left=105
Top=5
Width=155
Height=21
Point(DateInt)
Point(onCloseUp)
link(onCloseUp,1467083:doEvent1,[(205,62)(205,86)(107,86)(107,111)])
}
Add(DateConvertor,411267,161,105)
{
Mode=9
Format="yyyy;M;d"
Point(Data)
link(onResult,9717560:doSplit,[])
link(Data,438136:DateInt,[])
}
Add(Hub,1467083,119,105)
{
link(onEvent1,411267:doConvert,[])
link(onEvent2,15651246:onEvent2,[(216,118)(216,27)])
}
Add(MultiStrData,9717560,231,105)
{
Count=3
link(onPart1,15651246:onPart1,[(282,111)(282,34)])
link(onPart2,15651246:onPart2,[(282,118)(282,41)])
link(onPart3,15651246:onPart3,[(282,125)(282,48)])
}
Add(UpDown,8060565,161,161)
{
Left=275
Top=5
Width=65
Max=0
Kind=0
Point(doMax)
link(onPosition,15651246:onPosition,[(304,167)(304,55)])
}
Add(Hub,4262571,126,168)
{
link(onEvent1,8060565:doMax,[])
link(onEvent2,8060565:doPosition,[(150,181)(150,167)])
}
END_SDK
Add(StrList,7965454,721,105)
{
@Hint=#21:График смены в цветах|
Strings=#10:день;65535|10:день;65535|9:вых;51200|9:вых;51200|10:день;65535|10:день;65535|9:вых;51200|9:вых;51200|10:ночь;33023|10:ночь;33023|9:вых;51200|9:вых;51200|10:ночь;33023|10:ночь;33023|9:вых;51200|9:вых;51200|
Point(doGetString)
Point(String)
Point(IdxToSelect)
AddHint(55,-23,72,208,Strings)
}
Add(FormatStr,6701151,721,322)
{
DataCount=4
Mask="%1:%2:%3-%4"
link(onFString,16551392:doWork3,[])
link(Str2,13076261:Var3,[(734,292)])
link(Str3,110553:Var3,[(741,278)])
link(Str4,7965454:String,[])
}
Add(InlineCode,15930644,378,315)
{
WorkPoints=#12:GetMonthDays|
EventPoints=#6:onDays|
DataPoints=#4:Year|5:Month|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses Kol,Share,Debug,Windows;|0:|4:type|28: THiAsmClass = class(TDebug)|8: private|3: |7: public|20: onDays:THI_Event;|19: Year: THI_Event;|22: Month:THI_Event; |4: |55: procedure GetMonthDays(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|35:procedure THiAsmClass.GetMonthDays;|5:begin|108: _hi_OnEvent(onDays, Int2Str(MonthDays[IsLeapYear(ReadInteger(_Data, Year))][ReadInteger(_Data, Month)]));|6:end; |0:|4:end.|0:|0:|
link(onDays,2221956:doFor,[])
link(Year,110553:Var2,[])
link(Month,13076261:Var2,[])
}
Add(For,2221956,434,315)
{
InData=0
link(onEvent,11351548:doEvent1,[])
link(onStop,7642751:doEvent1,[(485,328)(485,342)])
link(Start,9301816:Value,[])
}
Add(Memory,9301816,434,182)
{
Default=Integer(1)
}
Add(MultiElementEx,15350782,651,133)
{
link(onTrue,7965454:doGetString,[])
link(Op2,7965454:Count,[(657,120)(702,120)(702,155)(734,155)])
}
BEGIN_SDK
Add(EditMultiEx,5572494,14,7)
{
WorkCount=#7:doWork2|8:doEvent1|
EventCount=#6:onTrue|
DataCount=#3:Op2|
link(doWork2,5969604:doWork2,[(39,13)(39,69)])
link(doEvent1,7110887:doEvent1,[(29,20)(29,76)])
}
Add(If_else,6423386,161,63)
{
Type=1
link(onTrue,230273:doData,[])
link(onFalse,8458660:doEvent1,[(202,76)(202,117)(37,117)(37,83)])
link(Op2,5572494:Op2,[(174,16)(20,16)])
}
Add(Math,2334012,112,63)
{
Op2=1
ResultType=0
Default=-1
Point(doClear)
link(onResult,6423386:doCompare,[])
link(Op1,12418993:Var2,[])
}
Add(Hub,8458660,42,77)
{
link(onEvent1,7110887:doEvent2,[])
link(onEvent2,5969604:doWork3,[(67,90)])
}
Add(HubEx,5969604,63,63)
{
link(onEvent,2334012:doOperation,[])
}
Add(DoData,230273,231,63)
{
link(onEventData,5572494:onTrue,[(285,69)(285,13)])
link(Data,12418993:Var3,[(237,54)])
}
Add(GetDataEx,12418993,112,49)
{
Angle=3
link(Data,2334012:Result,[(106,54)(106,110)(118,110)])
}
Add(Hub,7110887,84,70)
{
InCount=2
OutCount=1
link(onEvent1,2334012:doClear,[])
}
END_SDK
Add(Hub,11351548,504,315)
{
link(onEvent1,15350782:doWork2,[(534,321)(534,139)])
link(onEvent2,6701151:doString,[])
}
Add(Memory,10904693,378,105)
{
}
Add(Memory,880184,385,147)
{
}
Add(Math,12749478,203,343)
{
Op2=1
ResultType=0
Point(doClear)
link(onResult,12054949:doCompare,[])
link(Op1,13076261:Var1,[(209,292)])
}
Add(HubEx,168900,319,147)
{
link(onEvent,880184:doValue,[])
}
Add(If_else,12054949,245,343)
{
Type=3
Op2=Integer(12)
link(onTrue,11908777:doEvent1,[])
link(onFalse,15922251:doOperation,[(293,356)(293,370)])
AddHint(-5,-26,27,13,Op2)
}
Add(Hub,11908777,301,343)
{
link(onEvent1,168900:doWork3,[(323,349)])
link(onEvent2,15491587:doWork1,[(333,356)])
}
Add(HubEx,15491587,329,308)
{
link(onEvent,10867731:doEvent1,[])
}
Add(GetDataEx,110553,378,273)
{
link(Data,10904693:Value,[])
}
Add(GetDataEx,13076261,385,287)
{
link(Data,880184:Value,[])
}
Add(ChildPanel,16551392,826,308)
{
}
BEGIN_SDK
Add(EditMulti,3576348,21,21)
{
WorkCount=5
VarCount=1
link(doWork1,3553576:##add,[(67,27)(67,62)])
link(doWork2,3553576:##select,[(67,34)(67,69)])
link(doWork3,3553576:add,[(67,41)(67,76)])
link(doWork4,3553576:doResize,[(67,48)(67,83)])
link(doWork5,12505578:doEvent1,[(67,55)(67,90)])
link(Var1,3553576:##count,[(27,155)(118,155)])
}
Add(Panel,11776260,35,105)
{
Left=5
Top=40
Width=560
Height=270
Align=5
}
Add(ChildPanelEx,3553576,112,56)
{
Mode=1
}
BEGIN_SDK
Add(EditMultiEx,4530417,21,21)
{
WorkCount=#5:##add|8:##select|3:add|8:doResize|5:clear|7:##clear|
VarCount=#7:##count|
Width=615
Height=361
Point(##add)
Point(##select)
Point(##clear)
Point(##count)
link(##select,9646289:doBringToFront,[(73,34)(73,167)])
link(add,16352769:##add,[(119,41)(119,111)])
link(doResize,11571999:doResize,[])
link(clear,16352769:##clear,[(119,55)(119,125)])
}
Add(Panel,9646289,126,154)
{
Left=35
Top=105
Width=502
Height=286
Align=5
Point(doBringToFront)
}
Add(ChildPanelEx,16352769,217,105)
{
Mode=1
}
BEGIN_SDK
Add(EditMultiEx,2469657,21,21)
{
WorkCount=#5:##add|8:##select|7:##clear|
Point(##add)
Point(##select)
Point(##clear)
link(##add,12591514:doSplit,[(67,27)(67,83)])
}
Add(Panel,5082495,140,77)
{
Left=35
Top=105
Font=[MS Sans Serif,12,1,0,1]
Layout="parent.MyLattice"
WidthScale=14
HeightScale=20
Point(doColor)
}
Add(MultiStrData,12591514,77,77)
{
link(onPart1,5082495:doCaption,[])
link(onPart2,5082495:doColor,[])
}
END_SDK
Add(GridLayout,11571999,217,42)
{
Name="MyLattice"
Rows=6
Cols=7
}
END_SDK
Add(Hub,12505578,77,84)
{
link(onEvent1,3553576:clear,[])
link(onEvent2,3553576:##clear,[])
}
END_SDK
Add(Hub,7642751,504,336)
{
OutCount=3
link(onEvent1,16551392:doWork4,[(607,342)(607,335)])
link(onEvent2,9301816:doClear,[(530,349)(530,272)(422,272)(422,195)])
link(onEvent3,12749478:doOperation,[(534,356)(534,394)(191,394)(191,349)])
}
Add(Hub,10867731,343,308)
{
link(onEvent1,16551392:doWork1,[])
link(onEvent2,15930644:GetMonthDays,[])
}
Add(Hub,10088875,91,91)
{
link(onEvent1,15144682:doEvent2,[(119,97)(119,76)])
link(onEvent2,15491587:doWork2,[(239,104)(239,314)])
}
Add(Hub,758436,595,140)
{
link(onEvent1,15350782:doEvent1,[])
link(onEvent2,16551392:doWork5,[(624,153)(624,342)])
}
Add(Math,15922251,826,364)
{
OpType=1
Op2=1
ResultType=0
link(onResult,5765194:doMax,[(873,370)(873,410)(21,410)(21,104)])
link(Op1,16551392:Var1,[])
}
Add(Hub,15144682,147,63)
{
InCount=2
link(onEvent1,758436:doEvent1,[(371,69)(371,146)])
link(onEvent2,12749478:doClear,[(175,76)(175,356)])
}
Хех...
И никто даже не заметил. Что забыл день обнулить и сброс сделать при закрытии формы.
