Форум: "Основная";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];

Вниз

Проблема с Imagelist   Найти похожие ветки 

← →
Владимир   (2004-06-08 18:49) [0]

Народ помогите пожалуйста разобраться в такой штуке:
Заполняю Imagelist картинками Tbitmap
image1.add(bitmap,nil)
затем присваиваю кнопкам toolbar"a иконки из Imagelist
toolbutton1.imageindex:=0;
картинка на этой кнопе не имеет прозрачного цвета, если каждой кнопке присваивать свои значения imagelist и imagelist загрузить картинками на этапе выполнения создания программы (т.е. не програмно), то все цвета картинок на toolbar"a, совпадающие с координатой 1:1 становятся прозрачными. Как вернуть прозрачный цвет?

---

← →
TUser ©   (2004-06-08 18:55) [1]

См свойство DrawingStyle у TImageList"а

---

← →
Владимир   (2004-06-08 19:37) [2]

> См свойство DrawingStyle у TImageList"а

Не помогает.

---

← →
grom   (2004-06-09 09:05) [3]

можно написать премерно так
procedure TForm1.Button1Click(Sender: TObject);
var col:TColor ;
begin
col:=Image1.Picture.Bitmap.TransparentColor;
ImageList1.AddMasked(Image1.Picture.Bitmap,col);
ToolButton1.ImageIndex:=0;
end;
должно работать

---

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

Форум: "Основная";
Текущий архив: 2004.06.20;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.028 c