Results 1 to 3 of 3

Thread: Bottom WebPanel

Threaded View

Previous Post Previous Post   Next Post Next Post
  1. #3
    Join Date
    Jul 2009
    Location
    Northern Ireland
    Posts
    190

    Default Re: Bottom WebPanel

    We have something like this in our app - OK/Cancel Button in at the bottom of the screen.

    We have a web panel in the WebApp.src just below the header panel and turn it on and off for the view that need it.

    i.e.

    Code:
        Object oHeaderPanel is a cWebPanel
            Set peRegion to prTop
            Set psCSSClass to "HeaderPanel"
    
            ....
        End_object
    
    
        Object oFooterPanel is a cWebPanel
            Set peRegion to prBottom
            Set psCSSClass to "HeaderPanel FooterPanel"
            Set pbRender to False
           
            Object oActionPanel is a cWebPanel
                Set piColumnCount to 48
               
                Object oFooterBackButton is a cWebButton
                    Set psCSSClass to "WebBack_Icon"
                    Set piColumnIndex to 12
                    Set piColumnSpan to 2
                    Set psCaption to ""
    
                    Procedure OnClick
                        Handle hoTop
                        
                        Get TopViewHandle of oViewStack to hoTop
                        If (hoTop > 0) Begin
                            Send NavigateCancel of hoTop 
                        End
                    End_Procedure
                 End_Object
                
                 Object oFooterButton1 is a cWebButton
                    Set piColumnIndex to 14
                    Set piColumnSpan to 11
                    Set psCaption to ""
                    
                    Procedure OnClick
                        Handle hoTop
                        
                        Get TopViewHandle of oViewStack to hoTop
                        If (hoTop > 0);
                            Begin
                                Send FooterButtonAction of hoTop 1
                            End
                    End_Procedure
                 End_Object
                 
                Object oFooterButton2 is a cWebButton
                    Set piColumnIndex to 25
                    Set piColumnSpan to 11
                    Set psCaption to ""
                    
                    Procedure OnClick
                        Handle hoTop
                        
                        Get TopViewHandle of oViewStack to hoTop
                        If (hoTop > 0);
                            Begin
                                Send FooterButtonAction of hoTop 2
                            End
                    End_Procedure
                End_Object
            End_Object
        End_Object
    
        Procedure HideFooterPanel Boolean bHidePanel
            WebSet pbRender of oFooterPanel to (not(bHidePanel))        
        End_Procedure
    If I remember correctly we had to do it this way to get it to be on top of the other view elements.

    The view also need to understand the FooterButtonAction procedure

    There is probably a better way to do this with CSS, but that is beyond my abilities at this point
    Last edited by StephenElliott; 3-Jun-2021 at 09:38 AM.
    Stephen Elliott

    What if the Hokie-Cokie really *is* what it's all about?

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •