Make(delphi)
ver(4.04 build 184)
Add(Label,4163377,413,14)
{
Left=400
Top=10
Width=70
Height=17
Font=[MS Sans Serif,8,1,0,1]
Caption="ФАМИЛИЯ"
}
Add(Label,8701756,406,7)
{
Left=400
Top=30
Width=32
Height=17
Font=[MS Sans Serif,8,1,0,1]
Caption="ИМЯ"
}
Add(MainForm,9135579,133,294)
{
Width=675
Height=473
}
Add(Edit,10264968,154,161)
{
Left=10
Top=5
Width=385
Text="Иванов"
}
Add(Edit,9639399,196,161)
{
Left=10
Top=30
Width=385
Text="Иван"
}
Add(Button,6740221,133,224)
{
Left=535
Top=5
Width=70
Height=45
link(onClick,14518331:doString,[])
}
Add(FormatStr,14518331,189,224)
{
Mask="%1;%2"
Point(FString)
link(onFString,13220890:doEnum,[])
link(Str1,10264968:Text,[(195,205)(160,205)])
link(Str2,9639399:Text,[])
}
Add(StringTableMT,7932162,252,161)
{
Left=10
Top=57
Width=641
Height=240
Font=[MS Sans Serif,12,1,0,1]
Columns=#5:1=200|5:2=200|5:3=250|
FullSelect=0
ColorItems=0
IconsCheck=[]
MiscIcons=[]
Icons=[]
Point(Strings)
Point(doInitTxtTab)
}
Add(ArrayEnum,13220890,266,224)
{
onBreakEnable=0
link(onItem,16462674:doSplit,[])
link(onEndEnum,6453967:doString,[(309,237)(309,391)])
link(Array,8507398:Var2,[])
}
Add(Case,1312495,497,308)
{
Value=String(0#230)
DataOnTrue=String(#58880)
link(onNextCase,2928459:doCase,[(537,314)(537,307)])
link(onTrue,4983679:doWork3,[(599,321)])
}
Add(Case,2928459,546,301)
{
Value=String(0#58880)
DataOnTrue=String(#230)
link(onTrue,4983679:doWork2,[])
}
Add(MultiStrPart,16462674,329,224)
{
Count=3
link(onSplit,8386320:doStrCatDlm,[(373,230)(373,268)(321,268)(321,307)])
}
Add(If_else,9980731,385,301)
{
PColor(Op1,5614080)
link(onTrue,3133654:doEvent1,[])
link(Op2,1257313:Var2,[])
}
Add(DoData,7178194,455,308)
{
PColor(Data,16711935)
link(onEventData,1312495:doCase,[])
link(Data,16462674:Part1,[(461,273)(335,273)])
}
Add(ArrayRW,13807079,658,371)
{
link(Array,8507398:Var1,[(664,363)(242,363)(242,215)])
link(Index,13220890:Index,[(671,352)(279,352)])
}
Add(GetDataEx,8507398,266,210)
{
link(Data,7932162:Strings,[])
}
Add(FormatStr,8469794,637,308)
{
DataCount=3
Mask="%1;%2;%3"
PColor(Str2,5614080)
PColor(Str3,43775)
link(onFString,13807079:doWrite,[(686,314)(686,346)(646,346)(646,384)])
link(Str2,6174571:Var3,[(650,282)])
link(Str3,14324769:Var2,[])
}
Add(Time,13450053,651,217)
{
Format="h:m:s"
}
Add(Hub,3133654,427,301)
{
PColor(onEvent1,16776960)
link(onEvent1,13220890:doStop,[(450,307)(450,291)(254,291)(254,237)])
link(onEvent2,7178194:doData,[])
}
Add(FormatStr,6453967,602,385)
{
Mask="#58880;%1;%2"
PColor(Str1,5614080)
PColor(Str2,43775)
link(onFString,13807079:doAdd,[])
link(Str1,6174571:Var2,[])
link(Str2,14324769:Var1,[(615,271)])
}
Add(GetDataEx,14324769,651,266)
{
PColor(Data,43775)
link(Data,13450053:FormatTime,[])
}
Add(HubEx,4983679,595,308)
{
link(onEvent,8469794:doString,[])
}
Add(GetDataEx,1257313,392,277)
{
Angle=3
PColor(Data,5614080)
link(Data,14518331:FString,[(195,282)])
}
Add(GetDataEx,6174571,602,277)
{
Angle=3
PColor(Data,5614080)
link(Data,1257313:Var3,[])
}
Add(StrCatDelim,8386320,336,301)
{
Delimiter=";"
link(onStrCatDlm,9980731:doCompare,[])
link(Str1,16462674:Part2,[])
link(Str2,16462674:Part3,[])
}
Add(Edit,16158073,21,308)
{
Left=15
Top=310
Width=630
Height=50
Text=""
}
|
Ответов: 29
Рейтинг: 3
|
|||
|
А как можно реализовать чтобы в нижнем поле, когда появлялась или изменялась запись появлялось сообщение такого типа - Иванов Иван зашел в 13:25:13, либо Иванов Иван вышел в 13:25:13, тоесть если зеленый - зашел, если красный - ушел.
|
|||
| карма: 1 |
| ||
| файлы: 1 | code_31490.txt [3.2KB] [130] |



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