Галактика в вопросах и ответах

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

 //-------------------------------------------
  //добавить тулбар в основное окно
  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);
}