forum.boolean.name - Иконка (Icon)

forum.boolean.name (http://forum.boolean.name/index.php)

- Delphi (http://forum.boolean.name/forumdisplay.php?f=66)

- - Иконка (Icon) (http://forum.boolean.name/showthread.php?t=11731)

Иконка (Icon)

Написал программу, которая сворачивается в трей и реагирует на горячие клавиши. Добавил кнопку включения/выключения горячих клавиш и в добавок к этому хочу еще менять иконку в трее. Т.е. если горячие клавиши включены, в трее иконка меняется на зеленую, а если отключены - на красную.

Проблема в том, что каждый раз нужно загружать зеленую и красную иконку из файла, что не очень удобно: вместе с exe-шником придется таскать иконки, либо хранить иконки в какой-то одной папке.

Нельзя как-нибудь эти обе иконки добавить в программу и чтобы их не приходилось загружать из файла?

Ответ: Иконка (Icon)

Простейший вариант - использовать TImageList.
Также можно прилинковать иконки к программе в виде ресурсов, и потом извлекать их, конкретного примера под рукой нет, но в инете найдется.

Ответ: Иконка (Icon)

Промучался с ImageList - ничего не получилось, погуглил и нашел вот этот вариант.

Ответ: Иконка (Icon)

есть компонента RxLIb там была такая приблуда...

Ответ: Иконка (Icon)

Вот еще вариант. Думаю тебе подойдет в самый раз...

...то, о чем говорил ViNT

Цитата:

Сообщение от ViNT (Сообщение 133484)

Также можно прилинковать иконки к программе в виде ресурсов, и потом извлекать их, конкретного примера под рукой нет, но в инете найдется.

Пример (c) ArtikZ

Создаешь обычный текстовый документ с расширением .rc и помещаешь в него свои "иконки". Пример файла "sample.rc":

Код:

imya1 RCDATA LOADONCALL путь_к_иконке/icon1.ico

imya2 RCDATA LOADONCALL путь_к_иконке/icon2.ico

imya3 RCDATA LOADONCALL путь_к_иконке/icon3.ico

потом через brcc32.exe делаешь .res файл..
через коммандную строку это будет выглядеть так:

Код:

brcc32.exe путь_к_файлу/sample.rc

получаешь файл "sample.RES"... Подключаешь его к своей программе и берешь из него иконки. Примерно так:

Код:

...

var

  Form1: TForm1;

  Res: TResourceStream;



implementation



{$R *.dfm}

{$R sample.RES}



procedure TForm1.Button1Click(Sender: TObject);

begin

  Res := TResourceStream.Create(Hinstance, 'imya2', RT_RCDATA);

  //возьмет 2ю иконку

    try

      Image1.Picture.Icon.LoadFromStream(res);

      //рисуем иконку в TImage

     {

     Application.Icon.LoadFromStream(res);

      //делаем imya2 иконкой нашего приложения

     }

    finally

      Res.Free;

    end;

end;



...

Удачи!