Кнопка с фиксацией из TabControl (наверное уже была где-то): code_9149.txt
Ограничение: не работает TabOrder
------------ Дoбавленo:
Настройка списка страниц TabControl:
Add(MainForm,10628028,7,189) { Left=20 Top=105 Width=380 Height=302 link(onCreate,1814245:doEvent1,[]) } Add(TabControl,11392409,392,84) { Width=283 Height=30 Bitmaps=[] Buttons=0 Point(PageDelete) Point(CurTabCaption) Point(PageTab) link(onChange,6854194:doEnum,[]) } Add(ArrayEnum,2725476,336,84) { Type=1 link(onItem,11392409:PageInsert,[]) link(Array,6596147:Var3,[(342,72)]) } Add(Button,9449600,231,126) { Left=105 Top=170 Width=70 Ctl3D=0 Caption="Применить" link(onClick,14945298:doWork2,[]) } Add(CheckBox,16228692,105,259) { Left=5 Top=60 Width=120 Ctl3D=0 Caption="один" Point(onClick) Point(doCaption) link(onClick,3838545:doWork1,[(153,272)(153,342)]) } Add(CheckBox,7665998,105,301) { Left=5 Top=77 Width=120 Ctl3D=0 Caption="два" Point(onClick) Point(doCaption) link(onClick,3838545:doWork2,[(148,314)(148,349)]) } Add(CheckBox,5878866,105,343) { Left=5 Top=94 Width=120 Ctl3D=0 Caption="три" Point(onClick) Point(doCaption) link(onClick,3838545:doWork3,[]) } Add(CheckBox,13237019,105,385) { Left=5 Top=111 Width=120 Ctl3D=0 Caption="четыре" Point(onClick) Point(doCaption) link(onClick,3838545:doWork4,[(148,398)(148,363)]) } Add(CheckBox,13585295,105,427) { Left=5 Top=128 Width=120 Ctl3D=0 Caption="пять" Point(onClick) Point(doCaption) link(onClick,3838545:doWork5,[(153,440)(153,370)]) } Add(ListBox,16250740,483,294) { @Hint=#28:порядок используемых страниц| Left=130 Top=65 Width=75 Height=90 Point(doSelectString) Point(Index) Point(Value) link(onChange,7946250:doReplace,[]) } Add(GetDataEx,13386941,140,56) { link(Data,11891424:Array,[]) } Add(IndexToChanel,14692920,252,336) { Point(Index) link(onEvent1,39347:doEvent1,[]) link(onEvent2,16250740:doAdd,[(297,349)(297,300)]) link(Index,3838545:Data,[(258,324)(243,324)(243,384)(167,384)]) } Add(DoData,7251739,399,308) { Data=Integer(0) link(onEventData,16250740:doDelete,[]) link(Data,16250740:Index,[(405,303)(465,303)(465,358)(510,358)]) } Add(Hub,39347,315,336) { link(onEvent1,16250740:doSelectString,[]) link(onEvent2,7251739:doData,[(370,349)(370,314)]) } Add(Hub,1996771,287,126) { OutCount=3 link(onEvent1,7250844:doRepeat,[(348,132)(348,202)]) link(onEvent2,2725476:doEnum,[(327,139)(327,90)]) link(onEvent3,14608532:doWork1,[]) } Add(ChanelToIndex,13059284,434,196) { link(onIndex,11392409:PageDelete,[(477,202)(477,183)(381,183)(381,97)]) } Add(Repeat,7250844,385,196) { Type=5 Op1=Integer(0) link(onRepeat,13059284:doWork1,[]) link(Op2,11392409:TabCount,[]) } Add(ArrayEnum,14236727,98,84) { Type=1 link(onItem,3878236:doEnum,[]) link(Array,6596147:Var1,[(104,72)]) } Add(Hub,1814245,49,203) { OutCount=4 link(onEvent1,619440:doEnum,[(86,209)(86,179)(21,179)(21,356)]) link(onEvent2,11599090:doRead,[(360,216)(360,356)]) link(onEvent3,14236727:doEnum,[(89,223)(89,90)]) link(onEvent4,14945298:doWork3,[(277,230)]) } Add(Replace,7946250,532,294) { SubStr=" " DestStr="," link(onReplace,11599090:doWrite,[(578,300)(578,396)(361,396)(361,363)]) link(Str,16250740:Text,[(538,280)(526,280)(526,363)(489,363)]) } Add(Ini,11599090,371,350) { FileName="test.ini" Section="настройки" Key="порядок страниц" Type=1 link(onResult,8239362:doReplace,[]) } Add(DoData,10978860,175,140) { Data=String(два) link(onEventData,4433731:doEvent,[(216,146)(216,241)(30,241)(30,300)]) link(Data,3878236:Index,[(181,128)(160,128)]) } Add(IndexToChanel,4433731,49,294) { Count=5 Point(Data) link(onEvent1,16228692:doCheck,[(93,300)(93,265)]) link(onEvent2,7665998:doCheck,[]) link(onEvent3,5878866:doCheck,[(99,314)(99,349)]) link(onEvent4,13237019:doCheck,[(95,321)(95,391)]) link(onEvent5,13585295:doCheck,[(90,328)(90,433)]) link(Data,15395634:Value,[]) } Add(ArrayEnum,3878236,147,84) { Type=1 link(onItem,7538134:doCompare,[(189,90)(189,123)(110,123)(110,146)]) link(Array,13386941:Var2,[]) } Add(If_else,7538134,119,140) { link(onTrue,10978860:doData,[]) link(Op1,14236727:Item,[(125,128)(104,128)]) link(Op2,3878236:Item,[(132,128)(153,128)]) } Add(ChanelToIndex,3838545,161,336) { Count=5 Point(Data) link(onIndex,359930:doRead,[]) } Add(Memory,15395634,49,245) { Default=Integer(1) } Add(StrList,11891424,133,7) { @Hint=#27:список существующих страниц| Strings=#4:один|3:два|3:три|6:четыре|4:пять| } Add(Replace,8239362,413,350) { SubStr="," DestStr=" " link(onReplace,16250740:doText,[(471,356)(471,321)]) } Add(ArrayRW,359930,203,336) { link(onRead,14692920:doEvent,[]) link(Array,14293154:Var2,[]) } Add(GetDataEx,6596147,280,63) { Angle=2 link(Data,16250740:Array,[(293,386)(503,386)]) } Add(HubEx,14945298,273,119) { link(onEvent,1996771:doEvent1,[]) } Add(ArrayEnum,6854194,441,84) { Type=1 link(onItem,16713826:doCompare,[(486,90)(486,131)(387,131)(387,146)]) link(Array,14293154:Var3,[(447,65)]) } Add(GetDataEx,14293154,196,56) { Angle=3 link(Data,13386941:Var3,[]) } Add(DoData,2163706,448,140) { Data=String(два) link(onEventData,6661333:doOperation,[]) link(Data,6854194:Index,[]) } Add(If_else,16713826,399,140) { link(onTrue,2163706:doData,[]) link(Op1,11392409:CurTabCaption,[]) link(Op2,6854194:Item,[(412,125)(447,125)]) } Add(Math,6661333,494,140) { OpType=9 Op1=1 ResultType=0 link(onResult,1181563:doBits,[]) } Add(IntToBits,1181563,543,140) { Count=5 Data_0=Integer(0) Data_1=Integer(1) link(onBit1,11265239:doVisible,[(585,146)(585,90)]) link(onBit2,13181945:doVisible,[(589,153)(589,125)]) link(onBit3,6332098:doVisible,[]) link(onBit4,8040116:doVisible,[(589,167)(589,195)]) link(onBit5,14198901:doVisible,[(585,174)(585,230)]) } Add(ChildPanelEx,8040116,602,189) { } BEGIN_SDK Add(EditMultiEx,12415523,21,21) { WorkCount=#9:doVisible| link(doVisible,14884752:doVisible,[(28,27)(28,118)]) } Add(Panel,14884752,35,105) { Left=280 Top=80 Color=65280 Visible=1 Point(doVisible) } END_SDK Add(ChildPanelEx,14198901,602,224) { } BEGIN_SDK Add(EditMultiEx,9070206,21,21) { WorkCount=#9:doVisible| link(doVisible,11856340:doVisible,[(28,27)(28,118)]) } Add(Panel,11856340,35,105) { Left=280 Top=80 Color=16776960 Visible=1 Point(doVisible) } END_SDK Add(ChildPanelEx,13181945,602,119) { } BEGIN_SDK Add(EditMultiEx,6887264,21,21) { WorkCount=#9:doVisible| link(doVisible,6872777:doVisible,[(28,27)(28,118)]) } Add(Panel,6872777,35,105) { Left=280 Top=80 Color=4227327 Visible=1 Point(doVisible) } END_SDK Add(ChildPanelEx,11265239,602,84) { } BEGIN_SDK Add(EditMultiEx,4452000,21,21) { WorkCount=#9:doVisible| link(doVisible,6678374:doVisible,[(49,27)(49,118)]) } Add(Panel,6678374,77,105) { Left=280 Top=80 Color=255 Visible=1 Point(doVisible) } END_SDK Add(ChildPanelEx,6332098,602,154) { } BEGIN_SDK Add(EditMultiEx,446447,21,21) { WorkCount=#9:doVisible| link(doVisible,11521756:doVisible,[(28,27)(28,118)]) } Add(Panel,11521756,35,105) { Left=280 Top=80 Color=65535 Visible=1 Point(doVisible) } END_SDK Add(ChanelToIndex,14608532,336,140) { link(onIndex,11392409:PageTab,[(375,146)(375,104)]) } Add(IndexToChanel,5445429,42,392) { Count=5 Point(Index) link(onEvent1,16228692:doCaption,[(90,398)(90,272)]) link(onEvent2,7665998:doCaption,[(90,405)(90,314)]) link(onEvent3,5878866:doCaption,[(90,412)(90,356)]) link(onEvent4,13237019:doCaption,[(90,419)(90,398)]) link(onEvent5,13585295:doCaption,[(90,426)(90,440)]) link(Index,619440:Index,[]) } Add(ArrayEnum,619440,35,350) { Type=1 link(onItem,5445429:doEvent,[(75,356)(75,387)(30,387)(30,398)]) link(Array,13386941:Var1,[(41,65)]) } Add(InfoTip,4843820,182,2) { Info=#70:перед первым запуском сюда нужно внести 5 строчек с названиями страниц| Width=162 Height=60 Margin=5 } Add(InfoTip,12961787,112,2) { Info=# Width=71 Height=60 }
|