Dgikar

Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору tavria2 & GOOSE Цитата: Цитата: Dgikar Я лучше код выложу, ток чур громко не смеяться. Договорились? | Цитата: Вот, выкладываю код, только !!!ГРОМКО!!! не смеяться Это я вписал в On Select, On Double Click - все тож самое, только добавлено: Код: Tree.CollapseNode("MS", "1.1"); | - это в самом начале, а это: Код: -- Открываю файл Setup.exe File.Open("Путь к файлу:...........\Файл.............", SW_SHOWNORMAL); | перед каждым else Что скажите? Код: NodeProperties0 = Tree.GetNode("MS", "1"); NodeProperties1 = Tree.GetNode("MS", "1.1"); NodeProperties2 = Tree.GetNode("MS", "1.2"); NodeProperties3 = Tree.GetNode("MS", "1.3"); NodeProperties4 = Tree.GetNode("MS", "1.4"); NodeProperties5 = Tree.GetNode("MS", "1.5"); NodeProperties6 = Tree.GetNode("MS", "1.6"); NodeProperties7 = Tree.GetNode("MS", "1.1.1"); NodeProperties8 = Tree.GetNode("MS", "1.1.2"); NodeProperties9 = Tree.GetNode("MS", "1.1.3"); NodeProperties10 = Tree.GetNode("MS", "1.1.4"); NodeProperties11 = Tree.GetNode("MS", "1.1.5"); NodeProperties12 = Tree.GetNode("MS", "1.1.6"); NodeProperties13 = Tree.GetNode("MS", "1.1.7"); if NodeProperties0.Selected then -- Убираю описание продукта и серийный номер Paragraph.SetText("Paragraph1", " "); Image.SetVisible("Image3", false); Input.SetVisible("Input1", false); Image.SetVisible("Image4", false); Image.SetPos("Image4", 10, 570); -- Убираю полосу прокрутки Image.SetVisible("Image5", false); -- Убираю не нужные руководства пользователя Image.SetVisible("Doc1", false); Label.SetVisible("Doc2", false); Label.SetVisible("Doc3", false); Label.SetVisible("Doc4", false); Label.SetVisible("Doc5", false); Label.SetVisible("Doc6", false); Label.SetVisible("Doc7", false); Image.SetPos("Doc1", 10, 570); Label.SetPos("Doc2", 10, 570); Label.SetPos("Doc3", 10, 570); Label.SetPos("Doc4", 10, 570); Label.SetPos("Doc5", 10, 570); Label.SetPos("Doc6", 10, 570); Label.SetPos("Doc7", 10, 570); else if NodeProperties1.Selected then -- Устанавливаю описание продукта Paragraph.SetPos("Paragraph1", 450, 190); Paragraph.SetText("Paragraph1", "Мой текст: ............"); Image.SetPos("Image4", 541, 175); Image.SetVisible("Image4", true); -- Устанавливаю полосу прокрутки Image.SetVisible("Image5", true); -- Устанавливаю серийный номер Input.SetText("Input1", "Мой текст: ............"); Image.SetPos("Image3", 10, 420); Input.SetPos("Input1", 133, 419); Image.SetVisible("Image3", true); Input.SetVisible("Input1", true); -- Устанавливаю руководство пользователя Image.SetPos("Doc1", 55, 457); Label.SetPos("Doc2", 10, 477); Image.SetVisible("Doc1", true); Label.SetVisible("Doc2", true); -- Убираю руководства пользователя Label.SetVisible("Doc3", false); Label.SetVisible("Doc4", false); Label.SetVisible("Doc5", false); Label.SetVisible("Doc6", false); Label.SetVisible("Doc7", false); Label.SetPos("Doc3", 10, 570); Label.SetPos("Doc4", 10, 570); Label.SetPos("Doc5", 10, 570); Label.SetPos("Doc6", 10, 570); Label.SetPos("Doc7", 10, 570); else if NodeProperties2.Selected then -- Устанавливаю описание продукта Image.SetPos("Image4", 541, 175); Image.SetVisible("Image4", true); Paragraph.SetPos("Paragraph1", 450, 190); Paragraph.SetText("Paragraph1", "Мой текст: ............"); -- Устанавливаю полосу прокрутки Image.SetVisible("Image5", true); -- Устанавливаю серийный номер Input.SetText("Input1", "Мой текст: ............"); Image.SetPos("Image3", 10, 420); Input.SetPos("Input1", 133, 419); Image.SetVisible("Image3", true); Input.SetVisible("Input1", true); -- Устанавливаю руководство пользователя Image.SetPos("Doc1", 55, 457); Label.SetPos("Doc3", 10, 477); Image.SetVisible("Doc1", true); Label.SetVisible("Doc3", true); -- Убираю не нужные руководства пользователя Label.SetVisible("Doc2", false); Label.SetVisible("Doc4", false); Label.SetVisible("Doc5", false); Label.SetVisible("Doc6", false); Label.SetVisible("Doc7", false); Label.SetPos("Doc2", 10, 570); Label.SetPos("Doc4", 10, 570); Label.SetPos("Doc5", 10, 570); Label.SetPos("Doc6", 10, 570); Label.SetPos("Doc7", 10, 570); else if NodeProperties3.Selected then -- Устанавливаю описание продукта Image.SetPos("Image4", 541, 175); Image.SetVisible("Image4", true); Paragraph.SetPos("Paragraph1", 450, 190); Paragraph.SetText("Paragraph1", "Мой текст: ............"); -- Устанавливаю полосу прокрутки Image.SetVisible("Image5", true); -- Убираю серийный номер Input.SetText("Input1", ""); Image.SetVisible("Image3", false); Input.SetVisible("Input1", false); Image.SetPos("Image3", 10, 570); Input.SetPos("Input1", 10, 570); -- Убираю руководства пользователя Image.SetVisible("Doc1", false); Label.SetVisible("Doc2", false); Label.SetVisible("Doc3", false); Label.SetVisible("Doc4", false); Label.SetVisible("Doc5", false); Label.SetVisible("Doc6", false); Label.SetVisible("Doc7", false); Image.SetPos("Doc1", 10, 570); Label.SetPos("Doc2", 10, 570); Label.SetPos("Doc3", 10, 570); Label.SetPos("Doc4", 10, 570); Label.SetPos("Doc5", 10, 570); Label.SetPos("Doc6", 10, 570); Label.SetPos("Doc7", 10, 570); else if NodeProperties4.Selected then -- Устанавливаю описание продукта Image.SetPos("Image4", 541, 175); Image.SetVisible("Image4", true); Paragraph.SetPos("Paragraph1", 450, 190); Paragraph.SetText("Paragraph1", "Мой текст: ............"); -- Устанавливаю полосу прокрутки Image.SetVisible("Image5", true); -- Устанваливаю серийный номер Input.SetText("Input1", "Мой текст: ............"); Image.SetPos("Image3", 10, 420); Input.SetPos("Input1", 133, 419); Image.SetVisible("Image3", true); Input.SetVisible("Input1", true); -- Убираю не нужные руководства пользователя Image.SetVisible("Doc1", false); Label.SetVisible("Doc2", false); Label.SetVisible("Doc3", false); Label.SetVisible("Doc4", false); Label.SetVisible("Doc5", false); Label.SetVisible("Doc6", false); Label.SetVisible("Doc7", false); Image.SetPos("Doc1", 10, 570); Label.SetPos("Doc2", 10, 570); Label.SetPos("Doc3", 10, 570); Label.SetPos("Doc4", 10, 570); Label.SetPos("Doc5", 10, 570); Label.SetPos("Doc6", 10, 570); Label.SetPos("Doc7", 10, 570); else if NodeProperties5.Selected then -- Устанавливаю описание продукта Image.SetPos("Image4", 541, 175); Image.SetVisible("Image4", true); Paragraph.SetPos("Paragraph1", 450, 190); Paragraph.SetText("Paragraph1", "Мой текст: ............"); -- Устанавливаю полосу прокрутки Image.SetVisible("Image5", true); -- Устанавливаю серийный номер Input.SetText("Input1", "Мой текст: ............"); Image.SetPos("Image3", 10, 420); Input.SetPos("Input1", 133, 419); Image.SetVisible("Image3", true); Input.SetVisible("Input1", true); -- Убираю не нужные руководства пользователя Image.SetVisible("Doc1", false); Label.SetVisible("Doc2", false); Label.SetVisible("Doc3", false); Label.SetVisible("Doc4", false); Label.SetVisible("Doc5", false); Label.SetVisible("Doc6", false); Label.SetVisible("Doc7", false); Image.SetPos("Doc1", 10, 570); Label.SetPos("Doc2", 10, 570); Label.SetPos("Doc3", 10, 570); Label.SetPos("Doc4", 10, 570); Label.SetPos("Doc5", 10, 570); Label.SetPos("Doc6", 10, 570); Label.SetPos("Doc7", 10, 570); else if NodeProperties6.Selected then -- Устанавливаю описание продукта Image.SetPos("Image4", 541, 175); Image.SetVisible("Image4", true); Paragraph.SetPos("Paragraph1", 450, 190); Paragraph.SetText("Paragraph1", "Мой текст: ............"); -- Устанавливаю полосу прокрутки Image.SetVisible("Image5", true); -- Убираю серийный номер Input.SetText("Input1", "Мой текст: ............"); Image.SetVisible("Image3", false); Input.SetVisible("Input1", false); Image.SetPos("Image3", 10, 570); Input.SetPos("Input1", 10, 570); -- Устанавливаю руководство пользователя Image.SetPos("Doc1", 55, 457); Label.SetPos("Doc7", 10, 477); Image.SetVisible("Doc1", true); Label.SetVisible("Doc7", true); -- Убираю не нужные руководства пользователя Label.SetVisible("Doc2", false); Label.SetVisible("Doc3", false); Label.SetVisible("Doc4", false); Label.SetVisible("Doc5", false); Label.SetVisible("Doc6", false); Label.SetPos("Doc2", 10, 570); Label.SetPos("Doc3", 10, 570); Label.SetPos("Doc4", 10, 570); Label.SetPos("Doc5", 10, 570); Label.SetPos("Doc6", 10, 570); else if NodeProperties7.Selected then -- Устанавливаю описание продукта Image.SetPos("Image4", 541, 175); Image.SetVisible("Image4", true); Paragraph.SetPos("Paragraph1", 450, 190); Paragraph.SetText("Paragraph1", "Мой текст: ............"); -- Устанавливаю полосу прокрутки Image.SetVisible("Image5", true); -- Устанавливаю серийный номер Input.SetText("Input1", "Мой текст: ............"); Image.SetPos("Image3", 10, 420); Input.SetPos("Input1", 133, 419); Image.SetVisible("Image3", true); Input.SetVisible("Input1", true); -- Убираю не нужные руководства пользователя Image.SetVisible("Doc1", false); Label.SetVisible("Doc2", false); Label.SetVisible("Doc3", false); Label.SetVisible("Doc4", false); Label.SetVisible("Doc5", false); Label.SetVisible("Doc6", false); Label.SetVisible("Doc7", false); Image.SetPos("Doc1", 10, 570); Label.SetPos("Doc2", 10, 570); Label.SetPos("Doc3", 10, 570); Label.SetPos("Doc4", 10, 570); Label.SetPos("Doc5", 10, 570); Label.SetPos("Doc6", 10, 570); Label.SetPos("Doc7", 10, 570); else if NodeProperties8.Selected then -- Устанавливаю описание продукта Image.SetPos("Image4", 541, 175); Image.SetVisible("Image4", true); Paragraph.SetPos("Paragraph1", 450, 190); Paragraph.SetText("Paragraph1", "Мой текст: ............"); -- Устанавливаю полосу прокрутки Image.SetVisible("Image5", true); -- Устанавливаю серийный номер Input.SetText("Input1", "Мой текст: ............"); Image.SetPos("Image3", 10, 420); Input.SetPos("Input1", 133, 419); Image.SetVisible("Image3", true); Input.SetVisible("Input1", true); -- Убираю не нужные руководства пользователя Image.SetVisible("Doc1", false); Label.SetVisible("Doc2", false); Label.SetVisible("Doc3", false); Label.SetVisible("Doc4", false); Label.SetVisible("Doc5", false); Label.SetVisible("Doc6", false); Label.SetVisible("Doc7", false); Image.SetPos("Doc1", 10, 570); Label.SetPos("Doc2", 10, 570); Label.SetPos("Doc3", 10, 570); Label.SetPos("Doc4", 10, 570); Label.SetPos("Doc5", 10, 570); Label.SetPos("Doc6", 10, 570); Label.SetPos("Doc7", 10, 570); else if NodeProperties9.Selected then -- Устанавливаю описание продукта Image.SetPos("Image4", 541, 175); Image.SetVisible("Image4", true); Paragraph.SetPos("Paragraph1", 450, 190); Paragraph.SetText("Paragraph1", "Мой текст: ............"); -- Устанавливаю полосу прокрутки Image.SetVisible("Image5", true); -- Устанавливаю серийный номер Input.SetText("Input1", "Мой текст: ............"); Image.SetPos("Image3", 10, 420); Input.SetPos("Input1", 133, 419); Image.SetVisible("Image3", true); Input.SetVisible("Input1", true); -- Устанавливаю руководство пользователя Image.SetPos("Doc1", 55, 457); Label.SetPos("Doc5", 10, 477); Image.SetVisible("Doc1", true); Label.SetVisible("Doc5", true); -- Убираю не нужные руководства пользователя Label.SetVisible("Doc2", false); Label.SetVisible("Doc3", false); Label.SetVisible("Doc4", false); Label.SetVisible("Doc6", false); Label.SetVisible("Doc7", false); Label.SetPos("Doc2", 10, 570); Label.SetPos("Doc3", 10, 570); Label.SetPos("Doc4", 10, 570); Label.SetPos("Doc6", 10, 570); Label.SetPos("Doc7", 10, 570); else if NodeProperties10.Selected then -- Устанавливаю описание продукта Image.SetPos("Image4", 541, 175); Image.SetVisible("Image4", true); Paragraph.SetPos("Paragraph1", 450, 190); Paragraph.SetText("Paragraph1", "Мой текст: ............"); -- Устанавливаю полосу прокрутки Image.SetVisible("Image5", true); -- Устанавливаю серийный номер Input.SetText("Input1", "Мой текст: ............"); Image.SetPos("Image3", 10, 420); Input.SetPos("Input1", 133, 419); Image.SetVisible("Image3", true); Input.SetVisible("Input1", true); -- Убираю не нужные руководства пользователя Image.SetVisible("Doc1", false); Label.SetVisible("Doc2", false); Label.SetVisible("Doc3", false); Label.SetVisible("Doc4", false); Label.SetVisible("Doc5", false); Label.SetVisible("Doc6", false); Label.SetVisible("Doc7", false); Image.SetPos("Doc1", 10, 570); Label.SetPos("Doc2", 10, 570); Label.SetPos("Doc3", 10, 570); Label.SetPos("Doc4", 10, 570); Label.SetPos("Doc5", 10, 570); Label.SetPos("Doc6", 10, 570); Label.SetPos("Doc7", 10, 570); else if NodeProperties11.Selected then -- Устанавливаю описание продукта Image.SetPos("Image4", 541, 175); Image.SetVisible("Image4", true); Paragraph.SetPos("Paragraph1", 450, 190); Paragraph.SetText("Paragraph1", "Мой текст: ............"); -- Устанавливаю полосу прокрутки Image.SetVisible("Image5", true); -- Устанавливаю серийный номер Input.SetText("Input1", "Мой текст: ............"); Image.SetPos("Image3", 10, 420); Input.SetPos("Input1", 133, 419); Image.SetVisible("Image3", true); Input.SetVisible("Input1", true); -- Убираю не нужные руководства пользователя Image.SetVisible("Doc1", false); Label.SetVisible("Doc2", false); Label.SetVisible("Doc3", false); Label.SetVisible("Doc4", false); Label.SetVisible("Doc5", false); Label.SetVisible("Doc6", false); Label.SetVisible("Doc7", false); Image.SetPos("Doc1", 10, 570); Label.SetPos("Doc2", 10, 570); Label.SetPos("Doc3", 10, 570); Label.SetPos("Doc4", 10, 570); Label.SetPos("Doc5", 10, 570); Label.SetPos("Doc6", 10, 570); Label.SetPos("Doc7", 10, 570); else if NodeProperties12.Selected then -- Устанавливаю описание продукта Image.SetPos("Image4", 541, 175); Image.SetVisible("Image4", true); Paragraph.SetPos("Paragraph1", 450, 190); Paragraph.SetText("Paragraph1", "Мой текст: ............"); -- Устанавливаю полосу прокрутки Image.SetVisible("Image5", true); -- Устанавливаю серийный номер Input.SetText("Input1", "Мой текст: ............"); Image.SetPos("Image3", 10, 420); Input.SetPos("Input1", 133, 419); Image.SetVisible("Image3", true); Input.SetVisible("Input1", true); -- Устанавливаю руководство пользователя Image.SetPos("Doc1", 55, 457); Label.SetPos("Doc6", 10, 477); Image.SetVisible("Doc1", true); Label.SetVisible("Doc6", true); -- Убираю не нужные руководства пользователя Label.SetVisible("Doc2", false); Label.SetVisible("Doc3", false); Label.SetVisible("Doc4", false); Label.SetVisible("Doc5", false); Label.SetVisible("Doc7", false); Label.SetPos("Doc2", 10, 570); Label.SetPos("Doc3", 10, 570); Label.SetPos("Doc4", 10, 570); Label.SetPos("Doc5", 10, 570); Label.SetPos("Doc7", 10, 570); else if NodeProperties13.Selected then -- Устанавливаю описание продукта Image.SetPos("Image4", 541, 175); Image.SetVisible("Image4", true); Paragraph.SetPos("Paragraph1", 450, 190); Paragraph.SetText("Paragraph1", "Мой текст: ............"); -- Устанавливаю полосу прокрутки Image.SetVisible("Image5", true); -- Устанавливаю серийный номер Input.SetText("Input1", "Мой текст: ............"); Image.SetPos("Image3", 10, 420); Input.SetPos("Input1", 133, 419); Image.SetVisible("Image3", true); Input.SetVisible("Input1", true); -- Устанавливаю руководство пользователя Image.SetPos("Doc1", 55, 457); Label.SetPos("Doc4", 10, 477); Image.SetVisible("Doc1", true); Label.SetVisible("Doc4", true); -- Убираю не нужные руководства пользователя Label.SetVisible("Doc2", false); Label.SetVisible("Doc3", false); Label.SetVisible("Doc5", false); Label.SetVisible("Doc6", false); Label.SetVisible("Doc7", false); Label.SetPos("Doc2", 10, 570); Label.SetPos("Doc3", 10, 570); Label.SetPos("Doc5", 10, 570); Label.SetPos("Doc6", 10, 570); Label.SetPos("Doc7", 10, 570); end end end end end end end end end end end end end end |
|