func init()
  include("init_win_ctrl")
  
  fvar(old)
  old = block.select(BLK_BODY)
  //---------------------- CREATE ----------------------------------------------
  fvar(fl)
  if(isndef(Kind))
    fl = 'pboVertical'
  end
  if(isdef(Smooth))
    fl &= 'pboSmooth' 
  end
  println(ctrl, ' := NewProgressbarEx(' + PARENT_CTRL + ', [', fl ? _arr.join(fl, ',') : '', ']);')

  //---------------------- PROPERTYS -------------------------------------------
  include("property_win_ctrl")
  println(ctrl + '.MaxProgress := ', Max, ';')
//  println(ctrl + '.ProgressColor := ', ProgressColor, ';')
  
  //---------------------- EVENTS ----------------------------------------------

  block.select(old)
end

func doPosition(_data)
  println(ctrl + '.Progress := ', e_int(_data), ';')
end

func doMax(_data)
  println(ctrl + '.MaxProgress := ', e_int(_data), ';')
end

func Position()
  return(ctrl + '.Progress')
end

include("methods_win_ctrl")