Вверх ↑
Ответов: 16884
Рейтинг: 1239
#1: 2008-08-24 21:33:18 ЛС | профиль | цитата
Вячеслав, проблема в том, что если, например, запоминаешь положение флажка и при следующем запуске программы очень хочется поставить его в тоже положение - нужно протянуть линию. А в программе 50-80 флажков и линии тянуть не хочется.
Конечно очень бы хотелось взглянуть на форму с 80-ю CheckBox-ами.
Да ерунда это все...
Хотя есть простой выход - "покрасить коня в зеленый цвет".

------------ Дoбавленo:

Хотябы так.


Add(MainForm,2953706,42,126)
{
Width=273
Height=263
Point(onClose)
link(onCreate,5313351:doLoad,[])
link(onClose,5313351:doSave,[])
}
Add(ChildPanelEx,13828683,42,35)
{
}
BEGIN_SDK
Add(EditMultiEx,6851734,21,21)
{
WorkCount=#8:doEvent1|
EventCount=#7:onValue|
Height=361
link(doEvent1,11213265:doEvent1,[])
}
Add(Panel,5553470,42,315)
{
Left=10
Top=15
Width=104
Height=132
}
Add(GlobalVar,14203703,203,49)
{
Name="gp1"
Data=Integer(0)
}
Add(GlobalVar,15090069,203,126)
{
Name="gp2"
Data=Integer(0)
}
Add(GlobalVar,4202063,203,210)
{
Name="gp3"
Data=Integer(0)
}
Add(GlobalVar,13135876,203,294)
{
Name="gp4"
Data=Integer(0)
}
Add(Hub,11213265,42,21)
{
OutCount=4
PColor(onEvent1,16777215)
PColor(onEvent2,16777215)
PColor(onEvent3,16777215)
PColor(onEvent4,16777215)
link(onEvent1,2816591:doData,[(138,27)(138,90)])
link(onEvent2,13301123:doData,[(113,34)(113,167)])
link(onEvent3,6064703:doData,[(103,41)(103,251)])
link(onEvent4,3747986:doData,[(94,48)(94,335)])
}
Add(CheckBox,2552403,133,49)
{
Left=15
Top=10
Width=75
link(onCheck,14203703:doValue,[])
}
Add(DoData,2816591,203,84)
{
Data=Integer(0)
link(onEventData,2552403:doCheck,[(247,90)(247,72)(121,72)(121,55)])
link(Data,14203703:Var,[])
}
Add(DoData,13301123,203,161)
{
link(onEventData,11865560:doCheck,[(246,167)(246,120)(121,120)(121,132)])
link(Data,15090069:Var,[])
}
Add(CheckBox,11865560,133,126)
{
Left=15
Top=40
Width=75
link(onCheck,15090069:doValue,[])
}
Add(CheckBox,6738715,133,210)
{
Left=15
Top=70
Width=75
link(onCheck,4202063:doValue,[])
}
Add(CheckBox,6832931,133,294)
{
Left=15
Top=105
Width=75
link(onCheck,13135876:doValue,[])
}
Add(DoData,6064703,203,245)
{
link(onEventData,6738715:doCheck,[(246,251)(246,201)(121,201)(121,216)])
link(Data,4202063:Var,[])
}
Add(DoData,3747986,203,329)
{
link(onEventData,6832931:doCheck,[(249,335)(249,284)(121,284)(121,300)])
link(Data,13135876:Var,[])
}
END_SDK
Add(GVarContainer,5313351,105,140)
{
Section="CheckBox"
FilleName="gp.ini"
VarList=#3:gp1|3:gp2|3:gp3|3:gp4|3:RB1|
link(onLoad,13277124:doEvent1,[])
}
Add(Hub,13277124,161,140)
{
PColor(onEvent1,16777215)
PColor(onEvent2,16777215)
link(onEvent1,13828683:doEvent1,[(205,146)(205,94)(30,94)(30,41)])
link(onEvent2,168544:doWork1,[(205,153)(205,121)(30,121)(30,90)])
}
Add(ChildGroupBox,168544,42,84)
{
}
BEGIN_SDK
Add(EditMulti,5553290,21,21)
{
WorkCount=1
Height=221
link(doWork1,5922116:doEvent,[(67,27)(67,125)])
}
Add(GroupBox,12666557,63,182)
{
Left=125
Top=10
Width=113
Height=159
}
Add(RadioButton,9031172,175,49)
{
Left=10
Top=25
Width=80
link(onSelect,5754052:doWork1,[(226,55)(226,97)])
}
Add(RadioButton,2426467,175,98)
{
Left=10
Top=60
Width=80
link(onSelect,5754052:doWork2,[])
}
Add(RadioButton,10250737,175,140)
{
Left=10
Top=95
Width=80
link(onSelect,5754052:doWork3,[(226,146)(226,111)])
}
Add(RadioButton,12491835,175,189)
{
Left=10
Top=125
Width=80
link(onSelect,5754052:doWork4,[(236,195)(236,118)])
}
Add(GlobalVar,13625921,112,70)
{
Name="RB1"
Data=Integer(0)
}
Add(IndexToChanel,5922116,112,119)
{
Count=4
Data=Integer(1)
Point(Index)
link(onEvent1,9031172:doSelect,[(160,125)(160,55)])
link(onEvent2,2426467:doSelect,[(167,132)(167,104)])
link(onEvent3,10250737:doSelect,[(160,139)(160,146)])
link(onEvent4,12491835:doSelect,[(152,146)(152,195)])
link(Index,13625921:Var,[])
}
Add(ChanelToIndex,5754052,245,91)
{
Count=4
link(onIndex,13625921:doValue,[(287,97)(287,26)(100,26)(100,76)])
}
END_SDK

карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0