Class TRbwDynamicCursor

DescriptionHierarchyFieldsMethodsProperties

Unit

RbwDynamicCursor

Declaration

type TRbwDynamicCursor = class(TComponent)

Description

ECustomCursorError is raised if you attempt to assign the TRbwDynamicCursor.Cursor property to one of the predefined cursor constants.

Hierarchy

Overview

Fields

Private Modified: boolean;
Private FHotPointY: integer;
Private FHotPointX: integer;
Private FCursor: TCursor;
Private FOnDrawCursor: TDrawCursor;

Methods

Private procedure SetCursor(const Value: TCursor);
Private procedure SetHotPointX(const Value: integer);
Private procedure SetHotPointY(const Value: integer);
Private procedure SetOnDrawCursor(const Value: TDrawCursor);
Protected Procedure DrawCursor; virtual;
Protected function GetCursor : TCursor; virtual;
Protected function GetCursorHeight : integer; virtual;
Protected function GetCursorWidth : integer; virtual;
Protected procedure DrawDefaultCursor(const AndImage, XorImage : TBitMap); virtual;
Public Constructor Create(AOwner: TComponent); override;
Public procedure RedrawCursor; virtual;

Properties

Public property CursorHeight : integer read GetCursorHeight;
Public property CursorWidth : integer read GetCursorWidth;
Published property Cursor : TCursor read GetCursor write SetCursor;
Published property HotPointX : integer read FHotPointX write SetHotPointX;
Published property HotPointY : integer read FHotPointY write SetHotPointY;
Published property OnDrawCursor : TDrawCursor read FOnDrawCursor write SetOnDrawCursor;

Description

Fields

Private Modified: boolean;
 
Private FHotPointY: integer;
 
Private FHotPointX: integer;
 
Private FCursor: TCursor;
 
Private FOnDrawCursor: TDrawCursor;
 

Methods

Private procedure SetCursor(const Value: TCursor);
 
Private procedure SetHotPointX(const Value: integer);
 
Private procedure SetHotPointY(const Value: integer);
 
Private procedure SetOnDrawCursor(const Value: TDrawCursor);
 
Protected Procedure DrawCursor; virtual;

Private declarations

Protected function GetCursor : TCursor; virtual;
 
Protected function GetCursorHeight : integer; virtual;
 
Protected function GetCursorWidth : integer; virtual;
 
Protected procedure DrawDefaultCursor(const AndImage, XorImage : TBitMap); virtual;
 
Public Constructor Create(AOwner: TComponent); override;

CursorWidth is the Width of the cursor in pixels supported by the current display driver.

Public procedure RedrawCursor; virtual;

Create calls the inherited create and then searches for other instances of TRbwDynamicCursor. It then sets the Cursor property to a different value than all the other existing TRbwDynamicCursor's.

Properties

Public property CursorHeight : integer read GetCursorHeight;

Protected declarations

Public property CursorWidth : integer read GetCursorWidth;

CursorHeight is the height of the cursor in pixels supported by the current display driver.

Published property Cursor : TCursor read GetCursor write SetCursor;

Public declarations

Published property HotPointX : integer read FHotPointX write SetHotPointX;

Cursor is a TCursor value that may be assigned to instances of other components, such as TForm that have a Cursor property. Doing so, will cause the cursor of that other component to be the one defined using TRbwDynamicCursor. You should be certain that the value assigned to Cursor does not conflict with a custom cursor defined by something other than a TRbwDynamicCursor.

Published property HotPointY : integer read FHotPointY write SetHotPointY;

HotPointX specifies the horizontal position of the cursor's hot spot. Setting HotPointX will not cause the cursor to be redrawn.

Published property OnDrawCursor : TDrawCursor read FOnDrawCursor write SetOnDrawCursor;

HotPointY specifies the vertical position of the cursor's hot spot. Setting HotPointY will not cause the cursor to be redrawn.

Generated by PasDoc 0.12.1 on 2013-05-13 15:41:59