BCB中利用鼠标拖放调整TControl的大小

原创 2004年07月02日 11:26:00

        对于继承自TWinControl的控件,如果要通过鼠标来调整其大小,只需要通过SetWindowLong在GWL_STYLE风格中添加WS_SIZEBOX即可。但是对于其他继承自TControl的对象,例如TGraphicControl,因为不是windows控件,所以无法使用这种方法。因此需要自己来进行处理。


以下给出BCB的示例代码(假定更改尺寸的对象是TBevel):

变量:


//定义枚举类型,判断鼠标从哪个位置进入到控件
enum TMoveInType{mtNone,mtLeft,mtTop,mtRight,mtBottom,mtTopLeft,mtTopRight,mtBottomLeft,mtBottomRight};
TMoveInType moveInType=mtNone;
TRect SizeRect;
bool SizeState =false;
const int SizeRange = 8;
__inline int Min(int a,int b){return (a__inline int Max(int a,int b){return (a>b) ? a : b;}

在控件的MouseMove、MouseUp事件中处理:

void __fastcall TForm1::Bevel1MouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
 TBevel *SdBevel;
 SdBevel = (TBevel *)Sender;
 //判断size开始的位置
 if(!SizeState)
 {
if (abs(Y -SdBevel->Height/2)<=SizeRange&&(abs(X)<=SizeRange))
 {
    moveInType=mtLeft;
    SdBevel->Cursor = crSizeWE;
 }
 else if (abs(Y -SdBevel->Height/2)<=SizeRange&&abs(SdBevel->Width -X<=SizeRange))
 {
    moveInType=mtRight;
    SdBevel->Cursor = crSizeWE;
 }
 else if (abs(X -SdBevel->Width/2)<=SizeRange&&(abs(Y)<=SizeRange))
 {
    moveInType=mtTop;
    SdBevel->Cursor = crSizeNS;
 }
 else if (abs(X -SdBevel->Width/2)<=SizeRange&&abs(SdBevel->Height - Y<=SizeRange))
 {
    moveInType=mtBottom;
    SdBevel->Cursor = crSizeNS;
 }
  else if ((abs(X)<= SizeRange)&&(abs(Y)<=SizeRange))
 {
    moveInType=mtTopLeft;
    SdBevel->Cursor = crSizeNWSE;
 }
 else if (abs(SdBevel->Width -X <= SizeRange)&&(abs(Y)<=SizeRange))
 {
    moveInType=mtTopRight;
    SdBevel->Cursor = crSizeNESW;
 }
  else if ((abs(X)<= SizeRange)&&abs(SdBevel->Height - Y<=SizeRange))
 {
    moveInType=mtBottomLeft;
    SdBevel->Cursor = crSizeNESW;
 }
  else if (abs(SdBevel->Width -X)<= SizeRange&&abs(SdBevel->Height - Y<=SizeRange))
 {
    moveInType=mtBottomRight;
    SdBevel->Cursor = crSizeNWSE;
 }
 else if (!SizeState)
 {
   SdBevel->Cursor = crArrow;
   moveInType=mtNone;
 }
}
if ((moveInType!=mtNone)&&(Shift.Contains(ssLeft)))
{
    SizeState =true;
    Canvas->Pen->Mode = pmNotXor;
    Canvas->Pen->Style = psDot;
    Canvas->Pen->Color = clDkGray;
    Canvas->Brush->Style = bsClear;
    //利用xor,将上次的 SizeRect抹去
    Canvas->Rectangle(SizeRect.Left,SizeRect.Top,SizeRect.Right,SizeRect.Bottom);

    TRect BRect;
    //可能Rect的Right>Left,Top>Bottom,所以利用临时的BRect做一些调整
    BRect = SdBevel->BoundsRect;

    switch (moveInType)
    {
      case mtLeft:
        BRect.Left += X;
        break;
      case mtRight:
        BRect.Right =BRect.Left + X;
        break;
      case mtTop:
        BRect.Top += Y;
        break;
      case mtBottom:
        BRect.Bottom = BRect.Top+Y;
        break;
      case  mtTopLeft:
        BRect.Left += X;
        BRect.Top += Y;
        break;
      case  mtTopRight:
        BRect.Right =BRect.Left + X;
        BRect.Top += Y;
        break;
      case  mtBottomLeft:
        BRect.Left += X;;
        BRect.Bottom = BRect.Top+Y;
        break;
      case  mtBottomRight:
        BRect.Right =BRect.Left + X;
        BRect.Bottom = BRect.Top+Y;
        break;
    }


    SizeRect.Left= Min(BRect.Left,BRect.Right);
    SizeRect.Right= Max(BRect.Left,BRect.Right);
    SizeRect.Top= Min(BRect.Top,BRect.Bottom);
    SizeRect.Bottom=Max(BRect.Top,BRect.Bottom);
    //画SizeRect
    Canvas->Rectangle(SizeRect.Left,SizeRect.Top,SizeRect.Right,SizeRect.Bottom);
}

}
//---------------------------------------------------------------------------

void __fastcall TForm1::Bevel1MouseUp(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    if (SizeState)
    {
     //利用xor,将画的最后一个 SizeRect抹去
     Canvas->Rectangle(SizeRect.Left,SizeRect.Top,SizeRect.Right,SizeRect.Bottom);
     SizeState =false;
     ((TBevel *)Sender)->BoundsRect=SizeRect;
     SizeRect =Rect(0,0,0,0);
     //恢复初始的参数
     Canvas->Pen->Mode = pmCopy;
     Canvas->Brush->Style = bsSolid;
     Canvas->Pen->Width = 1;
     Canvas->Pen->Color = clBlack         ;
    }
}
//---------------------------------------------------------------------------

 

相关文章推荐

用鼠标实现文件拖放.rar

  • 2010年07月01日 13:39
  • 36KB
  • 下载

VB 5.0中实现鼠标拖放...

  • 2009年10月08日 01:55
  • 2KB
  • 下载

flex4.6实现图片放大缩小及鼠标拖放事件

先看效果 大概就是这种效果 gognnegn

AS3 EaseSprite --- 简单的按钮,带鼠标经过时,缓动式的缩放大小的一个显示对象

package { import flash.display.Graphics; import flash.display.MovieClip; import flash.display.Spr...

Java鼠标拖放功能的实现源码

  • 2014年06月05日 18:37
  • 22KB
  • 下载

JAVA 鼠标拖放效果示例

  • 2009年06月08日 23:49
  • 141KB
  • 下载

DataGridView鼠标的拖放操作及单元格编辑结束数据复制与单元格单击数据粘贴及两个DataGridView相互拖放操作

昨天观世音菩萨出家纪念日,昨晚上本想发布的,一忙其他事情给忘了,今早补上,以资纪念.2013年10月23日:二〇一三年九月十九 DataGridView鼠标的拖放操作及单元格编辑结束数据复制与单元格单...

QGraphicsItem鼠标大小缩放

  • 2013年05月22日 18:33
  • 4KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:BCB中利用鼠标拖放调整TControl的大小
举报原因:
原因补充:

(最多只允许输入30个字)