Форум: "Начинающим";
Текущий архив: 2017.10.15;
Скачать: [xml.tar.bz2];
ВнизКак менять иконки в 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.002 c