Ir al contenido


Foto

[TRUCO DELPHI] Iconos del Sistema Operativo.

Comenzado por sir.dev.a.lot , dic 09 2016 03:22

  • 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
Volver a Trucos y Consejos


  1. Comunidad Delphiaccess
  2. → COLABORACIÓN
  3. → Trucos y Consejos
  4. Privacy Policy
IP.Board spam blocked by CleanTalk.