Галактика в вопросах и ответах

Огромное спасибо за помощь ))

в cmInit Всё работает

Выбрать другой статус-лайн Пробовал другие sci1InsPM, sci14Esc, sci14EnEsc - эффекта ни какого. EnableCommand DisableCommand (на память мб не точно) Юзали? commands[1]:=cmDelete; DisableCommands(commands); помогло - Удаление исчезло, на вставку cmInsert - наверно надо отключать - но у меня нету зна...

Как в статуслайне сделать, чтобы не отображались кнопки ([F1]Справка, [F7]Новая, [F8]Удалить). И соответственно данные события не происходили на форме в tree. Но чтобы отображались кнопки: Редактировать, Выход. Пробовал tree br1 'browse' ('Объекты строительства',,sci14Esc); show at(,,48,); table tre...

Столкнулся с проблемой передачи параметра icon : string в функцию TreeSetNodeType
Не срабатывает следующий код

var s1 : string;
s1 := 'BmpClassL13';
TreeSetNodeType(br1, ntfText, s1);

А так работает
TreeSetNodeType(br1, ntfText, 'BmpClassL13');

Я в панике

А в обработчике cmPositionChanged интерфейса что-нить писали? нет, обработчик cmPositionChanged у меня не задействован. Почему-то в окне из которого вызываю свой интерфейс в случае изменения текущей записи, обновление Notify(cmPositionChanged, 0); срабатывает и запись после работы интерфейса изменя...

Рульно )))) Спасибо edward_K

я сделал вызов Notify(cmPositionChanged, 0); в фейсе и всё обновилось )) ура! )

запускаю свой интерфейс из формы KARTOBJ, .LinkForm 'KARTOBJ_SLK_NL7' Prototype is 'KARTOBJ' .... .begin runinterface('myinterface'); //после выполнения интерфейса myinterface нужно обновить окно формы KARTOBJ end. .endform Вопрос как принудительно обновить окно KARTOBJ - так как после работы моего ...

LaaLaa, galover Спасибо, вам, большое за ответы

ex3em Например, посылом сообщений. Потому как embedded вообще не знает о родителе ничего. Ну или как вариант, передавать ссылку на родительский фейс в embedded, но это увеличит связность системы А можно пример кода отправки сообщений родителю или как передавать ссылку на родительский интерфейс. Пож...

А как из встроенного интерфейса, взаимодействоватьс с основным интерфейсом?
Согласно примеру описанному выше мы используем конструкцию TE.MsgTest; для вызова процедуры из testemb.vip, а как наоборот из testemb.vip вызывать процедуры находящиеся в "главном" vipе? (((

Vik писал(а):Странно, посмотрел у себя, много где использовал подобную конструкцию и работает..

Возможно, просто что-то в версиях различается (у меня на Оракле база). Спасибо большое за помощь всегда приятно, когда помогают )

Vik писал(а):Еще так должно работать:
query := 'SELECT name, nrec FROM Katstroy where Katstroy.cstroy = #comp('+_nrec +')';

Попробовал - не сработало (((

Вопрос снимается )) Нашёл как это делается sqlBindParam(stmt, 1, _nrec); query := 'SELECT name, nrec FROM Katstroy where Katstroy.cstroy = ?'; sqlPrepare(stmt, query); sqlExecStmt(stmt, query); while (sqlFetch(stmt) = tsOk) do { message('запрос сработал'); }

Доброго времени суток =) Столкнулся с проблемой ((( Не могу заставить запрос работать _nrec типа comp query := 'SELECT name FROM Katstroy WHERE Katstroy.cstroy = ' + _nrec; sqlPrepare(stmt, query); sqlExecStmt(stmt, query); while (sqlFetch(stmt) = tsOk) do { message('запрос сработал'); } а вот такой...

Здравствуйте

Работаю в Viper 5.4.26
Если в полноэкранном режиме (по F11) компилировать проект (по Shift F9) - Viper сразу вылетает