Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.06 c
3-1096309007
Denisov
2004-09-27 22:16
2004.10.24
Работа с BLOB.


3-1096019705
janb
2004-09-24 13:55
2004.10.24
Уважаемые мастера!!! Как в fastreporte создать компоненты?


14-1096862753
Думкин
2004-10-04 08:05
2004.10.24
Новосибирск, встреча, фотографии.


4-1095466580
Apl
2004-09-18 04:16
2004.10.24
Как отключить поддержку стиля Win XP в своей программе


1-1097500966
3J106UH
2004-10-11 17:22
2004.10.24
Помощь по по listbox и memo