// Use WebBrowser.nui // oWebBrowserInfo object
Use WebSessionVariables.nui // Web session variables for ASP pages
Use WebForm.nui // cWebForm class

enumeration_list
  define WBI_USER_AGENT      // "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)"    (IE6)
  define WBI_BROWSER_ID      // 0:"MSIE" 1:"Mozilla" 2:"FireFox" 3:"Opera"
  define WBI_BROWSER_NAME    // "MSIE" "Mozilla" "FireFox" "Opera"
  define WBI_BROWSER_VER     //
  define WBI_PLATFORM        // "Win32
  define WBI_LANGUAGE        // "da"

  define WBI_OVERFLOW_XY     // True/False Can handle overflow in each dimension independantly?


  define WBI_COOKIES         // true
  define WBI_GRAPHICS        // true
  define WBI_W3C_DOM         // true
  define WBI_SCR_MAX_WIDTH   // 1600
  define WBI_SCR_MAX_HEIGHT  // 1200
  define WBI_SCR_CUR_WIDTH   // 1137
  define WBI_SCR_CUR_HEIGHT  // 1629
  define WBI_SCR_COLOR_RES   // 32
end_enumeration_list

enumeration_list
  define WB_IE       // <-- Make the most likely browser the first (and thereby "default")
  define WB_MOZ
  define WB_FIREFOX
  define WB_OPERA
end_enumeration_list


object oWebBrowserInfo is a WebSessionVariables
  set psIdent to "browser"

            procedure CalculateCanHandles
              integer liBrowserId
              get value item WBI_BROWSER_ID to liBrowserId
              if (liBrowserId=WB_IE) begin
                set value item WBI_OVERFLOW_XY to 1
              end
              if (liBrowserId=WB_MOZ) begin
                set value item WBI_OVERFLOW_XY to 0
              end
              if (liBrowserId=WB_FIREFOX) begin
                set value item WBI_OVERFLOW_XY to 0
              end
              if (liBrowserId=WB_OPERA) begin
                set value item WBI_OVERFLOW_XY to 0
              end
            end_procedure

  // Possible UserAgents
  //Firefox 1.01 XP: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7.6) Gecko/20050225 Firefox/1.0.1
  //Opera   7.54 XP: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1) Opera 7.54  [en]
  //Mozilla 1.7  XP: Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.7) Gecko/20040608
  //IE      6.0  XP: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
  procedure DecodeUserAgent string lsUserAgent
    integer liPos
    string lsValue
    get value item WBI_USER_AGENT to lsValue
    if (lsValue="") begin
      set value item WBI_USER_AGENT to lsUserAgent
      move (lowercase(lsUserAgent)) to lsUserAgent
      move (pos("firefox",lsUserAgent)) to liPos
      if liPos begin
        set value item WBI_BROWSER_NAME to "FireFox"
        set value item WBI_BROWSER_ID to WB_FIREFOX
      end
      else begin
        move (pos("opera",lsUserAgent)) to liPos
        if liPos begin
          set value item WBI_BROWSER_NAME to "Opera"
          set value item WBI_BROWSER_ID to WB_OPERA
        end
        else begin
          move (pos("gecko",lsUserAgent)) to liPos
          if liPos begin
            set value item WBI_BROWSER_NAME to "Mozilla"
            set value item WBI_BROWSER_ID to WB_MOZ
          end
          else begin
            move (pos("MSIE",lsUserAgent)) to liPos
            if liPos begin
              set value item WBI_BROWSER_NAME to "MSIE"
              set value item WBI_BROWSER_ID to WB_IE
            end
          end
        end
      end
      send CalculateCanHandles
    end
  end_procedure
end_object // oWebBrowserInfo

//  object oWebBrowserInfoForm is a WebForm
//    set pbDDaware to FALSE
//    set psFormName to "BrowserInfoForm"
//    set pbMessageLine to FALSE
//    set piEncapWidth to 0 // So it doesn't get set.
//    set piEncapHorAdjust to -1
//    object oFieldSet is a WebFormFieldSet
//      set psComponentLabel to "fs1"
//      set pbSuppressFieldsetElement to FALSE
//      object oUser_Agent is a WebInput
//        set value item WFIP_NAME to "User_Agent"
//        set value item WFIP_INPUT_TYPE to WFIT_SIMPLE
//      end_object
//      object oApp_Name       is a WebInput
//        set value item WFIP_NAME to "App_Name"
//        set value item WFIP_INPUT_TYPE to WFIT_SIMPLE
//      end_object
//      object oPlatform       is a WebInput
//        set value item WFIP_NAME to "Platform"
//        set value item WFIP_INPUT_TYPE to WFIT_SIMPLE
//      end_object
//      object oLanguage       is a WebInput
//        set value item WFIP_NAME to "Language"
//        set value item WFIP_INPUT_TYPE to WFIT_SIMPLE
//      end_object
//      object oCookies        is a WebInput
//        set value item WFIP_NAME to "Cookies"
//        set value item WFIP_INPUT_TYPE to WFIT_SIMPLE
//      end_object
//      object oGraphics       is a WebInput
//        set value item WFIP_NAME to "Graphics"
//        set value item WFIP_INPUT_TYPE to WFIT_SIMPLE
//      end_object
//      object oW3c_Dom        is a WebInput
//        set value item WFIP_NAME to "W3c_Dom"
//        set value item WFIP_INPUT_TYPE to WFIT_SIMPLE
//      end_object
//      object oScr_Max_Width  is a WebInput
//        set value item WFIP_NAME to "Scr_Max_Width "
//        set value item WFIP_INPUT_TYPE to WFIT_SIMPLE
//      end_object
//      object oScr_Max_Height is a WebInput
//        set value item WFIP_NAME to "Scr_Max_Height"
//        set value item WFIP_INPUT_TYPE to WFIT_SIMPLE
//      end_object
//      object oScr_Cur_Width  is a WebInput
//        set value item WFIP_NAME to "Scr_Cur_Width "
//        set value item WFIP_INPUT_TYPE to WFIT_SIMPLE
//      end_object
//      object oScr_Cur_Height is a WebInput
//        set value item WFIP_NAME to "Scr_Cur_Height"
//        set value item WFIP_INPUT_TYPE to WFIT_SIMPLE
//      end_object
//      object oScr_Color_Res  is a WebInput
//        set value item WFIP_NAME to "Scr_Color_Res"
//        set value item WFIP_INPUT_TYPE to WFIT_SIMPLE
//      end_object
//      object oSubmitBtn is a WebFormButton
//        set psLabel to "Adapt to browser"
//        set psDetectionValue to "search"
//        procedure OnClick
//        end_procedure
//      end_object
//    end_object
//    set property_value of (phCssStyler(self)) CSS_FORM_LABELCELL CSSPS_DIMEN_WIDTH to "0px"
//    set property_value of (phCssStyler(self)) CSS_FORM_FORMTABLE CSSPS_DIMEN_WIDTH to "auto"
//
//    send Auto_Layout
//   nd_object //
//
//  end_object