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

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

Можно ли чёрно-белую bmp-картинку загрузить как курсор? [D7]

Просто ©   (2005-08-11 05:23:00) 

В смысле она сама рисуется в TImage, а дальше мне надо, чтобы это изображение превратилось в курсор мыши. Как это можно сделать?

---

Просто   (2005-08-14 01:40:00) [1]

У меня ещё один вопрос.
Почему то, когда переключаю курсор с одного своего, на другой свой, появляется вместо него стандартная стрелка. И лишь когда подвину мышь, то курсор становится какой надо. Можно как нибудь этой "фичи" избежать ?

---

Наиль   (2005-08-13 07:37:00) [2]

К сожалению WinApi это, то что могу знать, но знать не хочу, т.к. это отрицательно сказывается на скорости работы, так что спасибо [5].Теперь знаю, что написал. А то писал-то наугад.

---

Просто   (2005-08-13 01:18:00) [3]

> Наиль ©   (12.08.05 08:49) [4]

Большое спасибо, вы мне очень помогли !


> TUser ©   (12.08.05 08:53) [5]
> Если не ошибаюсь, - fIcon надо делать false, т.к. мы создаем
> курсор, а не просто иконку.

Да. А иначе хотспот не работает.

---

TUser   (2005-08-12 08:53:00) [4]

Если не ошибаюсь, - fIcon надо делать false, т.к. мы создаем курсор, а не просто иконку.

---

Наиль   (2005-08-12 08:49:00) [5]

О курсорах ни чего не знаю, но [2] достаточно чтобы дойти до этого:
Программа:
...
procedure TForm1.FormClick(Sender: TObject);
Var
IcIn:_IconInfo;
begin
With IcIn do Begin
 fIcon:=true;
 xHotspot:=0;
 yHotspot:=0;
 hbmMask:=Image2.Picture.Bitmap.Handle;
 hbmColor:=Image1.Picture.Bitmap.Handle;
End;
Screen.Cursors[1]:=CreateIconIndirect(IcIn);
Cursor:=1;
end;
...
Форма
object Form1: TForm1
 Left = 454
 Top = 238
 Width = 123
 Height = 82
 Caption = 'Form6'
 Color = clBtnFace
 Font.Charset = DEFAULT_CHARSET
 Font.Color = clWindowText
 Font.Height = -11
 Font.Name = 'MS Sans Serif'
 Font.Style = []
 OldCreateOrder = False
 OnClick = FormClick
 PixelsPerInch = 96
 TextHeight = 13
 object Image1: TImage
   Left = 8
   Top = 8
   Width = 32
   Height = 32
   Center = True
   Picture.Data = {
     07544269746D617076020000424D760200000000000076000000280000002000
     0000200000000100040000000000000200000000000000000000100000000000
     000000000000000080000080000000808000800000008000800080800000C0C0
     C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
     FF00000000000000000000000000000000000000000000000000000000000000
     0000000000000000000000000000000000000000000000000000000000000000
     0000000000000000000000000000000000000000000000000000000000000000
     00000664444444444444444444444444444006E6666666666666666666666666
     664006F6600060006000600060000000664006E66F706F706F706F706F777770
     664006F66FF06FF06FF06FF06FFFFFF0664006E6666666666666666666666666
     664006F6600060006000600060006000664006E66F706F706F706F706F706F70
     664006F66FF06FF06FF06FF06FF06FF0664006E6666666666666666666666666
     664006F6600060006000600060006000664006E66F706F706F706F706F706F70
     664006F66FF06FF06FF06FF06FF06FF0664006E6666666666666666666666666
     664006F6607777777777777766666666664006E660FFFFFFFFFFFFF766666666
     664006F6607777777777777766666666664006E6600000000000000066666666
     664006FEFEFEFEFEFEFEFEFEFEFEFEFEFE400066666666666666666666666666
     6660000000000000000000000000000000000000000000000000000000000000
     0000000000000000000000000000000000000000000000000000000000000000
     0000000000000000000000000000000000000000000000000000000000000000
     0000}
 end
 object Image2: TImage
   Left = 48
   Top = 8
   Width = 32
   Height = 32
   Picture.Data = {
     07544269746D6170BE000000424DBE000000000000003E000000280000002000
     0000200000000100010000000000800000000000000000000000020000000000
     000000000000FFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC000
     0001800000008000000080000000800000008000000080000000800000008000
     0000800000008000000080000000800000008000000080000000800000008000
     0000800000008000000080000000C0000001FFFFFFFFFFFFFFFFFFFFFFFFFFFF
     FFFFFFFFFFFFFFFFFFFF}
 end
end
Надеюсь ты знаешь, что с этим делать.

---

Просто   (2005-08-12 06:23:00) [6]

Почему у TIcon нет свойства CopyRect, и как без него выкручиваться ?

Мне надо, чтобы курсор был стрелочкой с циферкой. Я рисую это в TImage, но как мне дальше то его преобразовать в курсор и подключить ?

Есть здесь мастера, или нет ?

---

Просто   (2005-08-12 06:11:00) [7]

> TUser ©   (11.08.05 10:22) [1]
> You can also create a custom cursor at run time by using
> the CreateIconIndirect function, which creates a cursor
> based on the content of an ICONINFO structure.


А где она есть эта ICONINFO structure ?
Дайте же мне формат этого файла !
И потом, как подключить курсор, без сохранения его на диск ?

---

TUser   (2005-08-11 10:22:00) [8]

You can also create a custom cursor at run time by using the CreateIconIndirect function, which creates a cursor based on the content of an ICONINFO structure.

---

Наверх