Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Указатель в значок [D5, WinME]


Керик ©   (2002-02-17 05:53:00) 

Помогите, плиз, кто знает как, зная указатель на значок (HIcon) извлечь TIcon. Зная HCursor, извлечь TCursor.


MBo   (2002-02-17 12:05:00) [1]

Hicon:=TIcon.handle;


Atrem   (2002-02-17 11:00:00) [2]

Можно вот так,для курсора наверно тоже самое,только размеры надо изменить.

Var Icon:HICON;
bit:tbitmap;
begin
//Только Icon сначала получи
bit:=TbitMap.Create;
With bit do
Begin
Height:=31;
Width:=31;
Canvas.Brush.Color:=clWhite;
Canvas.FillRect(Rect(0,0,31,31
DrawIcon(Canvas.Handle, 0, 0, Icon); End;
End;

P.S. А вот как обратно эту операцию обратно провернуть,т.е. имеея Ticon получить Hicon?Может кто-нибудь знает???


Наверх

Титульная страница Поиск, карта сайта Написать письмо