如何在VCL中为笔，borland创建新样式？

Question

如何在VCL中为笔，borland创建新样式？

 LOGPEN LogPen;
    LogPen.lopnStyle = psDash;
    LogPen.lopnWidth = Point(1,1);
    LogPen.lopnColor = RGB(235, 115, 5);
    SelectObject(Form1->Image1->Canvas->Handle, CreatePenIndirect(&LogPen));

Answer 1

您应该使用TPen属性而不是直接调用SelectObject()：

TPen *Pen = Form1->Image1->Canvas->Pen;
Pen->Style = psDash;
Pen->Width = 1;
Pen->Color = (TColor) RGB(235, 115, 5);

TPen::Style支持一系列不同的值：

psSolid, psDash, psDot, psDashDot, psDashDotDot, psClear, psInsideFrame, psUserStyle, psAlternate

您可以使用ExtCreatePen()从自定义样式数据创建HPEN句柄，然后将其分配给TPen::Handle属性。