Use cWebView.pkg
Use cWebPanel.pkg
Use cWebForm.pkg 
Use csfWebPdfViewer.pkg
Use cWebCombo.pkg

Object oPdfViewerDemo is a cWebView
    //Set piWidth to 700
    Set psCaption to "PdfViewer Demo"

    // Your DDO structure will go here

    Object oWebMainPanel is a cWebPanel
      Set piColumnCount to 12

      Object oSelectPdfCombo is a cWebCombo
          Set piColumnSpan to 0
          Set psLabel to "Select PDF"
          Set pbServerOnChange to True

          Procedure OnFill
            Forward Send OnFill
            Send AddComboItem "DEBUG" "DfSplat-Zoom-UK-20200709.pdf"
            Send AddComboItem "CLOUD" "DataFlex Licensing in Cloud and Virtual Machine Environments.pdf"
            Send AddComboItem "SF"    "SyncFusion-Zoom-UK-20201022.pdf"
            Send AddComboItem "SEC"   "Security of DataFlex Web Framework Applications.pdf"
            Send AddComboItem "PATCH" "Security Patch - Web Property Cross-Session Contamination.pdf"
            Send AddComboItem "NONE"  "None"
          End_Procedure


          Procedure OnChange String sNewValue String sOldValue
            Forward Send OnChange sNewValue sOldValue
            If (sOldValue<>"" and sNewValue<>sOldValue) Begin
              //Send ShowInfoBox ("New combo value is: " + sNewValue+" old: "+sOldValue)
              Case Begin
                Case (sNewValue="DEBUG")
                  WebSet psDocumentPath of oWebPdfViewer to "DfSplat-Zoom-UK-20200709.pdf"
                  Case Break
                Case (sNewValue="CLOUD")
                  WebSet psDocumentPath of oWebPdfViewer to "DataFlex Licensing in Cloud and Virtual Machine Environments.pdf"
                  Case Break
                Case (sNewValue="SF")
                  WebSet psDocumentPath of oWebPdfViewer to "SyncFusion-Zoom-UK-20201022.pdf"
                  Case Break
                Case (sNewValue="SEC")
                  WebSet psDocumentPath of oWebPdfViewer to "Security of DataFlex Web Framework Applications.pdf"
                  Case Break
                Case (sNewValue="PATCH")
                  WebSet psDocumentPath of oWebPdfViewer to "Security Patch - Web Property Cross-Session Contamination.pdf"
                  Case Break
                Case Else
                  Send Clear of oWebPdfViewer
              Case End
            End
          End_Procedure

      End_Object

      Object oWebPdfViewer is a csfWebPdfViewer
        Set piColumnSpan to 12
        Set psDocumentPath to "DfSplat-Zoom-UK-20200709.pdf"
//        Set psServiceUrl to "https://your.pdfserver.url/sfWebPdfViewer/api/pdfviewer"
      End_Object
        
        // place controls here
        
    End_Object 

End_Object