| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TImageList to TBitBtn.Glyth ??? [D5, 2003]
SDA © (2005-11-22 13:12:00)Привет всем...
Есть у меня TImageList с картинками и BitBtn кнопки, в зависимости от различных условий нужно менять картинки на кнопках, но вот как??? чо то не могу сообразить...
С ТImage понятно, там у Image есть Picture.Bitmap у которого есть и Read и Write, т.е. можно писать ImageList1.GetBitmap(0,Image2.Picture.Bitmap), ну а что делать с Glyph у BitBtn ума не приложу...
Помогите плз, заранее спасибо...
SDA (2005-11-23 06:35:00) [1]Блляяя.... СПАСИБО ДРУГ!!!!
SergGG (2005-11-22 15:28:00) [2]
BitBtn1.Glyph.Empty;--Не нужно!
SergGG (2005-11-22 14:26:00) [3]Попробуй так
var i:integer;
procedure TForm1.BitBtn1Click(Sender: TObject);
var BTMP:TBitmap;
begin
BTMP:=TBitmap.Create;
BitBtn1.Glyph.Empty;
ImageList1.GetBitmap(i,BTMP);
BitBtn1.Glyph:=BTMP;
BTMP.Free;
inc(i);
if i>ImageList1.Count-1 then i:=0;
end;
| |
