Текущий архив: 2017.10.15;
Скачать: CL | DM;

Вниз

Как менять иконки в SpeedButton?   Найти похожие ветки 

← →
Well9999   (2015-11-24 12:01) [0]

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

---

← →
sniknik ©   (2015-11-24 16:40) [1]

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);

---

← →
Well9999   (2015-11-25 10:49) [2]

Спасибо!

---

Страницы: 1 вся ветка

Текущий архив: 2017.10.15;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.004 c