Topic: [Скрипт] Собственные иконки на кнопках

Загрузка собственных иконок на кнопки


var
    ImageList: TImageList;

begin
  // создаем компонент ImageList
  ImageList:=TImageList.Create(Form1);
  ImageList.Masked:=false;
  ImageList.ColorDepth:=cd32bit;
  // size of images                 
  ImageList.Width := 16;
  ImageList.Height := 16;

  // загрузка иконов в ImageList
  ImageList.AddPng(ExtractFilePath(Application.ExeName)+'Icons\key.png');      // 0 - номер иконки
  ImageList.AddPng(ExtractFilePath(Application.ExeName)+'Icons\accept.png');   // 1
  ImageList.AddPng(ExtractFilePath(Application.ExeName)+'Icons\link.png');     // 2
  ImageList.AddPng(ExtractFilePath(Application.ExeName)+'Icons\window.png');   // 3

  // Присваиваем ImageList для кнопок
  Form1.Button1.Images := ImageList;
  Form1.Button2.Images := ImageList;
  Form1.Button3.Images := ImageList;
  Form1.Button4.Images := ImageList;
  Form1.Button5.Images := ImageList;
  Form1.Button6.Images := ImageList;

  // Выбираем номер иконки для кнопок
  Form1.Button1.ImageIndex := 0;
  Form1.Button2.ImageIndex := 1;
  Form1.Button3.ImageIndex := 2;
  Form1.Button4.ImageIndex := 3;
  Form1.Button5.ImageIndex := 3;
  Form1.Button6.ImageIndex := 3;
end.


Проект с примером:

Post's attachments

Attachment icon Own icons for buttons.zip 6.67 kb, 814 downloads since 2017-06-23 

Dmitry.

Re: [Скрипт] Собственные иконки на кнопках

Дмитрий, для какой версии программы данный скрипт ? На версии 3.4 не работает. Всплывает ошибка про неопределенный тип

Re: [Скрипт] Собственные иконки на кнопках

Igor wrote:

Дмитрий, для какой версии программы данный скрипт ? На версии 3.4 не работает. Всплывает ошибка про неопределенный тип

Скачайте пожалуйста бета версию 3.5
https://www.dropbox.com/s/f3j4kfpnttm1o … b.zip?dl=0

Dmitry.