解决TMS Diagram Studio箭头颜色不能变化的问题

 修改atDiagram.pas：
procedure TCustomDiagramLine.StyleChanged(Sender: TObject);
begin
  if Sender = FPen then
  begin
    PenChanged;

    //add yy
    if FSourceArrow <> nil then
      FSourceArrow.Brush.Color := FPen.Color;
    if FTargetArrow <> nil then
      FTargetArrow.Brush.Color := FPen.Color;
    //end yy
  end
  else
  if Sender = FSelPen then
  begin
    SelPenChanged;
    //add yy
    if FSourceArrow <> nil then
      FSourceArrow.Brush.Color := FSelPen.Color;
    if FTargetArrow <> nil then
      FTargetArrow.Brush.Color := FSelPen.Color;
    //end yy
  end;
  Redraw;
end;