[Lazarus] How do I add the "View | Leaks and Traces" as button at the toolbar?

[Balázs Székely]

Hi silvioprog,

Open unit $(LazarusDir)/components/leakview/heaptrcview.pas . Replace
Register procedure with:

procedure Register;
var
  IDEShortCutX: TIDEShortCut;
  IDECommandCategory: TIDECommandCategory;
  IDECommand: TIDECommand;
  IDEButtonCommand: TIDEButtonCommand;
begin
  RegisterIDEMenuCommand(itmViewMainWindows, 'mnuLeakView', rsLeakView,
nil, @IDEMenuClicked);

  IDEShortCutX := IDEShortCut(VK_UNKNOWN, [], VK_UNKNOWN, []);
  IDECommandCategory :=
IDECommandList.FindCategoryByName(CommandCategoryViewName);
  if IDECommandCategory <> nil then
  begin
    IDECommand := RegisterIDECommand(IDECommandCategory, rsLeakView,
rsLeakView, IDEShortCutX, nil, @IDEMenuClicked);
    if IDECommand <> nil then
      IDEButtonCommand := RegisterIDEButtonCommand(IDECommand);
  end;
end;

Alternatively you can apply the attached patch.

regards,
Balázs

heaptrcview.patch
Description: Binary data

-- 
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
http://lists.lazarus-ide.org/listinfo/lazarus