Unit QRbwDynamicCursor

DescriptionusesClasses, Interfaces, Objects and RecordsFunctions and ProceduresTypesConstantsVariables

Description

QRbwDynamicCursor defines TQRbwDynamicCursor which provides a convenient way to draw a cursor at runtime.

uses

Overview

Classes, Interfaces, Objects and Records

Name Description
Class ECustomCursorError ECustomCursorError is raised if you attempt to assign the TQRbwDynamicCursor.Cursor property to one of the predefined cursor constants.
Class TQRbwDynamicCursor TQRbwDynamicCursor provides a convenient way to draw a cursor at runtime.

Functions and Procedures

procedure Register;
Procedure CreateACursor(const ABitmap, AMask : TBitMap; const CursorNumber, HotPointX, HotPointY : integer);

Types

TDrawCursor = procedure(Sender : TObject; const ABitMap, AMask : TBitMap) of object;

Description

Functions and Procedures

procedure Register;

Published declarations

Procedure CreateACursor(const ABitmap, AMask : TBitMap; const CursorNumber, HotPointX, HotPointY : integer);

CreateACursor creates a cursor from a pair of bitmaps and assigns the cursor to the Screen. Whoever creates the cursor is responsible for getting rid of it by setting Screen.Cursors[CursorNumber] := nil.

TQRbwDynamicCursor calls CreateACursor in DrawCursor and sets Screen.Cursors[CursorNumber] := nil in Destroy; There is no need to set Screen.Cursors[CursorNumber] := nil in DrawCursor because Screen takes care of that.

Types

TDrawCursor = procedure(Sender : TObject; const ABitMap, AMask : TBitMap) of object;
 
Generated by PasDoc 0.10.0 on 2006-10-31 09:56:43