fconfig.class

Gambas is a graphical development environment based on a Basic interpreter, like Visual Basic. It us

' Gambas class file
PUBLIC SUB ChkProxy_Click()


  IF ChkProxy.Value=TRUE THEN
    TxtProxy.Enabled=TRUE
    LblAuth.Enabled=TRUE
    LblProxyUser.Enabled=TRUE
    TxtProxyUser.Enabled=TRUE
    LblProxyPassword.Enabled=TRUE
    TxtProxyPassword.Enabled=TRUE
    CmbProxyAuth.Enabled=TRUE
  ELSE
    TxtProxy.Enabled=FALSE
    LblAuth.Enabled=FALSE
    LblProxyUser.Enabled=FALSE
    TxtProxyUser.Enabled=FALSE
    LblProxyPassword.Enabled=FALSE
    TxtProxyPassword.Enabled=FALSE
    CmbProxyAuth.Enabled=FALSE
  END IF

END


PUBLIC SUB Form_Open()

  
  TxtCookies.Text=ClsParams.CookiesFile
  ChkUpdate.Value=ClsParams.UpdateCookies
  
  ChkProxy.Value=ClsParams.UseProxy
  TxtProxy.Text=ClsParams.ProxyHost
  TxtProxyUser.Text=ClsParams.ProxyUser
  TxtProxyPassword.Text=ClsParams.ProxyPwd
 
 
  SELECT CASE ClsParams.ProxyAuth
    CASE Net.AuthBasic
      CmbProxyAuth.Index=0
    CASE Net.AuthNTLM
      CmbProxyAuth.Index=1
  END SELECT
  

END

PUBLIC SUB Form_Close()

  ClsParams.CookiesFile=TxtCookies.Text
  ClsParams.UpdateCookies=ChkUpdate.Value
  
  ClsParams.UseProxy=ChkProxy.Value
  ClsParams.ProxyHost=TxtProxy.Text
  ClsParams.ProxyUser=TxtProxyUser.Text 
  ClsParams.ProxyPwd=TxtProxyPassword.Text
   
  IF ClsParams.ProxyUser="" AND ClsParams.ProxyPwd="" THEN
    ClsParams.ProxyAuth=Net.AuthNone
  ELSE
    SELECT CASE CmbProxyAuth.Index
        CASE 0
          ClsParams.ProxyAuth=Net.AuthBasic
        CASE 1
          ClsParams.ProxyAuth=Net.AuthNTLM
    END SELECT
  END IF
END