Вопрос про иконки!!!!

← →
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. После загрузки в меню пояляется пиктограмма

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

TreeView.Images := ImageList

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

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