| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как менять иконки в SpeedButton?

Well9999 ©   (2015-11-24 12:01:00) 

Задача - менять при необходимости значки на кнопках.
Рисунки находятся в ImageList.
Пробую менять командой:
ImageList->GetBitmap(2,SpeedButton1->Glyph);
Всё хорошо, значок на кнопке меняется, но ... только один раз. При повторной команде изображение не меняется.
Подскажите каким образом можно менять изображения на  SpeedButton, извлекая их из ImageLis ?

---

Well9999   (2015-11-25 10:49:00) [1]

Спасибо!

---

sniknik   (2015-11-24 16:40:00) [2]

function TCustomImageList.GetBitmap(Index: Integer; Image: TBitmap): Boolean;
begin
 Result := ( Image <> nil) and HandleAllocated and (Index > -1) and (Index < Count);
 if Result then
   with Image do
   begin
     Height := FHeight;
     Width := FWidth;
     Draw(Canvas, 0, 0, Index);
   end;
end;

SpeedButton1->Glyph = nil;
ImageList->GetBitmap(2,SpeedButton1->Glyph);

---

Наверх