Ir al contenido


Foto

[TRUCO DELPHI] Iconos del Sistema Operativo.


  • Por favor identifícate para responder
No hay respuestas en este tema

#1 sir.dev.a.lot

sir.dev.a.lot

    Advanced Member

  • Miembros
  • PipPipPip
  • 545 mensajes
  • Location127.0.0.1

Escrito 09 diciembre 2016 - 03:22

[TRUCO DELPHI] Iconos del Sistema Operativo.


delphi
  1. Procedure CreateImages;
  2. var
  3. SysIL: HImageList;
  4. SFI: TSHFileInfo;
  5. begin
  6. {Crea un Imagelist}
  7. MyTreeView.Images := TImageList.Create(Self);
  8. SysIL := SHGetFileInfo('', 0, SFI, SizeOf(SFI),
  9. SHGFI_SYSICONINDEX or SHGFI_SMALLICON);
  10. if SysIL <> 0 then
  11. begin
  12. Images.Handle := SysIL;
  13. Images.ShareImages := TRUE;
  14. end;
  15. end;

Saludos!


  • 1