wfconng.pas

来自「工作流流程编辑器(含全部源码),别人的东西」· PAS 代码 · 共 53 行

unit WfConnG;

interface

uses
  Classes,dxflchrt;

type
  TWfConnG = class(TdxFcConnection)
  private
    FStop:Boolean;
    FLineWidth:SmallInt;
    //TdxFcConnection的私有变量FPen:TPen;改为保护变量
    procedure SetLineWidth(const Value: SmallInt);
  protected
    procedure Load(Stream: TStream); override;
    procedure Save(Stream: TStream); override;
  public
    property LineWidth:SmallInt read FLineWidth write SetLineWidth;
  end;

implementation

{ TWfConn }

procedure TWfConnG.Load(Stream: TStream);
begin
  inherited;
  Stream.ReadBuffer(FLineWidth, SizeOf(FLineWidth));
  if FLineWidth=0 then
    FLineWidth:=1;
  FPen.Width:=FLineWidth;
end;

procedure TWfConnG.Save(Stream: TStream);
begin
  inherited;
  Stream.WriteBuffer(FLineWidth, SizeOf(FLineWidth));
end;

procedure TWfConnG.SetLineWidth(const Value: SmallInt);
begin
  if FLineWidth<>Value then
  begin
    FLineWidth := Value;
    FPen.Width := Value;
    ConnectionChanged;
    Changed;
  end;
end;

end.