Delphi Tips & Tricks

var
  LogBrush :TLogBrush;
begin
  LogBrush.lbStyle :=BS_SOLID;      //ソリッドブラシ
  LogBrush.lbColor :=RGB(255,0,0);  //純色の赤
  LogBrush.lbHatch :=0;      
  
  with Canvas do begin
    Pen.Handle :=ExtCreatePen(PS_GEOMETRIC         //ジオメトリックペン
                              or PS_DASHDOT        //一点破線
                              or PS_ENDCAP_SQUARE  //線の隅を四角に
                              or PS_JOIN_ROUND,    //ラウンド結合
                              20,
                              LogBrush,
                              0, nil);

    MoveTo(0,0);
    LineTo(ClientWidth,ClientHeight);
    MoveTo(ClientWidth,0);
    LineTo(0,ClientHeight);
  end;
end;