Class TScreen (unit Uscreen)

Inherits from

TObject

Constructors


constructor create(Backgroundres,Midires:string; Midirepeat:boolean;Duration:Longint);

TScreen


Functions

destructor destroy;

function TScreen.

procedure Close;

this will place a wm_paint message in the queue

procedure Open(hdc:Thandle);

screen duration in ms, if O wait for key pressed

procedure Redrawscreen(hdc:Thandle);


Properties

property BitmapWindow : Hbitmap


property BitmapWindowBgd : Hbitmap


property Duration : longint


property GraphMng : TgraphMng


property Midi : Tmidi


property MidiRepeat : boolean


Events

Variables

FBackgroundRes : String;


FBitmapWindow : hbitmap;

if true midi files will repeat until sceen ends

FBitmapWindowBgd : hbitmap;


FDuration : longint;


FGraphMng : TGraphMng;


Fmidi : Tmidi;


Fmidirepeat : boolean;


FMidiRes : string;



Constructors


constructor create(Backgroundres,Midires:string; Midirepeat:boolean;Duration:Longint);

TScreen


Functions


destructor destroy;

function TScreen.GetMidiRepeat:boolean; begin if Fmidi<>nil then Result:=Fmidi.autorepeat; end;


procedure Close;

this will place a wm_paint message in the queue


procedure Open(hdc:Thandle);

screen duration in ms, if O wait for key pressed


procedure Redrawscreen(hdc:Thandle);


Properties


property BitmapWindow : Hbitmap


property BitmapWindowBgd : Hbitmap


property Duration : longint


property GraphMng : TgraphMng


property Midi : Tmidi


property MidiRepeat : boolean


Events


Variables


FBackgroundRes : String;


FBitmapWindow : hbitmap;

if true midi files will repeat until sceen ends


FBitmapWindowBgd : hbitmap;


FDuration : longint;


FGraphMng : TGraphMng;


Fmidi : Tmidi;


Fmidirepeat : boolean;


FMidiRes : string;