Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Вопрос про иконки!!!! [D5, Win95/98, WinME]

dimich © (2002-05-29 14:37:00)
Я извлекаю иконку и ложу в переменную с типом HICON, но при добавлении его в ImageList надо ложить с типом TIcon либо TBitmap.
Вопрос вот в чем. Как мне переменную HICON переприсвоить переменной типа TICON или TBITMAP?

Игорь Шевченко (2002-05-29 16:48:00) [1]
TreeView.Images := ImageList

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

dimich (2002-05-29 16:29:00) [2]
Спасибо у меня все получилось, кроме того что нем могу иконки из имагелист воспроизвести в тривью.

Игорь Шевченко (2002-05-29 15:22:00) [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. После загрузки в меню пояляется пиктограмма

Song (2002-05-29 14:41:00) [4]
Надо её нарисовать на Canvas"е например (DrawIcon()) а потом добавлять в TImageList. Честно говоря я не помню способа легче.

Игорь Шевченко (2002-05-29 14:40:00) [5]
Icon := TIcon.Create;
Icon.Handle := yourHICONvar

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »