Скачать: CL | DM;

Вопрос про иконки!!!!   Найти похожие ветки 

← →
dimich ©   (2002-05-29 14:37) [0]

Я извлекаю иконку и ложу в переменную с типом HICON, но при добавлении его в ImageList надо ложить с типом TIcon либо TBitmap.
Вопрос вот в чем. Как мне переменную HICON переприсвоить переменной типа TICON или TBITMAP?

---

← →
Игорь Шевченко ©   (2002-05-29 14:40) [1]

Icon := TIcon.Create;
Icon.Handle := yourHICONvar

---

← →
Song ©   (2002-05-29 14:41) [2]

Надо её нарисовать на Canvas"е например (DrawIcon()) а потом добавлять в TImageList. Честно говоря я не помню способа легче.

---

← →
Игорь Шевченко ©   (2002-05-29 15:22) [3]

procedure TForm1.FormCreate(Sender: TObject);
var
Icon : TIcon;
Hnd : HICON;
begin
Label1.Font.Charset := RUSSIAN_CHARSET;
Hnd := LoadIcon(hInstance, "HS_ICON");
if Hnd <> 0 then begin
Icon := TIcon.Create();
Icon.Handle := Hnd;
ImageList1.AddIcon(Icon);
end;
end;

У меня ImageList сначала пустой, элементу меню присвоен ImageIndex 0. После загрузки в меню пояляется пиктограмма

---

← →
dimich ©   (2002-05-29 16:29) [4]

Спасибо у меня все получилось, кроме того что нем могу иконки из имагелист воспроизвести в тривью.

---

← →
Игорь Шевченко ©   (2002-05-29 16:48) [5]

TreeView.Images := ImageList

или TreeView.StateImages, в зависимости от того, что требуется

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.008 c