Форум: "Основная";
Текущий архив: 2002.06.10;
Скачать: [xml.tar.bz2];
Вниз
Вопрос про иконки!!!! Найти похожие ветки
← →
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 вся ветка
Форум: "Основная";
Текущий архив: 2002.06.10;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c
