| Class TScreen (unit Uscreen) |
TObject
| Constructors |
constructor create(Backgroundres,Midires:string; Midirepeat:boolean;Duration:Longint);| Functions |
destructor destroy;
procedure Close;
procedure Open(hdc:Thandle);
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;
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;