Class TScreenInfo (unit Infoscr)

Inherits from

TComponent

********************************************************************} {** InfoScr - provides information about the physical screen. **} {** ---------------------------------------------------------------- **} {** Written By - Warren F. Young. **} {** ---------------------------------------------------------------- **} {** History - Version 1.00 (28/Oct/1996). Initial release. **} {** - Version 1.40 (08/Nov/1996). Change to InfoDisk only**} {** ---------------------------------------------------------------- **} {** Copyright - ©copyright 1996 by Warren F. Young. **} {** Free to use and redistribute, but my name must **} {** appear somewhere in the source code. No warranty **} {** is given by the author, expressed or implied. **} {

Constructors



Functions

procedure DummySetInt(i:integer);


procedure DummySetLong(i:longint);

do nothing at all

procedure DummySetStr(s:string);

do nothing at all

function GetBitsPerColor: integer;


function GetColorPlanes: integer;


function GetHeight_mm: integer;


function GetInfo(param:integer): integer;

Protected declarations

do nothing at all


function GetNumColors: longint;


function GetPixelHeight: integer;


function GetPixelWidth: integer;


function GetResString : string;


function GetSizeString : string;


function GetWidth_mm: integer;


Properties

property ColorDepth : integer

Published declarations

property ColorPlanes : integer


property Colors : longint


property Resolution : string


property Res_Height : integer


property Res_Width : integer


property Size : string


property Size_Height : integer


property Size_Width : integer


Events

Variables


Constructors


Functions


procedure DummySetInt(i:integer);


procedure DummySetLong(i:longint);

do nothing at all


procedure DummySetStr(s:string);

do nothing at all


function GetBitsPerColor: integer;


function GetColorPlanes: integer;


function GetHeight_mm: integer;


function GetInfo(param:integer): integer;

Protected declarations

do nothing at all


function GetNumColors: longint;


function GetPixelHeight: integer;


function GetPixelWidth: integer;


function GetResString : string;


function GetSizeString : string;


function GetWidth_mm: integer;


Properties


property ColorDepth : integer

Published declarations


property ColorPlanes : integer


property Colors : longint


property Resolution : string


property Res_Height : integer


property Res_Width : integer


property Size : string


property Size_Height : integer


property Size_Width : integer


Events


Variables