procedure TForm1.DGCScreen1Initialize(Sender: TObject); begin // set Introlib filename and path to the applications path DGCIntroLib1.Filename:=Extractfilepath(Application.ExeName)+'\intdem.crl'; // Play The intro Screens DGCIntroLib1.Play; |
// Draw something on the background screen DrawFrame; // Make it appear using some effect // Parameters (DGCSurface,EffectType,Transition time(secs),HoldTime // note for effect type you need to include BmpUtil in the uses clause DGCIntroLib1.AppearSurface(DGCScreen1.Back,SlideRight,5,0); |