func init()
  lng.include('LED')
  
  include("init_win_ctrl")
  
  fvar(old)
  old = block.select(BLK_BODY)
  //---------------------- CREATE ----------------------------------------------
  lng.decl_class_var(led, 'TLED')
  println(led + ' := TLED.Create;')

  //---------------------- PROPERTYS -------------------------------------------
  println(led + '._prop_ColorOn := ', ColorOn, ';')
  println(led + '._prop_ColorOff := ', ColorOff, ';')
  println(led + '._prop_ColorBlick := ', ColorBlick, ';')
  if(isndef(Shape))
    println(led + '._prop_Shape := lsRectangle;')
  end
  if(isdef(Blick))
    println(led + '._prop_Blick := true;')
  end
  if(isndef(Value))
    println(led + '._prop_Value := true;')
  end
  println(ctrl, ' := ' + led + '.Init(' + PARENT_CTRL + ');')
  include("property_win_ctrl")

  //---------------------- EVENTS ----------------------------------------------
  // (none)
  
  block.select(BLK_FREE)
  println(led + '.Destroy;')
  block.select(old)
end

func doChangeValue(_data)
  println(led + '.ChangeValue(', e_int(_data), ' <> 0);')
end

func doOff(_data)
  println(led + '.ChangeValue(false);')
end

func doOn(_data)
  println(led + '.ChangeValue(true);')
end

func Value()
  return('integer(' + led + '.Value)')
end

include("methods_win_ctrl")