Из своих запасов - пример работы со списком программ и запуском выбранной. А уж свои "розовые квадратики" пробуй сам прикрутить. Вероятно, надо будет обратить внимание на компонент ChildPanelEx и ChildScrollBox (вместо списка строк).
Add(MainForm,2953706,49,105) { Width=238 Height=339 Caption="Запуск" BorderStyle=1 Position=1 link(onCreate,1723745:doWork,[]) } Add(Label,7477746,49,224) { Left=10 Top=5 Width=212 Height=17 Font=[MS Sans Serif,8,1,0,1] Caption="Выберите программу для запуска:" } Add(ListBox,15979616,602,406) { Left=10 Top=25 Width=210 Height=125 DataType=1 Point(String) Point(doSelect) Point(onSelect) link(onClick,2362391:doWork2,[]) link(onSelect,2362391:doWork3,[(655,426)]) } Add(Button,10247625,70,588) { Left=55 Top=240 Width=120 Height=25 Caption="Запустить" link(onClick,16214821:doExec,[]) } Add(Button,14034881,49,294) { Left=75 Top=280 Width=70 Caption="Выход" link(onClick,1498359:doWork,[]) } Add(LineBreakEx,1498359,105,294) { Caption="exit" } Add(LineBreakEx,10017364,0,126) { Caption="exit" Type=1 link(OnEvent,2953706:doClose,[]) } Add(Ini,12258220,441,399) { FileName="apps.cfg" Key="path" Type=1 Point(doSectionNames) Point(onSectionNames) Point(doEraseSection) link(onResult,14110590:doValue,[(499,405)(499,391)]) link(onSectionNames,8458824:doEvent1,[]) AddHint(-12,-47,56,13,FileName) } Add(Hub,12274421,287,406) { OutCount=3 link(onEvent1,15986310:In,[]) link(onEvent2,12258220:doSectionNames,[]) link(onEvent3,14534594:In,[]) } Add(LineBreakEx,7553609,231,406) { @Color=16755455 Caption="load" Type=1 link(OnEvent,12274421:doEvent1,[]) } Add(LineBreakEx,1723745,112,119) { @Color=16755455 Caption="load" } Add(LineBreak,152143,546,434) { Caption="sel0" link(Out,15979616:doSelect,[]) Primary=[14534594,-217,-14] } Add(Hub,8458824,497,406) { link(onEvent1,15979616:doAdd,[]) } Add(LineBreak,14554306,546,413) { Caption="cl1" link(Out,15979616:doClear,[]) Primary=[15986310,-196,-7] } Add(LineBreak,11120211,392,399) { Caption="get" link(Out,12258220:doRead,[]) Primary=[12285981,273,14] } Add(Memory,14110590,749,385) { link(onData,9348136:doText,[]) } Add(LineBreakEx,14952601,749,434) { Caption="exe" Type=3 link(_Data,14110590:Value,[]) } Add(WinExec,16214821,147,588) { Point(WorkingDir) link(FileName,10359912:getVar,[]) link(WorkingDir,15042917:GetData,[(167,581)(216,581)]) } Add(LineBreakEx,10359912,147,553) { Caption="exe" Type=2 } Add(LineBreakEx,11171889,217,588) { Caption="exit" } Add(HubEx,2362391,651,413) { link(onEvent,12285981:In,[]) } Add(Label,9348136,805,385) { Left=10 Top=180 Width=213 Height=42 Caption="Путь" AutoSize=1 } Add(Message,4072402,462,532) { Message="Удалить выбранный пункт?" Caption="Удаление" Type=2 Icon=2 Point(onYES) link(onYES,1545928:doEvent1,[]) } Add(Hub,1545928,525,539) { link(onEvent1,3430881:doData,[]) link(onEvent2,8965817:doWork,[]) } Add(LineBreak,10944719,392,420) { Caption="del" link(Out,12258220:doEraseSection,[]) Primary=[13270349,294,119] } Add(DoData,3430881,623,539) { Data=String() link(onEventData,13270349:In,[]) link(Data,15979616:String,[]) } Add(LineBreakEx,8965817,560,546) { @Color=16755455 Caption="load" } Add(ChildForm,142575,455,168) { FirstUsage=0 link(onEvent1,12573672:doWork,[]) } BEGIN_SDK Add(EditMulti,11576497,21,21) { EventCount=1 WorkCount=1 Width=601 Height=557 link(doWork1,3712864:doShowModal,[(45,27)(45,139)]) } Add(MainForm,3712864,147,105) { Left=35 Top=105 Width=369 Height=196 Caption="Добавление программы" BorderStyle=3 Point(doShowModal) } Add(Label,11252075,56,210) { Left=10 Top=10 Width=103 Height=17 Caption="Видимое название:" } Add(Edit,3777375,343,196) { Left=10 Top=30 Width=190 Text="" } Add(Label,8861366,56,280) { Left=10 Top=60 Width=100 Height=17 Caption="Путь к программе:" } Add(Edit,8562508,385,182) { Left=10 Top=80 Width=250 Text="" } Add(Button,1259951,168,182) { Left=270 Top=80 Width=80 Caption="Обзор..." link(onClick,180963:doExecute,[]) } Add(ODialog,180963,217,182) { Filter="Все файлы|*.*" Title="Выбор программы" StartDir="" FileName="" link(onExecute,1083736:doWork2,[]) } Add(Button,5368771,133,434) { Left=190 Top=125 Width=120 Height=25 Caption="Отмена" link(onClick,6104991:doWork,[]) } Add(LineBreakEx,6104991,189,434) { Caption="exit" } Add(Button,11849371,133,343) { Left=45 Top=125 Width=120 Height=25 Caption="ОК" link(onClick,9106398:doEvent1,[]) } Add(LineBreakEx,7425038,70,126) { Caption="exit" Type=1 link(OnEvent,3712864:doClose,[]) } Add(Hub,9106398,196,343) { OutCount=3 link(onEvent1,10086940:doWrite,[(341,349)(341,300)]) link(onEvent2,11576497:onEvent1,[(465,356)(465,27)]) link(onEvent3,14651861:doWork,[]) } Add(LineBreakEx,14651861,231,357) { Caption="exit" } Add(Ini,10086940,364,287) { FileName="apps.cfg" Key="path" Type=1 link(Section,3777375:Text,[(377,257)(349,257)]) link(Value,8562508:Text,[]) AddHint(-13,41,56,13,FileName) } Add(DropFile,8503235,217,238) { link(onDropFile,1083736:doWork3,[(277,244)]) } Add(HubEx,1083736,273,182) { link(onEvent,8562508:doText,[]) } END_SDK Add(LineBreakEx,12573672,511,168) { @Color=16755455 Caption="load" } Add(InfoTip,10745322,378,119) { Info=#17:Добавление новой |18:программы в список| Width=190 Height=116 } Add(InfoTip,10271226,21,490) { Info=#26:Запуск выбранной программы| Width=323 Height=158 } Add(InfoTip,3663966,392,497) { Info=#28:Удаление программы из списка| Width=337 Height=102 } Add(BitBtn,338928,392,168) { Left=10 Top=155 Width=22 Height=22 Hint="Добавить программу в список" Caption="" Bitmap=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FFFFFF69827D66F8EC172C13FC0FC22036A9FA852B85FF87EC0A0163109B54FDE2B5E2FFC3F7868331884DAA7E992699FFD107A3C118C42655BF5287D2FF84E309600C62E3531BBB2A76BFCE249DFF86D30DFF9BCF35FF6FB7C4EEBFF34AE7FFA96752C118C4068981E4406A406A417A60FAF5A7EAFFCFBE944D1206E981E9379D6DFABFFD5D3B0AAE795CF3BFE07A011883D8E8F2203D30FD393B73F6DB2FB5FFEFBADAF5BFF746EFFF01DB02FE87EE0EFD5F76B70C8C416C9018480EA406A416A4075F9838AD70FA5FFDA81A8C416C52C3DF639DC7FF86E70D600C6293AADF77B3EFFF96D72D600C6293AA3F707B203CAC406C52F5D79DAEDB0F4BFF2036ADF229007BB6C489] link(onClick,142575:doWork1,[]) } Add(BitBtn,10458785,406,532) { Left=40 Top=155 Width=22 Height=22 Hint="Удалить программу из списка" Caption="" Bitmap=[ZIP3604000078DA73F235636100033320D600620128666450804840E591C1FFFFFF47F1006387881BFB59D5CEFFE7D5BBF25FC4ECE67F59FB7BFF55DC1EFDD7F27906C62036480C24075203520BD203D32F6C7AFB7F48D97F9230480F4CBF7EE087FFED2BFF9384417A60FA8BBAFFEF77CFFCFFDF371F627674EDFFFF89CDFFFFA7B64330880D1203C981D480D482F48CC6FDC063006EB1ED65] link(onClick,4072402:doMessage,[]) } Add(EventFromData,15042917,210,539) { link(onEvent,15045584:doPart,[]) } Add(InfoTip,7844409,224,322) { Info=#24:Загрузка списка программ| Width=477 Height=137 } Add(FilePartElm,15045584,259,539) { Mode=0 link(onPart,15042917:doData,[(303,545)(303,533)(191,533)(191,545)]) link(FileName,10106629:getVar,[]) } Add(LineBreakEx,10106629,259,511) { Caption="exe" Type=2 }
Редактировалось 1 раз(а), последний 2019-10-29 12:12:30
|