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

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

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

Выбрать другой статус-лайн

Пробовал другие sci1InsPM, sci14Esc, sci14EnEsc - эффекта ни какого.

EnableCommand
DisableCommand
(на память мб не точно) Юзали?

commands[1]:=cmDelete;
DisableCommands(commands);

помогло - Удаление исчезло,
на вставку cmInsert - наверно надо отключать - но у меня ...

Как в статуслайне сделать, чтобы не отображались кнопки ([F1]Справка, [F7]Новая, [F8]Удалить). И соответственно данные события не происходили на форме в tree.
Но чтобы отображались кнопки: Редактировать, Выход.

Пробовал

tree br1 'browse' ('Объекты строительства',,sci14Esc);
show at(,,48 ...

Столкнулся с проблемой передачи параметра 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 сразу вылетает