mxOutlookBarPro2.13修改版

最新推荐文章于 2021-02-23 05:23:23 发布

nhconch

最新推荐文章于 2021-02-23 05:23:23 发布

阅读量3.2k

点赞数

分类专栏： Dephi&BCB 文章标签： delphi windows qq c

本文链接：https://blog.csdn.net/nhconch/article/details/3905859

版权

Dephi&BCB 专栏收录该内容

57 篇文章 0 订阅

订阅专栏

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