[ToolsAPI] AddProduct/PluginInfo verweigert Bilder?!

[Meflin]

Moin moin!

Über die OTA kann man ja via IOTAAboutBoxServices.AddProductInfo oder .AddPluginInfo Informationen über das eigene Produkt oder Plugin (wobei "Produkt" ja angeblich nur für Personalities verwendet werden sollte, woran sich aber nicht viele Drittanbieter halten ) in die Delphi-About-Box einzutragen.

Beiden Methoden kann man als Parameter ein Bitmap übergeben, dass dann daneben angezeigt werden sollte. Laut den Kommentaren in der ToolsAPI.pas soll dieses Bitmap denselben Regeln entsprechen, die für Bitmaps bei SplashScreenServices.AddBitmap gelten. Dort ist die Rede von 24x24px Bitmaps.

Das kann eigentlich schonmal nicht stimmen, da die Delphi-Bitmaps, die da in der Aboutbox angezeigt werden, mindestens 32x32 Pixel groß sind!

Wie dem auch sei, meine Bitmap-Parameter werden konsequent ignoriert! Ich habe es sowohl mit 24x24 als auch mit 32x32 Bitmaps versucht, und sowohl mit .AddProductInfo als auch mit .AddPluginInfo, aber nichts, das Bitmap wird einfach nicht angezeigt (D2007).

Alle anderen Informationen werden korrekt eingetragen.

Handelt es sich dabei schlichtweg um einen Bug (wäre ja nicht verwunderlich), oder habe ich irgendetwas übersehen, was es da zu beachten gilt ?

[Daniel]

Auf die korrekte Farbtiefe kommt's leider auch noch an.
Anbei mal eine Handvoll Dateien, mit denen es klappt.

Und dann folgender Code:

Delphi-Quellcode:

...
  fBMPAbout:= TBitmap.Create;
  fBMPAbout.LoadFromResourceName( hInstance, 'DP24X24' );
...
  srvAbout:= (BorlandIDEServices AS IOTAAboutBoxServices);
  if assigned(srvAbout) then
  begin
    fAboutIdx:= srvAbout.AddPluginInfo( ProductName, '...ölah...', fBMPAbout.Handle, FALSE, '', ProductVers + #32 + DLLVersion );
  end;

[Meflin]

Danke für den Tipp - 24 Bit Farbtiefe habe ich auch.

Der Fehler war ein ganz anderer - Ich habe das Bitmap wieder freigegeben, was man hier - ausnahmsweise einmal - nicht machen darf

Funktioniert, zumindest bei D2007, auch mit 32x32 Pixel Bitmaps, habs selbst getestet