wfactig.pas

业生产并行开发过程 工作流流程编辑器参考源码 采用dxflowchart编写

unit WfActiG;

interface

uses
  Classes,dxflchrt;

type
  TWfActiType = (atNormal,atStart,atEnd,atTerminate);

  TWfActiG = class(TdxFcObject)
  private
    FStop:Boolean;
    FActiType:TWfActiType;
  protected
    procedure Load(Stream: TStream); override;
    procedure Save(Stream: TStream); override;
  public
    property ActiType:TWfActiType read FActiType write FActiType;
  end;

implementation

{ TWfActiG }

procedure TWfActiG.Load(Stream: TStream);
begin
  inherited;
  Stream.ReadBuffer(FActiType, SizeOf(FActiType));
end;

procedure TWfActiG.Save(Stream: TStream);
begin
  inherited;
  Stream.WriteBuffer(FActiType, SizeOf(FActiType));
end;

end.