wfactig.pas

来自「Delphi开发的一款流程图处理软件」· PAS 代码 · 共 39 行

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.