Class TScreen (unit Uscreen) |
Inherits from
TObject
constructor create(Backgroundres,Midires:string; Midirepeat:boolean;Duration:Longint);
- TScreen
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);
property BitmapWindow : Hbitmap
property BitmapWindowBgd : Hbitmap
property Duration : longint
property GraphMng : TgraphMng
property Midi : Tmidi
property MidiRepeat : boolean
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;
constructor create(Backgroundres,Midires:string; Midirepeat:boolean;Duration:Longint);
TScreen
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);
property BitmapWindow : Hbitmap
property BitmapWindowBgd : Hbitmap
property Duration : longint
property GraphMng : TgraphMng
property Midi : Tmidi
property MidiRepeat : boolean
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;