(Continuing)
好了,我们已经学会了在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值。