TOfficeButton mit transparentem Icon

[Bambuti2000]

Hi allerseits,

Ich habe ein Outlook 2007 AddIn und habe nach viel Probieren und Nachlesen endlich geschafft die erstellten Buttons mit Bildern/Icons zu versehen.

Jetzt das Problem:

Ich bekomme einfach keine Transparenz hin.
Hat einer von euch evtl. schon mal Office-Leisten programmiert, oder hat jemand Lösungsvorschläge für mich??

Hier mal ein Codeschnippsel...

Delphi-Quellcode:

  // create the command bar for Outlook
  FOutlookBar := CoOutlookApplication.Create;
  FCommandBar := GetCommandBar(FOutlookBar.ActiveExplorer.CommandBars, 'fit4pc - Leiste', True);

...

    // create the command bar button
    BtnBmp:=TBitmap.Create;
    try
      BtnBmp.LoadFromResourceName(hInstance, 'fit4pcICON');
      BtnPic:=TPicture.Create;
      try
        BtnPic.Assign(BtnBmp);
        try
          getOLEPicture(BtnPic, BtnPicDisp);
        except
          ShowMessage('Fehler: getOLEPicture (HTML)');  //nur während der Testphase Fehler ausgeben
        end;
      except
        ShowMessage('Fehler: Assign BMP to Picture (HTML)');  //nur während der Testphase Fehler ausgeben
      end;
      BtnPic.Free;
    except
      ShowMessage('Fehler: Load BMP From Resource (HTML)');  //nur während der Testphase Fehler ausgeben
    end;
    BtnBmp.Free;

    FURLButton := GetOfficeButton(FCommandBar, 'fit4pcURLBtn', True, URLButtonClick, 'www.fit4pc.de', 'Besuchen Sie uns im Internet');
    FURLButton.Style:=msoButtonIconAndCaption;
    FURLButton.Icon:=BtnPicDisp;

Ist vielleicht nicht einwandfrei programmiert, aber ist im Moment ja noch in der Test/Entwicklungsphase.

Dank im Voraus
lg Bambuti2000