Изменение тулбара реестра накладных

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

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

Ответить
spark
Местный житель
Сообщения: 476
Зарегистрирован: 19 окт 2005, 13:38
Контактная информация:

Изменение тулбара реестра накладных

Сообщение spark »

Добрый день!

А есть возможность в тулбар реестра накладных, а желательно еще и карточки накладной, добавить свои действия?
Может есть готовый пример? И как вообще без исходников узнать название этого тулбара?
edward_K
Заслуженный деятель интернет-сообщества
Сообщения: 5184
Зарегистрирован: 29 мар 2005, 17:49
Откуда: SPB galaxy spb

Re: Изменение тулбара реестра накладных

Сообщение edward_K »

1. Да Можно.
Сам подсмотрел где то в коде. Времянка нужна только для контроля, чтобы не добавить дважды.
Сие вставляется в cmInit

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

 //-------------------------------------------
  //добавить тулбар в основное окно
  LoadAndShowToolBar_My('F_userreports::tbFile_Doc' , -1, -1, 0);
-----
А это я оформил в виде инклюда

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

//*****************************************************************************
create view vFiles
as select MemToolBarsMy.*
From MemToolBarsMy;


//*****************************************************************************
// Загрузить ToolBar -> BaseSoprGui.vpp
// 
Procedure LoadAndShowToolBar_MY(__Name: string[50]; __WinID: integer; __ScreenID: longint; __Owner: word);
{
  if (vFiles.GetFirst MemToolBarsMy where (( __Owner == MemToolBarsMy.Owner
                                  and  __Name     == MemToolBarsMy.Name
                                  and  __WinID    == MemToolBarsMy.WinID
                                  and  __ScreenId == MemToolBarsMy.ScreenId
                                     )) = tsOk)
    Exit;

  vFiles.ClearBuffer(vFiles.tnMemToolBarsMy);

  vFiles.MemToolBarsMy.ID       := Longint(LoadToolBarEx(__Name));
  vFiles.MemToolBarsMy.WinID    := __WinID;
  vFiles.MemToolBarsMy.ScreenId := __ScreenId;
  vFiles.MemToolBarsMy.Owner    := __Owner;
  vFiles.MemToolBarsMy.Name     := __Name;

  vFiles.Insert current MemToolBarsMy;

  ApplyToolBarEx(vFiles.MemToolBarsMy.ID, __WinID, __ScreenID, -1, TB_SHOW);
}

2. Наверное никак. Но по 1 вам это и не нужно - вы добавляете свой собственный в интерфейс, окно и так далее. Даже если там вообще не было тулбара, это сработает.
spark
Местный житель
Сообщения: 476
Зарегистрирован: 19 окт 2005, 13:38
Контактная информация:

Re: Изменение тулбара реестра накладных

Сообщение spark »

Ура!! Все получилось! Спасибо!
Masygreen
Местный житель
Сообщения: 1089
Зарегистрирован: 04 сен 2008, 11:27
Откуда: Москва
Контактная информация:

Re: Изменение тулбара реестра накладных

Сообщение Masygreen »

spark писал(а):Ура!! Все получилось! Спасибо!
а выложили бы полный работающий код для истории ?
Время ведет!
Ответить