解决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;
阅读更多
想对作者说点什么? 我来说一句

TMS.Scripter.WorkFlow.Diagram

2013年05月17日 16.55MB 下载

delphi diagram vcl

2012年08月23日 569KB 下载

TMS Diagram Studio 4.0.4.0_FS

2011年04月04日 13.8MB 下载

TMS Diagram Studio 1.9.0 with source

2009年03月02日 390KB 下载

没有更多推荐了,返回首页

不良信息举报

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

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭