关闭

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

587人阅读 评论(0) 收藏 举报
 修改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;
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:67313次
    • 积分:989
    • 等级:
    • 排名:千里之外
    • 原创:22篇
    • 转载:83篇
    • 译文:0篇
    • 评论:0条
    文章分类