[Narside 0]

Спасибо! уже сам стал потихоньку приходить к такой последовательности и форме, изучая примеры. Думаю, скоро закончу осаду скрипта

[Narside 0]

В 06.12.2018 в 17:25, peshkoff сказал:

добавляем Label под NetLabel

Осталось с этим справиться. Застрял :( . Всю информацию со схемы считывает, присваивает правильные значения напряжений (проверял через диалоговые окна), а размещение не получается.

begin
    MyNetLabel := Iterator.FirstSchObject;
    ShowMessage(Vartostr(MyNetLabel.text)+' =    '+ListBox5.Items.Strings[ListBox4.Items.indexof(Vartostr(MyNetLabel.text))]);

     If MyNetlabel = Nil Then Exit;

    //SchTextLabel.Location    := Point(MilsToCoord(2500), MilsToCoord(2500));
    //SchLabel.Orientation := eRotate90;
    SchLabel := ListBox5.Items.Strings[ListBox4.Items.indexof(Vartostr(MyNetLabel.text))]; - это вывод из моих Листбоксов
    CurrentSheet.RegisterSchObjectInContainer(SchLabel);