Use cWebView.pkg
Use cWebPanel.pkg
Use cWebGroup.pkg
Use cWebHtmlBox.pkg

Use SyncFusionGridJsonData.wo
Use PdfViewerDemo.wo
Use LineChartDemo.wo
Use BarChartDemo.wo
Use PieChartDemo.wo
Use SyncFusionGridCustomerListManually.wo
Use SyncFusionGridCustomerList.wo
Use SyncFusionGridSalesPersonList.wo
Use CarouselDemo.wo
Use dbRichTextEditorDemo.wo
Use RichTextEditorDemo.wo
Use SyncFusionOrderSwedish.wo
Use ToastDemo.wo

Object oDashboard is a cWebView

    // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
    // Add a DDO Structure
    //
    // There is no need to synchronize a DD structure on the client so we do
    // not set the Server property or send ADDOStructure. We will simply use
    // DDO's to mine data and generate HTML for our cWebHTMLBox objects.
    // It is the HTML in these objects that is sent to the client each time
    // this page is shown.
    //
    // Also, it is important for the drill-down Navigation interface that we
    // do not set the Server property to some DDO because this will affect
    // constraints in the next view that we navigate to.
    // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

    Set piMaxWidth to 1024
    
    Set psCaption to "Dashboard"
    Set peViewType to vtUndefined
    
//    Set pbServerOnResizeWindow to True
    Set pbServerOnShow to True
    Set pbServerOnHide to True
    Set pbShowCaption to False
    Set psCSSClass to "Dashboard"
    
    Object oWebMainPanel is a cWebPanel
        Set piColumnCount to 24

        // - - - - - - - - - - - - - - -
        // Main Panel's Responsive Rules
        // - - - - - - - - - - - - - - -
        WebSetResponsive piColumnCount rmMobile to 1
        WebSetResponsive piColumnCount rmTabletPortrait to 16
    
        Object oTiles_grp is a cWebGroup
            Set piColumnSpan to 8
            Set pbShowBorder to False
            Set pbShowCaption to False
            Set piColumnCount to 12
            
            Set psCSSClass to "TilesGroup"
    
            Object oWelcomeTile is a cWebHtmlBox
                Set pbServerOnClick to True
                Set piColumnSpan to 6
                Set psCSSClass to "Tile Light"
                Set psHtml to '<div Class="WebCon_Sizer" data-ServerOnClick="openview"><div class="Tile_Title">SyncFusion Library</div><div Class="Tile_Subtitle">Project page</div></div>'
    
                Procedure OnClick String sId String sParam
                    Send NavigateToPage "https://projects.vdf-guidance.com/projects/syncfusion-library" btNewTab
                End_Procedure
                
            End_Object
    
            Object osfGridJSONTile is a cWebHtmlBox
                Set pbServerOnClick to True
                Set piColumnSpan to 6
                Set piColumnIndex to 6
                Set psCSSClass to "Tile LightAlternate"
                Set psHtml to '<div class="WebCon_Sizer" data-ServerOnClick="openview"><div Class="Tile_Title">JSON Grid Demo</div><div class="Tile_Subtitle"></div></div>'
    
                Procedure OnClick String sId String sParam
                    Register_Object oSyncFusionGridJsonData
                    Send NavigateForward to oSyncFusionGridJsonData Self
                End_Procedure
                
            End_Object
    
            Object osfGridManualCustomerTile is a cWebHtmlBox
                Set pbServerOnClick to True
                Set piColumnSpan to 6
                Set psCSSClass to "Tile Dark"
                Set psHtml to '<div class="WebCon_Sizer" data-ServerOnClick="openview"><div Class="Tile_Title">Customer List</div><div class="Tile_Subtitle">Manually loaded</div></div>'
    
                Procedure OnClick String sId String sParam
                    Register_Object oSyncFusionGridCustomerListManually
                    Send NavigateForward to oSyncFusionGridCustomerListManually Self
                End_Procedure
                
            End_Object
    
            Object osfGridSalesPersonTile is a cWebHtmlBox
                Set pbServerOnClick to True
                Set piColumnSpan to 6
                Set piColumnIndex to 6
                Set psCSSClass to "Tile DarkAlternate"
                Set psHtml to '<div class="WebCon_Sizer" data-ServerOnClick="openview"><div Class="Tile_Title">Sales Person List</div><div class="Tile_Subtitle">db enabled</div></div>'
            
                Procedure OnClick String sId String sParam
                    Register_Object oSyncFusionGridSalesPersonList
                    Send NavigateForward to oSyncFusionGridSalesPersonList Self
                End_Procedure
                
            End_Object
    
            Object osfGridCustomerTile is a cWebHtmlBox
                Set pbServerOnClick to True
                Set piColumnSpan to 6
                Set psCSSClass to "Tile Dark"
                Set psHtml to '<div class="WebCon_Sizer" data-ServerOnClick="openview"><div Class="Tile_Title">Customer List</div><div class="Tile_Subtitle">db enabled</div></div>'
    
                Procedure OnClick String sId String sParam
                    Register_Object oSyncFusionGridCustomerList
                    Send NavigateForward to oSyncFusionGridCustomerList Self
                End_Procedure
                
            End_Object
    
            Object oOrderTile is a cWebHtmlBox
                Set pbServerOnClick to True
                Set piColumnSpan to 6
                Set piColumnIndex to 6
                Set psCSSClass to "Tile DarkAlternate"
                Set psHtml to '<div class="WebCon_Sizer" data-ServerOnClick="openview"><div Class="Tile_Title">Order WebList</div><div class="Tile_Subtitle">db enabled</div></div>'
            
                Procedure OnClick String sId String sParam
                    Register_Object oSyncFusionOrderList
                    Send NavigateForward to oSyncFusionOrderList Self
                End_Procedure
            End_Object
    
            Object oOrderSwedishTile is a cWebHtmlBox
                Set pbServerOnClick to True
                Set piColumnSpan to 6
                Set psCSSClass to "Tile Dark"
                Set psHtml to '<div class="WebCon_Sizer" data-ServerOnClick="openview"><div Class="Tile_Title">Order WebList</div><div class="Tile_Subtitle">In Swedish</div></div>'
    
                Procedure OnClick String sId String sParam
                    Register_Object oSyncFusionOrderSwedish
                    Send NavigateForward to oSyncFusionOrderSwedish Self
                End_Procedure
                
            End_Object
    
            Object osfPdfViewerTile is a cWebHtmlBox
                Set pbServerOnClick to True
                Set piColumnSpan to 6
                Set piColumnIndex to 6
                Set psCSSClass to "Tile DarkAlternate"
                Set psHtml to '<div class="WebCon_Sizer" data-ServerOnClick="openview"><div Class="Tile_Title">SyncFusion WebPdfViewer</div><div class="Tile_Subtitle">csfWebPdfViewer</div></div>'
            
                Procedure OnClick String sId String sParam
                    Register_Object oPdfViewerDemo
                    Send NavigateForward to oPdfViewerDemo Self
                End_Procedure
            End_Object
    
            Object osfLineChartTile is a cWebHtmlBox
                Set pbServerOnClick to True
                Set piColumnSpan to 6
                Set psCSSClass to "Tile Dark"
                Set psHtml to '<div class="WebCon_Sizer" data-ServerOnClick="openview"><div Class="Tile_Title">SyncFusion Line Chart</div><div class="Tile_Subtitle">csfWebChart</div></div>'
    
                Procedure OnClick String sId String sParam
                    Register_Object oLineChartDemo

                    Send NavigateForward to oLineChartDemo Self
                End_Procedure
                
            End_Object
    
            Object osfBarChartTile is a cWebHtmlBox
                Set pbServerOnClick to True
                Set piColumnSpan to 6
                Set piColumnIndex to 6
                Set psCSSClass to "Tile DarkAlternate"
                Set psHtml to '<div class="WebCon_Sizer" data-ServerOnClick="openview"><div Class="Tile_Title">SyncFusion Bar Chart</div><div class="Tile_Subtitle">csfWebChart</div></div>'
            
                Procedure OnClick String sId String sParam
                    Register_Object oBarChartDemo

                    Send NavigateForward to oBarChartDemo Self
                End_Procedure
            End_Object
    
            Object osfPieChartTile is a cWebHtmlBox
                Set pbServerOnClick to True
                Set piColumnSpan to 6
                Set psCSSClass to "Tile Dark"
                Set psHtml to '<div class="WebCon_Sizer" data-ServerOnClick="openview"><div Class="Tile_Title">SyncFusion Pie Chart</div><div class="Tile_Subtitle">csfWebChart</div></div>'
    
                Procedure OnClick String sId String sParam
                    Register_Object oPieChartDemo

                    Send NavigateForward to oPieChartDemo Self
                End_Procedure
                
            End_Object
    
            Object osfCarouselTile is a cWebHtmlBox
                Set pbServerOnClick to True
                Set piColumnSpan to 6
                Set piColumnIndex to 6
                Set psCSSClass to "Tile DarkAlternate"
                Set psHtml to '<div class="WebCon_Sizer" data-ServerOnClick="openview"><div Class="Tile_Title">Carousel</div><div class="Tile_Subtitle">csfWebCarousel</div></div>'
            
                Procedure OnClick String sId String sParam
                    Register_Object oCarouselDemo
                    Send NavigateForward to oCarouselDemo Self
                End_Procedure
            End_Object
    
            Object osfImageEditorTile is a cWebHtmlBox
                Set pbServerOnClick to True
                Set piColumnSpan to 6
                Set psCSSClass to "Tile Dark"
                Set psHtml to '<div class="WebCon_Sizer" data-ServerOnClick="openview"><div Class="Tile_Title"></div><div class="Tile_Subtitle"></div></div>'
    
                Procedure OnClick String sId String sParam
                    //Register_Object oImageEditorDemo

                    //Send NavigateForward to oImageEditorDemo Self
                End_Procedure
                
            End_Object
    
            Object oDAWWebListCustomer6 is a cWebHtmlBox
                Set pbServerOnClick to True
                Set piColumnSpan to 6
                Set piColumnIndex to 6
                Set psCSSClass to "Tile DarkAlternate"
                Set psHtml to '<div class="WebCon_Sizer" data-ServerOnClick="openview"><div Class="Tile_Title">DAW WebList</div><div class="Tile_Subtitle">testing &amp; debugging (not part of demo)</div></div>'
            
                Procedure OnClick String sId String sParam
                    Register_Object oDAWWebListCustomerList
                    Send NavigateForward to oDAWWebListCustomerList Self
                End_Procedure
            End_Object
    
            Object osfRichTextEditorDemoTile is a cWebHtmlBox
                Set pbServerOnClick to True
                Set piColumnSpan to 6
                Set psCSSClass to "Tile Dark"
                Set psHtml to '<div class="WebCon_Sizer" data-ServerOnClick="openview"><div Class="Tile_Title">Rich Text Editor</div><div class="Tile_Subtitle"></div></div>'
    
                Procedure OnClick String sId String sParam
                    Register_Object oRichTextEditorDemo

                    Send NavigateForward to oRichTextEditorDemo Self
                End_Procedure
                
            End_Object
    
            Object osfdbRichTextEditorDemoTile is a cWebHtmlBox
                Set pbServerOnClick to True
                Set piColumnSpan to 6
                Set piColumnIndex to 6
                Set psCSSClass to "Tile DarkAlternate"
                Set psHtml to '<div class="WebCon_Sizer" data-ServerOnClick="openview"><div Class="Tile_Title">db Rich Text Editor</div><div class="Tile_Subtitle"></div></div>'
            
                Procedure OnClick String sId String sParam
                    Register_Object odbRichTextEditorDemo

                    Send NavigateForward to odbRichTextEditorDemo Self
                End_Procedure
            End_Object
    
            Object osfToastDemoTile is a cWebHtmlBox
                Set pbServerOnClick to True
                Set piColumnSpan to 6
                Set psCSSClass to "Tile Dark"
                Set psHtml to '<div class="WebCon_Sizer" data-ServerOnClick="openview"><div Class="Tile_Title">Web Toast</div><div class="Tile_Subtitle"></div></div>'
    
                Procedure OnClick String sId String sParam
                    Register_Object oToastDemo

                    Send NavigateForward to oToastDemo Self
                End_Procedure
                
            End_Object
    
            Object osfEmptyDemoTile is a cWebHtmlBox
                Set pbServerOnClick to True
                Set piColumnSpan to 6
                Set piColumnIndex to 6
                Set psCSSClass to "Tile DarkAlternate"
                Set psHtml to '<div class="WebCon_Sizer" data-ServerOnClick="openview"><div Class="Tile_Title">..</div><div class="Tile_Subtitle"></div></div>'
            
                Procedure OnClick String sId String sParam
                    //Register_Object odbRichTextEditorDemo

                    //Send NavigateForward to odbRichTextEditorDemo Self
                End_Procedure
            End_Object

        End_Object
    
    End_Object
    
    Procedure OnShow
        // Each time this view is shown we will update the appropriate information.
        Register_Object oFindToolbar
        Register_Object oFileToolbar
        WebSet pbRender of (oFindToolbar(oCommandBar(Self))) to False
        WebSet pbRender of (oFileToolbar(oCommandBar(Self))) to False
    End_Procedure
    
    Procedure OnHide
        Register_Object oFindToolbar
        Register_Object oFileToolbar
        WebSet pbRender of (oFindToolbar(oCommandBar(Self))) to True
        WebSet pbRender of (oFileToolbar(oCommandBar(Self))) to True
    End_Procedure

End_Object