| Class TCanvasVideo (unit CanvsVid) |
****** * * 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);| Functions |
procedure ClearFrame;
function iGetPhysicalScreenHeight: Integer;
function iGetPhysicalScreenWidth: Integer;
procedure LineTo(iX, iY: Integer);
procedure MoveTo(iX, iY: Integer);
procedure SetPenColor(clrNew: TColor);
procedure SetPixel(iX, iY: Integer; clrPixel: TColor);| Properties |
| Events |
| Variables |
m_cnvOutput : TCanvas;
m_frmOutput : TForm;| 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.