anchor.diff:    SetContextMenuUsed(Value);
   end;
   
  +procedure CControlUIHelper._SetEnabled(const Value: Boolean);
  +begin
  +  SetEnabled(Value);
  +end;
  +
   procedure CControlUIHelper._SetFixedHeight(const Value: Integer);
   begin
     SetFixedHeight(Value);
  
positive.code:   Result := IsContextMenuUsed;
  end;
  
  function CControlUIHelper._GetFixedHeight: Integer;
  begin
    Result := GetFixedHeight;
  
negative.code:   SetShowHtml(Value);
  end;
  
  { CButtonUIHelper }
  
  function CButtonUIHelper._GetDisabledImage: string;
  begin
    Result := GetDisabledImage;
  end;
  
  function CButtonUIHelper._GetFocusedImage: string;
  begin
    Result := GetFocusedImage;
  end;
  
  function CButtonUIHelper._GetFocusedTextColor: DWORD;
  begin
    Result := GetFocusedTextColor;
  end;
  
  function CButtonUIHelper._GetForeImage: string;
  begin
    Result := GetForeImage;
  end;
  
  function CButtonUIHelper._GetHotBkColor: DWORD;
  begin
    Result := GetHotBkColor;
  end;
  
  function CButtonUIHelper._GetHotForeImage: string;
  begin
    Result := GetHotForeImage;
  end;
  
  function CButtonUIHelper._GetHotImage: string;
  begin
    Result := GetHotImage;
  end;
  
  function CButtonUIHelper._GetHotTextColor: DWORD;
  begin
    Result := GetHotTextColor;
  end;
  
  function CButtonUIHelper._GetNormalImage: string;
  begin
    Result := GetNormalImage;
  end;
  
  function CButtonUIHelper._GetPushedImage: string;
  begin
    Result := GetPushedImage;
  end;
  
  function CButtonUIHelper._GetPushedTextColor: DWORD;
  begin
    Result := GetPushedTextColor;
  end;
  
  procedure CButtonUIHelper._SetDisabledImage(const Value: string);
  begin
    SetDisabledImage(PChar(Value));
  end;
  
  procedure CButtonUIHelper._SetFocusedImage(const Value: string);
  begin
    SetFocusedImage(PChar(Value));
  end;
  
  procedure CButtonUIHelper._SetFocusedTextColor(const Value: DWORD);
  begin
    SetFocusedTextColor(Value);
  end;
  
  procedure CButtonUIHelper._SetForeImage(const Value: string);
  begin
    SetForeImage(PChar(Value));
  end;
  
  procedure CButtonUIHelper._SetHotBkColor(const Value: DWORD);
  begin
    SetHotBkColor(Value);
  end;
  
  procedure CButtonUIHelper._SetHotForeImage(const Value: string);
  begin
    SetHotForeImage(PChar(Value));
  end;
  
  procedure CButtonUIHelper._SetHotImage(const Value: string);
  begin
    SetHotImage(PChar(Value));
  end;
  
  procedure CButtonUIHelper._SetHotTextColor(const Value: DWORD);
  begin
    SetHotTextColor(Value);
  end;
  
  procedure CButtonUIHelper._SetNormalImage(const Value: string);
  begin
    SetNormalImage(PChar(Value));
  end;
  
  procedure CButtonUIHelper._SetPushedImage(const Value: string);
  begin
    SetPushedImage(PChar(Value));
  end;
  
  procedure CButtonUIHelper._SetPushedTextColor(const Value: DWORD);
  begin
    SetPushedTextColor(Value);
  end;
  
  { COptionUIHelper }
  
  function COptionUIHelper._GetForeImage: string;
  begin
    Result := GetForeImage;
  end;
  
  function COptionUIHelper._GetGroup: string;
  begin
    Result := GetGroup;
  end;
  
  function COptionUIHelper._GetSelected: Boolean;
  begin
    Result := IsSelected;
  end;
  
  function COptionUIHelper._GetSelectedBkColor: DWORD;
  begin
    Result := GetSelectBkColor;
  end;
  
  function COptionUIHelper._GetSelectedHotImage: string;
  begin
    Result := GetSelectedHotImage;
  end;
  
  function COptionUIHelper._GetSelectedImage: string;
  begin
    Result := GetSelectedImage;
  end;
  
  function COptionUIHelper._GetSelectedTextColor: DWORD;
  begin
    Result := GetSelectedTextColor;
  end;
  
  procedure COptionUIHelper._SetForeImage(const Value: string);
  begin
    SetForeImage(PChar(Value));
  end;
  
  procedure COptionUIHelper._SetGroup(const Value: string);
  begin
    SetGroup(PChar(Value));
  end;
  
  procedure COptionUIHelper._SetSelected(const Value: Boolean);
  begin
    Selected(Value);
  end;
  
  procedure COptionUIHelper._SetSelectedBkColor(const Value: DWORD);
  begin
    SetSelectedBkColor(Value);
  end;
  
  procedure COptionUIHelper._SetSelectedHotImage(const Value: string);
  begin
    SetSelectedHotImage(PChar(Value));
  end;
  
  procedure COptionUIHelper._SetSelectedImage(const Value: string);
  begin
    SetSelectedImage(PChar(Value));
  end;
  
  procedure COptionUIHelper._SetSelectedTextColor(const Value: DWORD);
  begin
    SetSelectedTextColor(Value);
  end;
  
  { CCheckBoxUIHelper }
  
  function CCheckBoxUIHelper._GetChecked: Boolean;
  begin
    Result := GetCheck;
  end;
  
  procedure CCheckBoxUIHelper._SetChecked(const Value: Boolean);
  begin
    SetCheck(Value);
  end;
  
  { CListContainerElementUIHelper }
  
  function CListContainerElementUIHelper._GetExpanded: Boolean;
  begin
    Result := IsExpanded;
  end;
  
  function CListContainerElementUIHelper._GetIndex: Integer;
  begin
    Result := GetIndex;
  end;
  
  function CListContainerElementUIHelper._GetOwner: IListOwnerUI;
  begin
    Result := GetOwner;
  end;
  
  function CListContainerElementUIHelper._GetSelected: Boolean;
  begin
    Result := IsSelected;
  end;
  
  procedure CListContainerElementUIHelper._SetExpanded(const Value: Boolean);
  begin
    Expand(Value);
  end;
  
  procedure CListContainerElementUIHelper._SetIndex(const Value: Integer);
  begin
    SetIndex(Value);
  end;
  
  procedure CListContainerElementUIHelper._SetOwner(const Value: IListOwnerUI);
  begin
    SetOwner(Value);
  end;
  
  procedure CListContainerElementUIHelper._SetSelected(const Value: Boolean);
  begin
    Select(Value);
  end;
  
  { CDateTimeUIHelper }
  
  function CDateTimeUIHelper._GetDateTime: TDateTime;
  var
    LSysDateTime: PSYSTEMTIME;
  begin
    LSysDateTime:= GetTime;
    Result := EncodeDateTime(LSysDateTime.wYear, LSysDateTime.wMonth, LSysDateTime.wDay,
                   LSysDateTime.wHour, LSysDateTime.wMinute, LSysDateTime.wSecond,
                   LSysDateTime.wMilliseconds);
  end;
  
  function CDateTimeUIHelper._GetReadOnly: Boolean;
  begin
    Result := IsReadOnly;
  end;
  
  procedure CDateTimeUIHelper._SetDateTime(const Value: TDateTime);
  var
    LSysDateTime: TSYSTEMTIME;
  begin
    DecodeDateTime(Value, LSysDateTime.wYear, LSysDateTime.wMonth, LSysDateTime.wDay,
                   LSysDateTime.wHour, LSysDateTime.wMinute, LSysDateTime.wSecond,
                   LSysDateTime.wMilliseconds);
    LSysDateTime.wDayOfWeek := DayOfTheWeek(Value);
    SetTime(@LSysDateTime);
  end;
  
  procedure CDateTimeUIHelper._SetReadOnly(const Value: Boolean);
  begin
    SetReadOnly(Value);
  end;
  
  { CProgressUIHelper }
  
  function CProgressUIHelper._GetForeImage: string;
  begin
    Result := GetForeImage;
  end;
  
  function CProgressUIHelper._GetMaxValue: Integer;
  begin
    Result := GetMaxValue;
  end;
  
  function CProgressUIHelper._GetMinValue: Integer;
  begin
    Result := GetMinValue;
  end;
  
  function CProgressUIHelper._GetValue: Integer;
  begin
    Result := GetValue;
  end;
  
  procedure CProgressUIHelper._SetForeImage(const Value: string);
  begin
    SetForeImage(PChar(Value));
  end;
  
  procedure CProgressUIHelper._SetMaxValue(const Value: Integer);
  begin
    SetMaxValue(Value);
  end;
  
  procedure CProgressUIHelper._SetMinValue(const Value: Integer);
  begin
    SetMinValue(Value);
  end;
  
  procedure CProgressUIHelper._SetValue(const Value: Integer);
  begin
    SetValue(Value);
  end;
  
  { CSliderUIHelper }
  
  function CSliderUIHelper._GetChangeStep: Integer;
  begin
    Result := GetChangeStep;
  end;
  
  function CSliderUIHelper._GetThumbHotImage: string;
  begin
    Result := GetThumbHotImage;
  end;
  
  function CSliderUIHelper._GetThumbImage: string;
  begin
    Result := GetThumbImage;
  end;
  
  function CSliderUIHelper._GetThumbPushedImage: string;
  begin
    Result := GetThumbPushedImage;
  end;
  
  function CSliderUIHelper._GetThumbRect: TRect;
  begin
    Result := GetThumbRect;
  end;
  
  procedure CSliderUIHelper._SetChangeStep(const Value: Integer);
  begin
    SetChangeStep(Value);
  end;
  
  procedure CSliderUIHelper._SetThumbHotImage(const Value: string);
  begin
    SetThumbHotImage(PChar(Value));
  end;
  
  procedure CSliderUIHelper._SetThumbImage(const Value: string);
  begin
    SetThumbImage(PChar(Value));
  end;
  
  procedure CSliderUIHelper._SetThumbPushedImage(const Value: string);
  begin
    SetThumbPushedImage(PChar(Value));
  end;
  
  end.
  