用户登录  |  用户注册
首 页商业源码原创产品编程论坛
当前位置:PB创新网文章中心编程技巧编程其他

C++ Builder 中的自画功能(上)

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2009-03-16 19:43:34
也许你都看见过一些列表框啦、下拉框啦什么的,他们的选项不是文字而是图形。比如像Word 97中设置字体的对话框里有一项“下划线”设置,其选项中就是各种线形,给人非常直观的感觉。这种下拉框在C++ Builder中能做出来吗?
    Of course!我在自己的程序中,就成功地使用了这种列表框完成了线形的设置。OK,下面我们就来实际做一个程序。这个程序的作用是这样的:使用下拉列表框选择一种颜色,并把Label1的文字设置成该颜色。
    先在Form上放一个ComboBox,取名为ComboBox1。把(注意是关键哦!)Style改为csOwnerDrawFixed,注意这一步很重要,因为如果不改成OwerDraw形式的话,就不会触发后面要用到的OnDrawItem事件。另外,为了编程方便,我们定义一个颜色数组(简单起见,就用五种颜色):
  const TColor colors[5] = {clBlack, clWhite, clRed, clBlue, clGreen};
再在ComboBox的Items里写上5行:黑色、白色、红色、兰色、绿色。
最后在ComboBox的OnDrawItem里写上如下代码:

void __fastcall TForm1::ComboBox1DrawItem(TWinControl *Control, int Index,
      TRect &Rect, TOwnerDrawState State)
//Control是需要自画的控件,Index是项数索引(从0开始),Rect是该项的绘画范围,State表示状态
//(选中、聚焦、无效等)
{
  //画颜色索引的小方块
  ((TComboBox *)Control)->Canvas->Brush->Color = colors[Index];
  ((TComboBox *)Control)->Canvas->Brush->Style = bsSolid;
  ((TComboBox *)Control)->Canvas->FillRect(Classes::Rect(Rect.Left+2, Rect.Top+2, Rect.Left+14, Rect.Bottom-2));  //之所以用Classes::Rect是因为与参数重名
  ((TComboBox *)Control)->Canvas->Pen->Color = clBlack;
  ((TComboBox *)Control)->Canvas->Rectangle(Rect.Left+1, Rect.Top+1, Rect.Left+15, Rect.Bottom-1);

  //写文字
  ((TComboBox *)Control)->Canvas->Font->Color = clBlack;
  ((TComboBox *)Control)->Canvas->Font->Name  = "宋体";
  ((TComboBox *)Control)->Canvas->Font->Size  = 9;

  ((TComboBox *)Control)->Canvas->Brush->Style = bsClear;
  ((TComboBox *)Control)->Canvas->TextOut(Rect.Left+20, Rect.Top+2, ((TComboBox *)Control)->Items->Strings[Index]);

  //标记当前鼠标所在项(焦点项)[本例中在外边画个蓝方框表示]
  if(State.Contains(odFocused))
  {
    ((TComboBox *)Control)->Canvas->Pen->Color = clBlue;
    ((TComboBox *)Control)->Canvas->Rectangle(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);
  }
  else
  {
    ((TComboBox *)Control)->Canvas->Pen->Color = clWhite;
    ((TComboBox *)Control)->Canvas->Rectangle(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);
  }
}

好了,至此,一个自画的列表框就完成了。接下来的事情就非常简单了:
在ComboBox的OnChange事件中写以下代码:

void __fastcall TForm1::ComboBox1Change(TObject *Sender)
{
  Label1->Font->Color = colors[ComboBox1->ItemIndex];       
}

就完成了Label字体变色的功能,我想不用解释了吧?
运行看看效果吧!

不过,现在在选择之前列表框中并没有东西,有时可能希望开始的时候列表框中有一个缺省选项,这时,只要在初始化时(比如FormCreate事件中),写上
  ComboBox1->ItemIndex = 0;  //0 表示第一项
就行了。

另外,你可能会注意到ComboBox的Style属性中有两个选项跟OwnerDraw有关,除了我们演示的这个OwnerDrawFixed之外,还有一个OwnerDrawVariable。它们有什么区别吗?
当然啦,Fix指的是“固定”,Variable指的是“可变”。所以,如果你要画的每一项都是同样大小(就像我们在上面演示的那种),用Fix;否则,用Variable。但是使用Variable时,你在画之前,还要通过OnMeasureItem事件确定每一项的高度值。由于设置很简单,我就不演示了。

除了ComboBox和ListBox之外,PageControl(多页控件)的Tab也是可以自己画的。方法嘛差不多。我想就不罗嗦了吧。但是同样要注意要把OwnerDraw设成true。

(To be continued)

Tags:

作者:佚名

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
PB创新网ourmis.com】Copyright © 2000-2009 . All Rights Reserved .
页面执行时间:15,359.38000 毫秒
Email:ourmis@126.com QQ:2322888 蜀ICP备05006790号