Вверх ↑
Этот топик читают: Гость
Разработчик
Ответов: 26305
Рейтинг: 2146
#31: 2008-05-24 00:08:22 ЛС | профиль | цитата
millano, на тебе тот вариант с кликом и сохранением (я просто упустил этот момент)
карма: 22

1
файлы: 1probe_panel_01.sha [4.7KB] [291]
Голосовали:millano
Ответов: 205
Рейтинг: 3
#32: 2008-05-24 09:40:59 ЛС | профиль | цитата
с утра хорошо думается ,на чистую голову
вот доработаный вариант
жаль конечно что файл нельзя прилепить...
code_9128.txt
------------ Дoбавленo:


Add(MainForm,4916021,-149,175)
{
Left=20
Top=105
Width=761
Height=518
Position=1
Point(onDblClick)
Point(onClose)
Point(MouseX)
Point(MouseY)
link(onCreate,11507049:doEvent1,[(-26,195)(-26,419)])
link(onDblClick,14843277:doCompare,[(-101,202)(-101,272)])
}
Add(Timer,13089243,523,266)
{
Interval=30
Enable=1
AutoStop=1
link(onTimer,7065366:doData,[])
}
Add(FormatStr,8647546,-9,266)
{
DataCount=3
Mask="%1;%2;%3"
link(onFString,2101727:doEvent1,[])
link(Str1,12472948:Var1,[(-3,254)])
link(Str2,4916021:MouseY,[(4,240)(-136,240)])
link(Str3,4916021:MouseX,[(11,233)(-143,233)])
}
Add(DoData,7065366,572,266)
{
link(onEventData,16556987:doEvent1,[])
link(Data,7939362:Value,[(578,254)(562,254)(562,310)(480,310)])
}
Add(ChildPanelEx,2167013,418,266)
{
Mode=1
link(delpan,7939362:doValue,[])
link(onSv,6260279:doEvent1,[(459,279)(459,191)(87,191)(87,216)])
link(Op2,1255205:Checked,[(424,250)(375,250)])
link(op23,16555155:Checked,[])
}
BEGIN_SDK
Add(EditMultiEx,4334663,21,21)
{
WorkCount=#5:##add|8:##delete|8:##select|7:##clear|
EventCount=#6:delpan|4:onSv|
VarCount=#12:##eventIndex|7:##count|7:##index|9:StrToSave|
DataCount=#3:Op2|4:op23|
Width=650
Point(##add)
Point(##delete)
Point(##select)
Point(##clear)
Point(##eventIndex)
Point(##count)
Point(##index)
link(##add,16739583:doSplit,[(35,27)(35,69)])
link(##select,8336416:doString,[(62,41)(62,125)])
link(StrToSave,8336416:FString,[(48,197)(195,197)])
}
Add(Panel,16698249,280,56)
{
Left=10
Top=15
Width=71
Height=59
Point(doLeft)
Point(doTop)
Point(Handle)
Point(onMouseDown)
Point(Left)
Point(Top)
Point(onDblClick)
Point(onMouseUp)
link(onMouseDown,3448009:doCompare,[(324,69)(324,90)])
link(onDblClick,1412874:doCompare,[])
}
Add(StrPart,16739583,91,63)
{
Char=";"
Point(Left)
link(onSplit,12139722:doSplit,[(135,69)(135,41)])
link(onPart,14000975:doValue,[(156,76)(156,34)])
}
Add(StrPart,12139722,147,35)
{
Char=";"
link(onSplit,16698249:doLeft,[(236,41)(236,69)])
link(onPart,16698249:doTop,[(225,48)(225,76)])
}
Add(MoveWindow,4482568,280,126)
{
link(Handle,16698249:Handle,[])
}
Add(Memory,14000975,189,28)
{
link(onData,16698249:doCaption,[(251,34)(251,62)])
}
Add(FormatStr,8336416,189,119)
{
DataCount=3
Mask="%1;%2;%3"
Point(FString)
link(Str1,14000975:Value,[])
link(Str2,16698249:Top,[(202,94)(300,94)])
link(Str3,16698249:Left,[(209,100)(293,100)])
}
Add(Hub,13142027,399,84)
{
link(onEvent1,4482568:doMove,[(443,90)(443,111)(268,111)(268,132)])
link(onEvent2,4334663:onSv,[(526,97)(526,34)])
}
Add(If_else,3448009,336,84)
{
Op1=Integer(0)
link(onTrue,13142027:doEvent1,[])
link(onFalse,10644367:doMessage,[(391,97)(391,153)])
link(Op2,4334663:Op2,[(349,52)(27,52)])
}
Add(If_else,1412874,448,70)
{
Op1=Integer(1)
link(onTrue,4334663:delpan,[(576,76)(576,27)])
link(onFalse,7921980:doMessage,[(516,83)(516,111)])
link(Op2,4334663:op23,[(461,46)(34,46)])
}
Add(Message,10644367,483,147)
{
Message="перемещение запрещено..."
Caption="внимание"
Icon=4
}
Add(Message,7921980,553,105)
{
Message="удаление запрещено..."
Caption="внимание"
Icon=4
}
END_SDK
Add(Memory,7939362,474,266)
{
Point(Data)
link(onData,13089243:doTimer,[])
link(Data,2167013:##eventIndex,[(480,254)(463,254)(463,310)(424,310)])
}
Add(StringTable,3402547,341,364)
{
Top=364
Width=203
Height=120
FileName="probe.tbl"
Columns=#10:Caption=65|6:Top=65|7:Left=65|
StaticColumn=0
Point(Strings)
link(Str,2167013:StrToSave,[(347,331)(445,331)])
}
Add(For,12359612,243,280)
{
IncludeEnd=1
link(onEvent,13553136:doEvent1,[])
link(End,12472948:Var2,[])
}
Add(Hub,13553136,292,280)
{
link(onEvent1,2167013:##select,[])
link(onEvent2,3402547:doAdd,[(332,293)(332,370)])
}
Add(GetDataEx,12472948,243,245)
{
Angle=1
link(Data,2167013:##count,[(315,254)(315,310)(431,310)])
}
Add(Hub,672925,180,273)
{
InCount=5
link(onEvent1,3402547:doClear,[(282,279)(282,377)])
link(onEvent2,12359612:doFor,[])
}
Add(CheckBox,16555155,425,203)
{
Left=126
Top=339
Caption="Del"
}
Add(HubEx,10059197,222,385)
{
link(onEvent,3402547:doSave,[])
}
Add(ArrayEnum,8885822,355,420)
{
link(onItem,2014848:doWork3,[(401,426)])
link(onEndEnum,672925:doEvent3,[(402,433)(402,462)(162,462)(162,293)])
link(Array,3402547:Strings,[])
}
Add(HubEx,2014848,397,259)
{
link(onEvent,2167013:##add,[])
}
Add(Hub,16556987,621,266)
{
OutCount=3
link(onEvent1,2167013:##delete,[(680,272)(680,322)(406,322)(406,279)])
link(onEvent2,672925:doEvent4,[(672,279)(672,412)(168,412)(168,300)])
link(onEvent3,8760824:doEvent2,[(665,286)(665,472)(54,472)(54,335)])
}
Add(Hub,2101727,33,266)
{
OutCount=3
link(onEvent1,2014848:doWork2,[])
link(onEvent2,672925:doEvent1,[])
link(onEvent3,8760824:doEvent1,[(87,286)(87,328)])
}
Add(Hub,8760824,110,322)
{
InCount=2
link(onEvent1,672925:doEvent2,[(155,328)(155,286)])
link(onEvent2,10059197:doWork2,[(210,335)(210,398)])
}
Add(Hub,11507049,271,413)
{
link(onEvent1,3402547:doLoad,[(322,419)(322,391)])
link(onEvent2,8885822:doEnum,[])
}
Add(CheckBox,1255205,369,203)
{
Left=66
Top=339
Caption="Hold"
}
Add(Hub,6260279,96,210)
{
link(onEvent1,672925:doEvent5,[(150,216)(150,307)])
link(onEvent2,10059197:doWork1,[(226,223)])
}
Add(CheckBox,10028162,320,203)
{
Left=6
Top=339
Caption="create"
}
Add(If_else,14843277,-86,266)
{
Op1=Integer(1)
link(onTrue,8647546:doString,[])
link(onFalse,10644367:doMessage,[(-34,279)(-34,202)])
link(Op2,10028162:Checked,[(-73,250)(326,250)])
}
Add(Message,10644367,-16,196)
{
Message="созданее новых панелей запрещено..."
Caption="внимание"
}

есть ещё доработки на чекеры create hold del....
карма: 1

0
файлы: 1code_9128.txt [4.9KB] [196]
32
Сообщение
...
Прикрепленные файлы
(файлы не залиты)