Текущий архив: 2004.10.24;
Скачать: CL | DM;

Вниз

Замена курсора средствами CLX   Найти похожие ветки 

← →
goliath ©   (2004-10-11 10:15) [0]

Добрый день.

  Подскажите пожалуйста как заменить стандартный курсоры мыши средствами CLX.

 Пример, который я скачал с сайта Borland  не работает.

var
 BitsBmp: QBitmapH;
 MaskBmp: QBitmapH;
 CusorHandle: QCursorH;

const
 Bits: array[1..32*4] of Byte = (
   $FF,$FF,$FF,$FF,$C0,$01,$80,$03, $C0,$01,$80,$03,$C0,$01,$80,$03,
   $C0,$01,$80,$03,$C0,$01,$80,$03, $C0,$01,$80,$03,$C0,$01,$80,$03,
   $C0,$01,$80,$03,$C0,$01,$80,$03, $C0,$01,$80,$03,$C0,$01,$80,$03,
   $C0,$01,$80,$03,$C0,$01,$80,$03, $C0,$01,$80,$03,$FF,$FF,$FF,$FF,
   $C0,$01,$80,$03,$C0,$01,$80,$03, $C0,$01,$80,$03,$C0,$01,$80,$03,
   $C0,$01,$80,$03,$C0,$01,$80,$03, $C0,$01,$80,$03,$C0,$01,$80,$03,
   $C0,$01,$80,$03,$C0,$01,$80,$03, $C0,$01,$80,$03,$C0,$01,$80,$03,
   $C0,$01,$80,$03,$C0,$01,$80,$03, $C0,$01,$80,$03,$FF,$FF,$FF,$FF
 );

 Mask: array[1..32*4] of Byte = (
   $FF,$FF,$FF,$FF,$C0,$01,$80,$03, $C0,$01,$80,$03,$C0,$01,$80,$03,
   $C0,$01,$80,$03,$C0,$01,$80,$03, $C0,$01,$80,$03,$C0,$01,$80,$03,
   $C0,$01,$80,$03,$C0,$01,$80,$03, $C0,$01,$80,$03,$C0,$01,$80,$03,
   $C0,$01,$80,$03,$C0,$01,$80,$03, $C0,$01,$80,$03,$FF,$FF,$FF,$FF,
   $C0,$01,$80,$03,$C0,$01,$80,$03, $C0,$01,$80,$03,$C0,$01,$80,$03,
   $C0,$01,$80,$03,$C0,$01,$80,$03, $C0,$01,$80,$03,$C0,$01,$80,$03,
   $C0,$01,$80,$03,$C0,$01,$80,$03, $C0,$01,$80,$03,$C0,$01,$80,$03,
   $C0,$01,$80,$03,$C0,$01,$80,$03, $C0,$01,$80,$03,$FF,$FF,$FF,$FF
 );

begin
 BitsBmp := QBitmap_create(32, 32, @Bits, False); // !!!exeption
 MaskBmp := QBitmap_create(32, 32, @Mask, False); // !!!exeption
 
 CursorHandle := QCursor_create(BitsBmp, MaskBmp, 16, 16);
                                               // !!!exeption  
 QBitmap_destroy(BitsBmp);
 QBitmap_destroy(MaskBmp);
end;

Если же пытаюсь загрузить курсор из файла или из ресурсов, то получаю нормальный хэндл, назначаю его Screen.Cursors[crMy] и когда пытаюсь сделать, например? Form.Cursor := crMy, то получаю Access Violation по адресу Handle/

Как быть !!!???

---

← →
goliath ©   (2004-10-12 09:58) [1]

Неужели никто не знает ????

---

Страницы: 1 вся ветка

Текущий архив: 2004.10.24;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.047 c