вывод кнопки на форму интерфейса

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

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

Ответить
Espada
Местный житель
Сообщения: 336
Зарегистрирован: 07 май 2013, 17:32
Откуда: РБ, Минск

вывод кнопки на форму интерфейса

Сообщение Espada »

Доброго дня, необходимо создать кнопку по нажатию на которую будет выводиться кое-какая информация. Управление договорами - Документы - Договоры - Редактирование договора
Изображение
В коде прописываю обращение к интерфейсу, но кнопка так и не появляется... может сможете подсказать, что я делаю не так?)

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

#component "L_Dogovor"
const
	cmbut1=143213;
end;
 alter interface DOGOVOR;

var
  basedocnrec:comp
 window SCDOGOVOREDITMAIN;
handleevent 

	 cmInit:
            {
			 if(Inherited::HandleEvent(cmInit) = heOk)
              {
			}
			var pobj1,pobj2:longint;
              var err:string;

       if(GetDoubleParameter('Windows','FixedFontSize','$0000') = 8)
       {
              cfsCreateObject ('button','SCSCDOGOVOREDITMAIN','but1',False,pobj2);
              cfsSetProp(pobj2,'Origin_X',545);
              cfsSetProp(pobj2,'Origin_Y',275);
              cfsSetProp(pobj2,'Size_X',298);
              cfsSetProp(pobj2,'Size_Y',25);
              cfsSetProp(pobj2,'Title','Пересчет остатка');
              cfsSetProp(pobj2,'StatusCtx',sci13Esc);
              cfsSetProp(pobj2,'Command',cmBut1)
       };
    }
	cmbut1:
{
Message('Запрос выполняется', Information);
}
end;
end;
end.  
под каждым красивым павлиньим хвостом, скрывается самая обычная куриная жопа!!! так что меньше пафоса господа!!!
Den
Местный житель
Сообщения: 1842
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Ярославская область ОАО "Часовой завод Чайка" г. Углич
Контактная информация:

Re: вывод кнопки на форму интерфейса

Сообщение Den »

Потому что ни окна SCDOGOVOREDITMAIN ни скрина SCSCDOGOVOREDITMAIN в данном интерфейсе нет
Ответить