Докомпиляция интерфейса L_Sklad::KartStorage

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
zna
Местный житель
Сообщения: 552
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Челябинск
Контактная информация:

Докомпиляция интерфейса L_Sklad::KartStorage

Сообщение zna »

Добрый день всем. В интерфейс карточек складского учёта добавляю свой browse. Для этого увеличил высоту окна wKartStorMC с 31 до 38 и в образовавшееся место пытаюсь вставить новый browse:Изображение

Код: Выделить всё

alter interface KartStorage;
...
create view
...
Window wKartStorMC;
Panel p3;
  Table tmain;
Browse brMain ('Распределение по Производственным заказам', , sci147EnEsc); 
  Show at (, 32, , 37);
...
end;
Handleevent
cmInit:
{
  if inherited::handleEvent(cmInit) = heOk {}
  if cfsSetCurrentContainer(cfsGetCurrentContainerSelf) = cfOk {}
    if cfsGetObjInfo('wKartStorMC', cur_obj, l0, cont_inf, aObjType) = cfOk then
      {
        if cfsSetProp(l0, cfpRectB_Y, double(38)) <> cfOk then {}
      }
}
end;
end;
end.
Получаю:
Ошибка: Область ввода (1.00, 32.00, 109.00, 37.00) не помещается в окно (0, 0, 110.00, 31.00) C:\Viper\160519_KartStorage\KartStorage.vip(стр. 127, поз. 24)
Почему не компилятор не видит увеличение высоты окна и пишет исходную высоту? :eek:
Строку cfsSetProp(l0, cfpRectB_Y, double(38)) добавлял и в cmInit гланого окна- результат тот же.
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5188
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: Докомпиляция интерфейса L_Sklad::KartStorage

Сообщение edward_K »

А компилятору откуда знать, что вы потом что то измените? Вы его сильно переоцениваете.
Менять нужно сразу у окна

Код: Выделить всё

Window wKartStorMC 'Операции по матценности' (, hcSklOperMc, ) EscClose;
  Show at (, , 130, 37);
А потом уже можете что то подрегулировать.
zna
Местный житель
Сообщения: 552
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Челябинск
Контактная информация:

Re: Докомпиляция интерфейса L_Sklad::KartStorage

Сообщение zna »

Да, Эдвард, помогло! Благодарю!
Век живи..и учись.. :-)
Ответить