Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Вниз

Указатель в значок 


Керик   (2002-02-17 05:53) [0]

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



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

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

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?Может кто-нибудь знает???



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

Hicon:=TIcon.handle;




Форум: "WinAPI";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.22;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.026 c
3-69735           Ежик                  2002-04-01 13:30  2002.04.22  
Как програмно посчитать кол-во записей в БД?


1-69935           Shreck                2002-04-09 21:27  2002.04.22  
Как проверить существует ли в listbox1.items строка из edit1.text


3-69745           IronHawk              2002-03-29 15:48  2002.04.22  
Приветствую Мастеров ! Как удалять одинаковые строки в базе?


1-69804           Катерина              2002-04-09 11:24  2002.04.22  
CheckBox


4-70066           Denis K. aKa Burjuy   2002-02-16 19:50  2002.04.22  
Работа с консолью