Class TCanvasVideo (unit CanvsVid)

Inherits from

TVideoDevice

****** * * Module: CanvsVid * Author: Joe Kessler * IntegrationWare - A New Generation of Extraordinary PC Solutions * www.integrationware.com * * Purpose: * * This module defines the TCanvasVideo class, which is derived from the * abstract TVideoDevice ancestor. It provides the ability for the program * to draw objects on a Delphi form by overriding abstract methods. * ******

Constructors


constructor Create(frmOutput: TForm; iInternalFrameWidth, iInternalFrameHeight: Integer);

Public constructor.


Functions

procedure ClearFrame;

Method to clear off the entire frame.

function iGetPhysicalScreenHeight: Integer;

functions to return the current physical screen dimensions.

function iGetPhysicalScreenWidth: Integer;


procedure LineTo(iX, iY: Integer);

Move to the requested coordinates.

procedure MoveTo(iX, iY: Integer);

Methods to move the pen position and draw lines.

procedure SetPenColor(clrNew: TColor);

Method to set the current pen color.

procedure SetPixel(iX, iY: Integer; clrPixel: TColor);

Method to set a single pixel.

Properties

Events

Variables

m_cnvOutput : TCanvas;


m_frmOutput : TForm;

Reference to form and canvas objects being used for output.


Constructors


constructor Create(frmOutput: TForm; iInternalFrameWidth, iInternalFrameHeight: Integer);

Public constructor.


Functions


procedure ClearFrame;

Method to clear off the entire frame.


function iGetPhysicalScreenHeight: Integer;

functions to return the current physical screen dimensions.

Turn on the requested pixel.


function iGetPhysicalScreenWidth: Integer;


procedure LineTo(iX, iY: Integer);

Move to the requested coordinates.


procedure MoveTo(iX, iY: Integer);

Methods to move the pen position and draw lines.


procedure SetPenColor(clrNew: TColor);

Method to set the current pen color.

Set the default stylus color.


procedure SetPixel(iX, iY: Integer; clrPixel: TColor);

Method to set a single pixel.

Draw a line from the current stylus position to the requested spot.


Properties


Events


Variables


m_cnvOutput : TCanvas;


m_frmOutput : TForm;

Reference to form and canvas objects being used for output.