TOfficeButton mit transparentem Icon

[s.h.a.r.k]

Ich wollte gerade mal deinen Code probieren, nur hab ich auf die Schnelle keine Ahnung woher ich die Outlook_TLB oder welche Unit ich einbinden muss um die Methode getOLEPicture ausführen zu können. Probier doch mal das folgende:

Delphi-Quellcode:

var
  img : TImage; // <- Hat seit Delphi 2007 oder 2009 (?) PNG-Unterstützung
begin
  img := TImage.Create(nil);
  try
    img.Picture.Bitmap.LoadFromResourceName(hInstance, 'fit4pcICON');
    try
      getOLEPicture(img.Picture, BtnPicDisp); // <- Ich habe hier keine Ahnung, was getOLEPicture erwartet, da meine Hilfe dazu nichts findet (D2010) 
    except
      ShowMessage('Fehler: getOLEPicture (HTML)');  //nur während der Testphase Fehler ausgeben
    end;
  finally
    FreeAndNil(img);
  end;

Edit: Ich habe gerade gesehen, dass du mit Delphi 7 arbeitest. Da brauchst du die PngComponents, wenn du PNGs verwenden magst:
http://cc.embarcadero.com/Item/26127 (keine Ahnung, ob diese Version mit D7 läuft)
http://www.thany.org/article/18/VCL (diese Version müsste eigentlich mit D7 laufen)