/***********************************************************************
    GADGET: "'ScreenGrabber Demo'" "4" AUTO TYP: "?"

    $DAT >>SGB-Demo.clssa<<   29 Sep 1992 - (C)1992 ProDAD Holger Burkarth

    ca. 500 kB
************************************************************************/

Options Results
Address clariSSA

  GetPref
  MerkePref=RESULT
  IF FIND(RESULT,"LaceCompensation")>0 THEN PV=1
  ELSE                                      PV=0

  BOOLRequest "'*** ScreenGrabber Demo ***''Dieses Demo zeigt einige Funktionen''von clariSSA.''Sind Sie bereit?'"
  IF RESULT="NO" | RC > 0 THEN exit

  rec="RECORD RECORD RECORD RECORD RECORD RECORD RECORD RECORD"

  RequestStatus OFF
  OpenAnim MASTER FORMAT 800 512 2 VIEWMODE HIRES LACE
  RequestStatus ON
  IF PV=1 THEN SetPref LaceCompensation ON

  SetPlayMode Close
  SetEditMode Close
  SetPref Close
  HelpRequester Close
  CloseColorRequester

  SetScreenGrabber REQ TRIGGER 1 PUBSCREEN "'SSA Screen'"

  IF VP=1 THEN DO
    MonitorWindow PROFILE INSIDE EDIT INSIDE
    SetMonitorWindow PROFILE 0 0 300 100 EDIT 240 0 0 0
    MonitorWindow PROFILE OUTSIDE EDIT OUTSIDE

    x=0
    DO UNTIL x>100
      SetScreenGrabber RECORD
      IF RC~=0 THEN exit
      MonitorWindow PROFILE INSIDE EDIT INSIDE
      SetMonitorWindow  EDIT 240-x x 0 0 PROFILE x x 300 100
      MonitorWindow EDIT OUTSIDE PROFILE OUTSIDE
      SetArea Full
      x=x+4
    END

    MonitorWindow PROFILE INSIDE EDIT INSIDE
    SetScreenGrabber RECORD RECORD
    IF RC~=0 THEN exit

    x=0
    DO UNTIL x>100
      ViewFrame UP
      SetScreenGrabber RECORD RECORD
      IF RC~=0 THEN exit
      x=x+12
    END

    x=0
    DO UNTIL x>100
      ViewFrame DOWN
      SetScreenGrabber RECORD RECORD
      IF RC~=0 THEN exit
      x=x+12
    END

    SetMonitorDisplay EDIT
    SetScreenGrabber rec
    IF RC~=0 THEN exit
    SetArea Full
  END


  SetMonitorDisplay FORMAT
  SetScreenGrabber rec
  IF RC~=0 THEN exit

  SetMonitorDisplay BiZet
  SetScreenGrabber rec
  IF RC~=0 THEN exit

  GadgetTitle View 1
  SetScreenGrabber rec
  IF RC~=0 THEN exit

  GadgetTitle View 2
  SetScreenGrabber rec
  IF RC~=0 THEN exit

  GadgetTitle View 3
  SetScreenGrabber rec
  IF RC~=0 THEN exit

  GadgetTitle View 4
  SetScreenGrabber rec
  IF RC~=0 THEN exit

  IF PV=1 THEN DO
    SetMonitorDisplay PROFILE
    ViewFrame 1
    SetArea Full
    x=0
    DO UNTIL x>100
      ViewFrame UP 5
      SetScreenGrabber RECORD
      IF RC~=0 THEN exit
      x=x+6
    END
  END

  SetPlayMode REQ
  SetScreenGrabber rec
  IF RC~=0 THEN exit
  SetEditMode REQ
  SetScreenGrabber rec
  IF RC~=0 THEN exit
  SetPref REQ
  SetScreenGrabber rec
  IF RC~=0 THEN exit
  HelpRequester REQ
  SetScreenGrabber rec
  IF RC~=0 THEN exit

  OpenColorRequester
  SetBasicScreen TO 0 160
  SetArea Full
  ViewFrame 1
  x=0
  DO UNTIL x>255
    ViewFrame UP 2
    SetColor 0 x x x
    SetScreenGrabber RECORD
    IF RC~=0 THEN exit
    x=x+8
  END

  x=0
  DO UNTIL x>255
    ViewFrame UP 2
    SetColor 0 255-x 127 x
    SetScreenGrabber RECORD
    IF RC~=0 THEN exit
    x=x+8
  END
  CloseColorRequester

  SetArea Full
  SetPlayMode FOREVER OFF MOUSESTART OFF SlowPlay OFF
  PlayAnim
  SetPlayMode SlowPlay ON
  PlayAnim

  SetWorkScreen FRONT
  x=0
  DO UNTIL x>50
    SetWorkScreen MOVE 0 8
    x=x+1
  END


  SetWorkScreen TO 0 0
  SetBasicScreen FRONT

  SetArea Full

exit