界面美化笔记

1、toolbar鼠标移上去出现的矩形框是通过在TCCToolButton.Paint方法中调用DrawBtnBorder实现的。

2、BitBlt方法我的理解是用于拷贝图像，可以以扩展图片的方式拷贝。

3、用windows api画边框：

var

ll_Pen: HPen;

ll_Pen := CreatePen(ps_solid, 1, clred);
SelectObject(DC, ll_Pen);
SelectObject(DC, GetStockObject(NULL_BRUSH)); //不需要填充（背景）
Rectangle(DC, aRect.Left, aRect.Top, aRect.Right, aRect.Bottom);
DeleteObject(ll_Pen);

4、更改brush的颜色：

SelectObject(DC, GetStockObject(DC_BRUSH));//必须执行这句，下一句才有用

SetDCBrushColor(DC, Color);

5、想在edit上加一个按钮要用两个控件来实现才画得比较自然。