Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Замена курсора средствами CLX [D5, D7, Win2k, WinXP]

goliath © (2004-10-11 10:15:00)
Добрый день.

Подскажите пожалуйста как заменить стандартный курсоры мыши средствами 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:00) [1]
Неужели никто не знает ????

Наверх

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