mxOutlookBarPro2.13修改版

mxOutlookBarPro可以在Delphi和BCB中实现QQ、OutLook界面和windows资源管理器的效果。包含C5、C6、D5、D6、D7各种版本的组件。
此为2.13修改版,增加SelectedAsCheck属性，定义对mxButton的点击是否像PushButton一样，即单次点击时按下，再次点击时弹起。调整代码，在内部拖动按钮时也产生OnDragDrop事件。

修改内容为：

1.第1101行增加：

//-----------------------------------------
//增加SelectedAsCheck属性，定义对mxButton的点击是否像PushButton一样，即单次点击时按下，再次点击时弹起
    procedure SetSelectedAsCheck(const Value: Boolean);
//-----------------------------------------

2.第1172行增加：

//-----------------------------------------
//增加SelectedAsCheck属性，定义对mxButton的点击是否像PushButton一样，即单次点击时按下，再次点击时弹起
    Property SelectedAsCheck: Boolean Read FSelectedAsCheck Write SetSelectedAsCheck Default False;
//-----------------------------------------

3.第5689行增加：

//-----------------------------------------
//增加SelectedAsCheck属性，定义对mxButton的点击是否像PushButton一样，即单次点击时按下，再次点击时弹起
  if (FSelectedAsCheck) and (FSelectedIndex <> -1) and (FSelectedIndex = AValue) then
  begin
    AValue := -1;
  end;
//-----------------------------------------

4.第5973行：

//-----------------------------------------
//增加SelectedAsCheck属性，定义对mxButton的点击是否像PushButton一样，即单次点击时按下，再次点击时弹起
//Conch 2005-4-26
procedure TmxHeader.SetSelectedAsCheck(const Value: Boolean);
begin
  if FSelectedAsCheck <> Value then
    FSelectedAsCheck := Value;
end;
//-----------------------------------------

5.第10988行：

{/----------------------------------------------------------------------------
//调整代码，在内部拖动按钮时也产生OnDragDrop事件
//Conch -2005-11-03-
        If ( boInternalDrop In FOptions ) Then
        Begin
          If CurrentTargetButton <> Nil Then
            Handled := ProcessDrop( DataObject, CurrentTargetButton, Effect, CurrentTargetButton.HitStatus )
          Else
            Handled := ProcessDrop( DataObject, Nil, Effect, hpAbove );
        End;

        If Not Handled Then
        Begin
          If Assigned( FOnDragDrop ) Then
            FOnDragDrop( Self, FDragManager.FDragSource, DataObject, Formats, Shift, Pt, Effect, FLastDropMode )
          Else
            Result := E_FAIL;
        End
        Else Result := E_FAIL;}

        If Assigned( FOnDragDrop ) Then begin
          FOnDragDrop( Self, FDragManager.FDragSource, DataObject, Formats, Shift, Pt, Effect, FLastDropMode );
          Handled := true;
        end;

        If (Effect <> DROPEFFECT_NONE) and ( boInternalDrop In FOptions ) Then
        Begin
          If CurrentTargetButton <> Nil Then
            Handled := ProcessDrop( DataObject, CurrentTargetButton, Effect, CurrentTargetButton.HitStatus )
          Else
            Handled := ProcessDrop( DataObject, Nil, Effect, hpAbove );
        End;

        If Not Handled Then Result := E_FAIL;
//Result与原来有一点出入，原来先调用ProcessDrop，没有处理再调用FOnDragDrop，
//调用FOnDragDrop后Result不会置为E_FAIL。现先调用FOnDragDrop，再调用ProcessDrop，
//没有Handled即将Result 置为 E_FAIL
//----------------------------------------------------------------------------

下载地址：http://download.csdn.net/source/1017231