[/coMake(delphi)
ver(4.04 build 184)
Add(MainForm,16572938,70,203)
{
Width=491
Height=414
}
Add(StringTableMT,7932162,658,371)
{
Top=136
Width=475
Height=240
Align=4
Font=[MS Sans Serif,12,1,0,1]
Columns=#5:1=200|5:2=200|5:3=200|
CheckBoxes=0
ColorItems=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(Strings)
Point(CheckBoxes)
}
Add(Button,10248593,196,266)
{
Left=380
Top=20
Width=80
Height=25
Caption="Сохранить"
link(onClick,428010:doString,[])
}
Add(FormatStr,428010,238,266)
{
DataCount=3
Mask="%1;%2;%3"
Point(FString)
link(onFString,16269237:doEnum,[])
link(Str1,4177026:Text,[(244,257)(209,257)])
link(Str2,16696074:Text,[])
link(Str3,12199420:Caption,[(258,202)(496,202)])
}
Add(Edit,4177026,203,210)
{
Left=10
Top=10
Width=265
Text="Иванов"
}
Add(Edit,16696074,245,210)
{
Left=10
Top=35
Width=265
Text="Иван"
}
Add(Label,8177937,154,196)
{
Left=290
Top=15
Width=60
Height=17
Font=[MS Sans Serif,8,1,0,1]
Caption="Фамилия"
}
Add(Label,10526869,154,210)
{
Left=290
Top=35
Width=29
Height=17
Font=[MS Sans Serif,8,1,0,1]
Caption="Имя"
}
Add(ArrayEnum,16269237,301,266)
{
onBreakEnable=0
link(onItem,7268067:doCompare,[])
link(onEndEnum,7041485:doString,[(340,279)(340,377)])
link(Array,12022579:Var1,[(307,243)])
}
Add(FormatStr,7041485,525,371)
{
DataCount=1
Mask="#58880 ;%1"
Point(FString)
link(onFString,3382498:doEvent1,[])
link(Str1,8128101:Var2,[])
}
Add(If_else,7268067,350,266)
{
link(onTrue,3391999:doEvent1,[])
link(Op1,15094539:Var1,[(356,254)(391,254)])
}
Add(GetDataEx,15094539,385,320)
{
Angle=3
link(Data,428010:FString,[(244,325)])
}
Add(ArrayRW,4238542,441,266)
{
link(onRead,4479535:doOperation,[])
link(Array,13341765:Var2,[(447,236)(713,236)])
link(Index,12447593:Var1,[(454,250)])
}
Add(FormatStr,5165021,623,266)
{
Mask="#%1 ;%2"
Point(FString)
link(onFString,3652642:doWrite,[(662,272)(662,279)])
link(Str2,8128101:Var3,[(636,257)(615,257)(615,325)])
}
Add(Math,4479535,483,266)
{
OpType=6
Op2=1
ResultType=0
link(onResult,15936581:doEvent1,[])
}
Add(ArrayRW,3652642,672,266)
{
link(Array,12022579:Var2,[])
link(Index,12447593:Var3,[(685,250)])
}
Add(GetDataEx,12022579,672,238)
{
Angle=1
link(Data,7932162:Strings,[(720,243)(720,425)(678,425)])
}
Add(Hub,3382498,574,371)
{
link(onEvent1,7932162:doAdd,[])
link(onEvent2,16598575:doAdd,[(599,384)(599,398)])
}
Add(ArrayRW,16598575,609,378)
{
link(Array,13341765:Var1,[(615,362)])
link(Value,7316400:Value,[])
}
Add(GetDataEx,13341765,707,357)
{
Angle=2
link(Data,7932162:CheckBoxes,[(713,418)(685,418)])
}
Add(Memory,7316400,623,322)
{
Default=Integer(1)
}
Add(GetDataEx,8128101,525,320)
{
Angle=3
link(Data,15094539:Var3,[])
}
Add(Hub,15936581,525,266)
{
link(onEvent1,996925:doGetString,[(560,272)(560,307)])
link(onEvent2,4238542:doWrite,[(550,279)(550,307)(427,307)(427,279)])
}
Add(Hub,3391999,399,266)
{
link(onEvent1,4238542:doRead,[])
link(onEvent2,16269237:doStop,[(424,279)(424,237)(291,237)(291,279)])
}
Add(StrList,996925,574,259)
{
Strings=#5:58880|3:230|
Point(onGetString)
Point(doGetString)
link(onGetString,5165021:doString,[])
}
Add(GetDataEx,12447593,474,245)
{
Angle=2
link(Data,16269237:Index,[(480,313)(314,313)])
}
Add(Label,12199420,490,105)
{
Top=100
Width=475
Height=36
Align=4
Font=[Goudy Stout,16,3,16711680,0]
link(Text,13872396:FormatTime,[])
}
Add(Timer,13535085,434,105)
{
Interval=100
link(onTimer,12199420:doText,[])
}
Add(Time,13872396,490,56)
{
Format="D/M/Y h:m:s"
}
Тоесть чтобы видно было во сколько пришел, во сколько ушел, тоесть если зеленый - видно рвемя прихода, если красным - время ухода



Поиск
Друзья
Администрация