Iconos con transperencia en ToolBar

[Chandra_]

jconnor82: he usado la unit que me has pasado, concretamente la procedure AddIconFileToImageList, y sigue dando el mensaje de error de "invalid Image size" con iconos mayores de 32x32:

Código Delphi [-]
procedure TForm1.Button4Click(Sender: TObject);
  begin
    ConvertTo32BitImageList(ImageList1);
    AddIconFileToImageList('icono48x48.ico', 0, ImageList1);
  end;

Nada, que no hay manera, es imposible

[jconnor82]

Al parecer el problema es con la clase TIcon, sus dimensiones no superan la 32x32 o almenos no veo formar de cambiar ese limite, pero si se trabaja directamente con HICON no hay problema

Código Delphi [-]
function GetFile48hIcon(const FileName: string; IconIndex: Integer = 0): HICON;
var
  DeskTopISF: IShellFolder;
  IExIcon: IExtractIcon;
  PathPidl: PItemIDList;
  hIconL, hIconS: HIcon;
begin
  Result := 0;
  if SHGetDesktopFolder(DeskTopISF) <> NOERROR then
    Exit;

  PathPidl := nil;
  if DeskTopISF.GetUIObjectOf(0, 1, PathPidl, IID_IExtractIconA,
    nil, IExIcon) <> NOERROR then
    Exit;

  if (IExIcon.Extract(PChar(FileName), IconIndex, hIconL, hIconS,
    48 or (16 shl 16)) = NOERROR) and (hIconL <> 0) then
    Result := hIconL;

  DestroyIcon(hIconS);
end;

solo quedaria agregar la siguiente funcion:

Código Delphi [-]
procedure AddIconFile48hToImageList(const FileName: string; IconIndex: Integer;
  const ImageList: TImageList);
var
  IconLarge: HICON;
begin
  IconLarge := GetFile48hIcon(FileName, IconIndex);
  if 0 < IconLarge then
  begin
    ImageList_AddIcon(ImageList.Handle, IconLarge);
    DestroyIcon(IconLarge);
  end;
end;

Webs de referencia:
DelphiZeus
HILPERS

[Chandra_]

Hola de nuevo, jconnor82:

Antes de seguir, quiero agradecerte todo el interés que te estás tomando

Perdona que no te agradeciera antes tu último comentario, pero es que llevo todo el día tratando de solucionar un problemilla:

He estado probando las nuevas funciones que me comentas, haciendo uso de HICON, pero no consigo compilar, porque me debe de faltar alguna unit por declarar en uses, porque me da varios mensajes de error con los siguientes tipos:

Undeclared identifier: 'IShellFolder'
Undeclared identifier: 'IExtractIcon'
Undeclared identifier: 'PItemIDList'
Undeclared identifier: 'SHGetDesktopFolder'

(omito, lógicamente, todas las variables declaradas basadas en estos tipos, que también aparecen como "undeclared identifier")

Buscando en la ayuda de Delphi, he visto que son para tener acceso al shell de windows, a la Microsoft Windows Shell interfaces, pero no termino de encontrar las clases de Delphi que manejan eso para declararlas (en la ayuda de delphi, todo lo que es el SDK de Windows aparece desligado del código de Object Pascal). Creía que con declarar, como haces tú, ShellAPI, era suficiente, pero parece que no. Si me pudieras decir algo, te estaría muy agradecido

Gracias de nuevo


ACTUALIZACIÓN:

Nada, ni caso a lo anterior: ya he encontrado la cláusula uses en la web de DelphiZeus con la "unit mágica" (pero qué burro soy!): ShlObj.

Voy a disfrutarlo, por fin

Un millón de gracias, jconnor82, por tu inestimable ayuda.

[jconnor82]

Algo me decia q me estaba olvidando algo