anchor.diff:      property ShowHtml: Boolean read _GetShowHtml write _SetShowHtml;
     end;
   
  +  CButtonUIHelper = class helper for CButtonUI
  +  private
  +    function _GetNormalImage: string;
  +    procedure _SetNormalImage(const Value: string);
  +    function _GetHotImage: string;
  +    procedure _SetHotImage(const Value: string);
  +    function _GetPushedImage: string;
  +    procedure _SetPushedImage(const Value: string);
  +    function _GetFocusedImage: string;
  +    procedure _SetFocusedImage(const Value: string);
  +    function _GetDisabledImage: string;
  +    procedure _SetDisabledImage(const Value: string);
  +    function _GetForeImage: string;
  +    procedure _SetForeImage(const Value: string);
  +    function _GetHotForeImage: string;
  +    procedure _SetHotForeImage(const Value: string);
  +    function _GetHotBkColor: DWORD;
  +    procedure _SetHotBkColor(const Value: DWORD);
  +    function _GetHotTextColor: DWORD;
  +    procedure _SetHotTextColor(const Value: DWORD);
  +    function _GetPushedTextColor: DWORD;
  +    procedure _SetPushedTextColor(const Value: DWORD);
  +    function _GetFocusedTextColor: DWORD;
  +    procedure _SetFocusedTextColor(const Value: DWORD);
  +  public
  +    property NormalImage: string read _GetNormalImage write _SetNormalImage;
  +    property HotImage: string read _GetHotImage write _SetHotImage;
  +    property PushedImage: string read _GetPushedImage write _SetPushedImage;
  +    property FocusedImage: string read _GetFocusedImage write _SetFocusedImage;
  +    property DisabledImage: string read _GetDisabledImage write _SetDisabledImage;
  +    property ForeImage: string read _GetForeImage write _SetForeImage;
  +    property HotForeImage: string read _GetHotForeImage write _SetHotForeImage;
  +    property HotBkColor: DWORD read _GetHotBkColor write _SetHotBkColor;
  +    property HotTextColor: DWORD read _GetHotTextColor write _SetHotTextColor;
  +    property PushedTextColor: DWORD read _GetPushedTextColor write _SetPushedTextColor;
  +    property FocusedTextColor: DWORD read _GetFocusedTextColor write _SetFocusedTextColor;
  +  end;
  +
  +  COptionUIHelper = class helper for COptionUI
  +  private
  +    function _GetSelectedImage: string;
  +    procedure _SetSelectedImage(const Value: string);
  +    function _GetSelectedHotImage: string;
  +    procedure _SetSelectedHotImage(const Value: string);
  +    function _GetSelectedTextColor: DWORD;
  +    procedure _SetSelectedTextColor(const Value: DWORD);
  +    function _GetSelectedBkColor: DWORD;
  +    procedure _SetSelectedBkColor(const Value: DWORD);
  +    function _GetForeImage: string;
  +    procedure _SetForeImage(const Value: string);
  +    function _GetGroup: string;
  +    procedure _SetGroup(const Value: string);
  +    function _GetSelected: Boolean;
  +    procedure _SetSelected(const Value: Boolean);
  +  public
  +    property SelectedImage: string read _GetSelectedImage write _SetSelectedImage;
  +    property SelectedHotImage: string read _GetSelectedHotImage write _SetSelectedHotImage;
  +    property SelectedTextColor: DWORD read _GetSelectedTextColor write _SetSelectedTextColor;
  +    property SelectedBkColor: DWORD read _GetSelectedBkColor write _SetSelectedBkColor;
  +    property ForeImage: string read _GetForeImage write _SetForeImage;
  +    property Group: string read _GetGroup write _SetGroup;
  +    property _Selected: Boolean read _GetSelected write _SetSelected;
  +  end;
  +
  +  CCheckBoxUIHelper = class helper for CCheckBoxUI
  +  private
  +    function _GetChecked: Boolean;
  +    procedure _SetChecked(const Value: Boolean);
  +  public
  +    property Checked: Boolean read _GetChecked write _SetChecked;
  +  end;
  +
  +  CListContainerElementUIHelper = class helper for CListContainerElementUI
  +  private
  +    function _GetIndex: Integer;
  +    procedure _SetIndex(const Value: Integer);
  +    function _GetOwner: IListOwnerUI;
  +    procedure _SetOwner(const Value: IListOwnerUI);
  +    function _GetSelected: Boolean;
  +    procedure _SetSelected(const Value: Boolean);
  +    function _GetExpanded: Boolean;
  +    procedure _SetExpanded(const Value: Boolean);
  +  public
  +    property Index: Integer read _GetIndex write _SetIndex;
  +    property Owner: IListOwnerUI read _GetOwner write _SetOwner;
  +    property Selected: Boolean read _GetSelected write _SetSelected;
  +    property Expanded: Boolean  read _GetExpanded write _SetExpanded;
  +  end;
  +
  +  CDateTimeUIHelper = class helper for CDateTimeUI
  +  private
  +    function _GetReadOnly: Boolean;
  +    procedure _SetReadOnly(const Value: Boolean);
  +    function _GetDateTime: TDateTime;
  +    procedure _SetDateTime(const Value: TDateTime);
  +  public
  +    property ReadOnly: Boolean read _GetReadOnly write _SetReadOnly;
  +    property Time: TDateTime read _GetDateTime write _SetDateTime;
  +  end;
  +
  +  CProgressUIHelper = class helper for CProgressUI
  +  private
  +    function _GetMinValue: Integer;
  +    procedure _SetMinValue(const Value: Integer);
  +    function _GetMaxValue: Integer;
  +    procedure _SetMaxValue(const Value: Integer);
  +    function _GetValue: Integer;
  +    procedure _SetValue(const Value: Integer);
  +    function _GetForeImage: string;
  +    procedure _SetForeImage(const Value: string);
  +  public
  +    property Value: Integer read _GetValue write _SetValue;
  +    property MinValue: Integer read _GetMinValue write _SetMinValue;
  +    property MaxValue: Integer read _GetMaxValue write _SetMaxValue;
  +    property ForeImage: string read _GetForeImage write _SetForeImage;
  +  end;
  +
  +
  +  CSliderUIHelper = class helper for CSliderUI
  +  private
  +    function _GetChangeStep: Integer;
  +    procedure _SetChangeStep(const Value: Integer);
  +    function _GetThumbRect: TRect;
  +    function _GetThumbImage: string;
  +    procedure _SetThumbImage(const Value: string);
  +    function _GetThumbHotImage: string;
  +    procedure _SetThumbHotImage(const Value: string);
  +    function _GetThumbPushedImage: string;
  +    procedure _SetThumbPushedImage(const Value: string);
  +  public
  +    property ChangeStep: Integer read _GetChangeStep write _SetChangeStep;
  +    property ThumbRect: TRect read _GetThumbRect;
  +    property ThumbImage: string read _GetThumbImage write _SetThumbImage;
  +    property ThumbHotImage: string read _GetThumbHotImage write _SetThumbHotImage;
  +    property ThumbPushedImage: string read _GetThumbPushedImage write _SetThumbPushedImage;
  +  end;
  +
  +
   
   implementation
   
  
positive.code:   SetShowHtml(Value);
  end;
  
  end.
  
negative.code:     procedure _SetTag(const Value: UIntPtr);
      function _GetFixedHeight: Integer;
      procedure _SetFixedHeight(const Value: Integer);
      function _GetEnabled: Boolean;
      procedure _SetEnabled(const Value: Boolean);
    public
      procedure Hide;
      procedure Show;
  