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

[spark]

Добрый день!

А есть возможность в тулбар реестра накладных, а желательно еще и карточки накладной, добавить свои действия?
Может есть готовый пример? И как вообще без исходников узнать название этого тулбара?

[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]

Ура!! Все получилось! Спасибо!

[Masygreen]

Ура!! Все получилось! Спасибо!

а выложили бы полный работающий код для истории ?