敬业的IT人 互联网 佚名 2008-1-3 22:02:39

　　 也许你都看见过一些列表框啦、下拉框啦什么的，他们的选项不是文字而是图形。比如像Word97中设置字体的对话框里有一项“下划线”设置，其选项中就是各种线形，给人非常直观的感觉。这种下拉框在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。

　　好了，我们已经学会了在ComboBox和ListBox中通过自己的艺术细胞来自画列表项。那么我们自然就会想到：对于其他的控件，要是也能自己画就好了（哇，贪得无厌！）。于是，你满怀信息地去找帮助了……，但结果呢？不幸的很，大部分的控件既没有OwnerDraw方法，也没有Canvas属性。难道没有办法了吗？
　　当然不！群众的创造力是无限的！我们总有办法来对付Windows的。下面，我就举个例子来说明怎样对任意的控件运用“自画”效果。


　　记得那个官司满身的IE吗？IE 4.0的地址输入栏在你按回车之后，左侧会出现一个HTML的标志。我们也来做一个相似的效果，只不过我们可不想搞得那样精致。简单些，先画个蓝色的矩形方块吧！


　　我们的计划是这样的，在一个Edit输入栏中，你可以输入任意内容，按回车之后，在前面加上一个蓝色矩形块。单击后，又回到输入状态。

　　首先当然是先放上一个Edit啦。保持它的缺省属性设置。然后定义一个全局变量Editing用来标志是否处于输入状态，并将它初始化为true。再申明两个变量：
HDC hDC和 TCanvas *can;


　　然后，在Edit的OnClick和OnChange事件中写上:
Editing = true; //进入编辑状态
Edit1-＞Refresh(); //刷新编辑框

　　再然后，就进入了我们的重头戏：按回车之后自画编辑框，在文字前面画上一个矩形块：
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if ((Key == 13)&&(Editing)) //Key=13表示回车键
{
hDC = ::GetDC(Edit1-＞Handle); //取得Edit1的DC(设备上下文，画图用的)
can-＞Handle = hDC; //并把它连到一个canvas上，现在can就相当于Edit1的画布，可以随意作画。

can-＞Brush-＞Color = clWhite;
can-＞Brush-＞Style = bsSolid;
can-＞FillRect(Rect(0, 0, Edit1-＞Width, Edit1-＞Height)); //先清除所有的内容

can-＞Brush-＞Color = clBlue;
can-＞FillRect(Rect(2, 2, 14, 14)); //画上一个蓝色矩形框

can-＞Font-＞Color = clBlack;
can-＞Brush-＞Style = bsClear;
can-＞TextOut(16, 2, Edit1-＞Text); //写上文字（Edit并不知道你会自己画，所以它不会自动调整内容，所以连原来的文字也要自己画一遍）

Editing = false;
}
}


　　看出来了吗？用了Windows API函数之后，你可以补VCL的不足，做自己想做的一切事情。顺便说一句，所有的Windows窗口元素(具有窗口句柄的)都可以取到它的DC值。

最新文章

C++ Builder VCL库函数简介[01-03]

用C++ Builder创建数字签名[01-03]

TrayIcon组件的使用[01-03]

用C++ Builder在桌面上画图[01-03]

在BCB中使用DirectX[01-03]

用Builder C++设计串行口COM1或COM2的读写操..[01-03]

相关文章