/***********************************************************************
 GADGET: "'Einzelbilder laden'" "7" AUTO TYP: "?"

 $DAT >>EinzelbilderA.clssa<<   19 Oct 1992 - (C)1992 ProDAD Holger Burkarth
************************************************************************/

Options RESULTS
Address clariSSA

  FailAt 11
  AltFail=RESULT

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

  DO FOREVER
    Art=1
    GetAnimInfo Master
    IF RESULT~="" THEN DO
      MSRequester "TITLE '*** Einzelbilder laden ***''Animationsregister MASTER ist bereits belegt.'",
                  "PTEXT 'Einzelbilder an die MASTER anhängen''MASTER neu anlegen'"
      IF RC~=0 THEN LEAVE
      Art=0
      IF RESULT=2 THEN DO
        Art=1
        CloseAnim Master
        IF RC~=0 THEN LEAVE
      END
    END

    GetDirectory "REQ TITLE '*** Einzelbilder laden (erstes Bild)***' FULL CUT FILES"
    Dir=RESULT
    IF RC~=0 | Dir="0" THEN LEAVE

    PARSE VAR Datei pos Datei
    PARSE VAR Dir 'FILE "' name '"' .
    GetFileInfo "NAME" name
    IF RC~=0 THEN LEAVE
    PARSE VAR RESULT . "FORMAT" ex ey et "VIEWMODE" eViewMode "FRAMES" .

    INTRequest "'Geben Sie die Anzahl' 'der vorhandenen Bilder ein.' 1"
    Anz=RESULT
    IF RC~=0 | Anz<2 THEN LEAVE


    IF Art=1 THEN DO
      LaArt=3
      IF FIND(eViewMode,"LACE")<1 THEN DO
        IF PV=1 THEN DO
          MSRequester "TITLE '*** Einzelbilder laden ***''Einzelbilder beinhalten kein LACE => NICHT ABSPIELBAR''FORMAT: "ex ey et eViewMode "'",
                      "PTEXT 'Umwandlung in LACE + Korrektur (Verhältnis)''Umwandlung in LACE''normal einladen'"
          IF RC~=0 THEN LEAVE
          LaArt=RESULT
          IF      LaArt=1 THEN SetPref LaceCompensation ON
          ELSE IF LaArt=2 THEN SetPref LaceCompensation OFF
        END; ELSE DO
          MSRequester "TITLE '*** Einzelbilder laden ***''Einzelbilder beinhalten kein LACE => NICHT ABSPIELBAR''FORMAT: "ex ey et eViewMode "'",
                      "PTEXT 'Umwandlung in LACE + Korrektur (Verhältnis)''normal einladen'"
          IF RC~=0 THEN LEAVE
          LaArt=RESULT
          IF LaArt=2 THEN LaArt=3
        END
      END

      IF LaArt<3 THEN DO
        OpenAnim MASTER "FORMAT" ex ey*2 et "VIEWMODE" eViewMode LACE
        IF RC~=0 THEN LEAVE
      END

    END
    IF Art=0 THEN DO
      IF PV=1 THEN DO
        GetAnimInfo Master
        PARSE VAR RESULT . "FORMAT" mx my mt "VIEWMODE" mViewMode "FRAMES" .
        IF FIND(mViewMode,"LACE")>0 THEN DO
          IF FIND(eViewMode,"LACE")<1 THEN DO
            MSRequester "TITLE '*** Einzelbilder laden ***''MASTER-Anim beinhaltet LACE,''Einzelbilder beinhalten kein LACE'' '",
                        "'>>Bildverhältnis wird verändert<<'' '",
                        "'MASTER FORMAT: "mx my mt mViewMode "'",
                        "'Bild   FORMAT: "ex ey et eViewMode "'",
                        "PTEXT 'Umwandlung in LACE + Korrektur''Umwandlung in LACE'"
            IF RC~=0 THEN LEAVE
            IF      RESULT=1 THEN SetPref LaceCompensation ON
            ELSE IF RESULT=2 THEN SetPref LaceCompensation OFF
          END
        END
      END
    END

    LoadAnim Master "NAME" name "FRAMES" Anz

    LEAVE
  END

  SelectAnim Master
  SetArea FULL

  FailAt AltFail
exit





TestReg: procedure
DO
  ARG Reg

  GetAnimInfo Reg
  IF RESULT~="" THEN RETURN(1)

  RETURN (0)
END