Не могу спозиционироваться на скрине интерфейса GETANYPODR

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

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

Ответить
edd
Постоянный обитатель
Сообщения: 170
Зарегистрирован: 29 мар 2005, 17:49

Не могу спозиционироваться на скрине интерфейса GETANYPODR

Сообщение edd »

Пытаюсь допилить фейс GETANYPODR
Добавил чекбокс в скрине SCRCHOOSE
Но изменить его не могу
Даже если просто добавляю в конфигураторе поле, то на него тоже не могу встать, даже мышкой.

Подскажите, что может мешать? Свойства cfpSkip нет у скрина.
Последний раз редактировалось edd 28 ноя 2019, 14:53, всего редактировалось 1 раз.
Den
Местный житель
Сообщения: 1842
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Ярославская область ОАО "Часовой завод Чайка" г. Углич
Контактная информация:

Re: Не могу спозиционироваться на скрине интерфейса GETANYPO

Сообщение Den »

cpfProtect еще есть..
А так можно сравнить все property стандартного какого нить PanelCheckBox (в существующем функционале) с проперти добавленного.
edd
Постоянный обитатель
Сообщения: 170
Зарегистрирован: 29 мар 2005, 17:49

Re: Не могу спозиционироваться на скрине интерфейса GETANYPO

Сообщение edd »

cfpProtect у скрина SCRCHOOSE тоже нет

И дело не в PanelCheckBox, я её сразу сравнил с PanelCheckBox в katmc, всё одинаково.
Я специально добавил через конфигуратор (конфигурировать окно - добавить поле) поле в скрин SCRCHOOSE из корневой таблицы и к нему тоже доступа нет. Протект полю не выставлял.

Значит доступом к элементам управляет что то ещё.
Den
Местный житель
Сообщения: 1842
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Ярославская область ОАО "Часовой завод Чайка" г. Углич
Контактная информация:

Re: Не могу спозиционироваться на скрине интерфейса GETANYPO

Сообщение Den »

попробовал , навскидку, добавить в каталог подразделений, в окно редактирования (WKATPODR) в скрин нечто подобное.
PanelRadioButton создался и доступно переключатели выставлять его
edd
Постоянный обитатель
Сообщения: 170
Зарегистрирован: 29 мар 2005, 17:49

Re: Не могу спозиционироваться на скрине интерфейса GETANYPO

Сообщение edd »

В форме редактирования нет проблем, мне надо в форме выбора
Den
Местный житель
Сообщения: 1842
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Ярославская область ОАО "Часовой завод Чайка" г. Углич
Контактная информация:

Re: Не могу спозиционироваться на скрине интерфейса GETANYPO

Сообщение Den »

Там верхние скрины в этом интерфейсе выбора без полей со статиктекстом только.
Я думаю с этим эффект связан , который вы описываете (у меня тоже самое) . И, не суть, добавлять в него контрол выбора или просто статичное поле текстовое - оно так же не будет доступно к редактированию.
Придется придумывать какой то финт другой, чтобы сделать то, что вы хотите (одним встроенным конфигуратором сие не подделать, боюсь)
edd
Постоянный обитатель
Сообщения: 170
Зарегистрирован: 29 мар 2005, 17:49

Re: Не могу спозиционироваться на скрине интерфейса GETANYPO

Сообщение edd »

Пока никто не помог, я добавил свой скрин и разместил там чекбокс.

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

fsCreateObject('screen', 'GETANYPODR', 'scrArh', FALSE, scrArh);
...
cfsCreateObject ('PanelCheckBox','scrArh','LSeeNew', false, LSeeNew);
...
cfsCreateObject('ClusterItem','LSeeNew','Arh_Dop',false, Arh_Dop);
Я думаю с этим эффект связан , который вы описываете
Нунезнаааю... может быть.

Чекбокс то разместил. А как теперь перехватывать значение (сняли галочку или поставили), вопрос.
Пробовал по старинке

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

cmCheckField:
{
  case CurField of
    #LSeeNew: message(LSeeNew)
  end;
}
Но возвращаются какие то "штрашные" цифры типа 317277148. Чем дальше в лес, тем толще партизаны. Или я просто туплю?
Den
Местный житель
Сообщения: 1842
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Ярославская область ОАО "Часовой завод Чайка" г. Углич
Контактная информация:

Re: Не могу спозиционироваться на скрине интерфейса GETANYPO

Сообщение Den »

Можно перегрузить формат (но не расширить - с ExtendFormats будет тот же баг !)

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

#component "Z_KATPODR"

Alter interface GetAnyPodr;

OverloadFormats scrPick1;

 var l : word;

screen scrPick1;
show at (,,,2);
 fields
   l : noprotect;
<<
   Пометьте необходимые записи и нажмите Enter           (.) - one`
   Для просмотра инфраструктуры склада нажмите Alt+I     (.) - two`
>>
end;

end.
тогда заработает то, что интересует..
edd
Постоянный обитатель
Сообщения: 170
Зарегистрирован: 29 мар 2005, 17:49

Re: Не могу спозиционироваться на скрине интерфейса GETANYPO

Сообщение edd »

Не знал про OverloadFormats

Вы решили обе моих проблемы.

Плюсик в репутацию.

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

alter interface GETANYPODR

OverloadFormats SCRCHOOSE;

var wArh : word;

screen SCRCHOOSE;
show at (,,,2);
fields
   wArh : noprotect, noFrame;
<<
   Пометьте необходимые записи и нажмите Enter
   Для просмотра инфраструктуры склада нажмите Alt+I
   [.] Не показывать архивные подразделения/склады `
>>
end;
...

HandleEvent  //События главного окна
cmInit: { 
    cfsSetProp('SCRCHOOSE', cfpRectB_Y,   word(3));   //увеличим первое окно
    cfsSetProp('DEPARTMENTTREE', cfpRectA_Y, word(4)); // у списка подразделений  опустим верхнюю границу на 1  
}

cmCheckField:
{ inherited::handleEvent(cmCheckField) 
  if Curfield=#wArh then
  case wArh of
    1: ...
    0: ...
  end;
}
end;
end. 
Den
Местный житель
Сообщения: 1842
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Ярославская область ОАО "Часовой завод Чайка" г. Углич
Контактная информация:

Re: Не могу спозиционироваться на скрине интерфейса GETANYPO

Сообщение Den »

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