TToolbarButton aus Toolbar entfernen

[tools400]

Hallo Zusammen,

ich versuche nun schon seit einigen Tagen, dem SVN Wizard von 'scdevelop' (http://delphiaddinfortortoisesvn.tigris.org/) beizubringen einige seiner Funktionen als Buttons in der 'Custom Toolbar' anzuzeigen. Prinzipiell funktioniert dies auch, wenn da nicht noch unter gewissen Umständen 'Geister-Buttons', dass heißt leere Buttons ohne Icon und ohne Action stehen bleiben würden. Im Detail bedeutet dies:

a) Der Wizard funktioniert, wenn er für ein Projekt aktiviert oder deaktiviert wird.

b) Er funktioniert nicht, wenn ein oder mehrere Projekte den Wizard einbinden und andere Projekte nicht. In den Projekten ohne Wizard werden dann in der 'Custom Toolbar' leere Buttons ohne Icon und Action angezeigt.

Erzeugt werden die Buttons mit diesem Code (http://stackoverflow.com/questions/4...button-runtime) (leicht modifiziert):

Code:

procedure TTortoiseSVN.AddActionToToolbar(var bar: TToolBar; action: TAction);
var
  newbtn: TToolButton;
  lastbtnidx: integer;
begin
  newbtn := TToolButton.Create(bar);
  newbtn.Action := action;
  lastbtnidx := bar.ButtonCount - 1;
  if lastbtnidx > -1 then
    newbtn.Left := bar.Buttons[lastbtnidx].Left + bar.Buttons[lastbtnidx].Width
  else
    newbtn.Left := 0;
  newbtn.Parent := bar;
  tSvnToolbarActions.Add(action);
end;

Und entfernt werden Buttons wie im "Component Writer’s Guide" (http://docwiki.embarcadero.com/RADSt...7s_Guide_Index) beschrieben.

Code:

procedure TTortoiseSVN.RemoveActionFromToolbar (Action: TAction; ToolBar: TToolBar);
var i: Integer;
    Btn: TToolButton;
begin
    for i := ToolBar.ButtonCount - 1 downto 0 do begin
      Btn := ToolBar.Buttons[I];
      if Btn.Action = Action then begin
        { Remove "Btn" from "ToolBar" }
        ToolBar.Perform(CM_CONTROLCHANGE, WPARAM(Btn), 0);
        Btn.Free;
      end;
    end;
end;

Screenshot_1.jpg zeigt, wie die Toolbar bei aktivem Wizard aussieht. Screenshot_2.jpg demonstriert die leeren 'Geister-Buttons'.

Hat jemand eine Idee, wie das Problem gelöst werden kann?

Die verwendete IDE ist Delphi 7, bzw. Delphi 7 Personal.

Thomas.