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

Вниз

TImageList to TBitBtn.Glyth ???   Найти похожие ветки 

← →
SDA   (2005-11-22 13:12) [0]

Привет всем...
Есть у меня TImageList с картинками и BitBtn кнопки, в зависимости от различных условий нужно менять картинки на кнопках, но вот как??? чо то не могу сообразить...
С ТImage понятно, там у Image есть Picture.Bitmap у которого есть и Read и Write, т.е. можно писать ImageList1.GetBitmap(0,Image2.Picture.Bitmap), ну а что делать с Glyph у BitBtn ума не приложу...
Помогите плз, заранее спасибо...

---

← →
SergGG ©   (2005-11-22 14:26) [1]

Попробуй так


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;


---

← →
SergGG ©   (2005-11-22 15:28) [2]

BitBtn1.Glyph.Empty;--Не нужно!

---

← →
SDA   (2005-11-23 06:35) [3]

Блляяя.... СПАСИБО ДРУГ!!!!

---

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

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

Наверх

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