Замена курсора средствами 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]

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

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