现在开始处理OnPaint事件
先画出头部
void __fastcall TMainForm::PaintBox_RecentFilesPaint(TObject *Sender) {
TCanvas * canvas = PaintBox_RecentFiles->Canvas;
canvas->Font->Assign(Label2->Font);
canvas->Brush->Style = bsClear;
int startX = 50, startY = 30;
UnicodeString headerString = L"最近使用的图片文件";
int wordHeight = canvas->TextHeight(headerString);
canvas->TextOut(startX, startY, headerString);
canvas->TextOut(PaintBox_RecentFiles->Width / 2 + startX, startY,
L"最近使用的交流文件");
startY += wordHeight + 20;
Gdiplus::Graphics g(canvas->Handle);
TColor color = (0xFFFFFF - Ribbon->ColorScheme->GetPartColor(rfspRibbonForm)
) / 2;
Gdiplus::Pen * dotPen = CreateDotPen(color, 1);
if (dotPen) {
g.DrawLine(dotPen, startX, startY, PaintBox_RecentFiles->Width / 2 - 10,
startY);
g.DrawLine(dotPen, PaintBox_RecentFiles->Width / 2 + startX, startY,
PaintBox_RecentFiles->Width - 10, startY);
}
}
