Главная страница
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.04 c
14-1096756061
KilkennyCat
2004-10-03 02:27
2004.10.24
Куда в Питере можно сдать старые компы?


3-1096347324
Uran
2004-09-28 08:55
2004.10.24
Как отобразить через DataSet фаил базы данных, сохраненный в txt


14-1096540377
Sergey_F
2004-09-30 14:32
2004.10.24
Какое ограничение имеет свойство компонента TQuery–SQL по длине?


14-1096030700
Гаврила
2004-09-24 16:58
2004.10.24
Какие выбрать нааушники?


4-1095862398
nika_ufc
2004-09-22 18:13
2004.10.24
шрифты