bottleclient/BottleChainEvent.pas

   1 unit BottleChainEvent;
   2
   3 interface
   4
   5 uses Classes, Windows, SysUtils, Dialogs, Contnrs, HeadValue, Logs;
   6
   7 type
   8   TBottleChainEvent = class(TObject);
   9
  10   TBottleChainBottleEvent = class(TBottleChainEvent)
  11   private
  12     FData: THeadValue;
  13     FLogType: TLogType;
  14     procedure SetData(const Value: THeadValue);
  15     procedure SetLogType(const Value: TLogType);
  16   public
  17     constructor Create;
  18     destructor Destroy; override;
  19     property Data: THeadValue read FData write SetData;
  20     property LogType: TLogType read FLogType write SetLogType;
  21   end;
  22
  23 implementation
  24
  25 { TBottleChainBottleEvent }
  26
  27 constructor TBottleChainBottleEvent.Create;
  28 begin
  29   FData := THeadValue.Create;
  30 end;
  31
  32 destructor TBottleChainBottleEvent.Destroy;
  33 begin
  34   FData.Free;
  35   inherited;
  36 end;
  37
  38 procedure TBottleChainBottleEvent.SetData(const Value: THeadValue);
  39 begin
  40   FData.Assign(Value);
  41 end;
  42
  43
  44 procedure TBottleChainBottleEvent.SetLogType(const Value: TLogType);
  45 begin
  46   FLogType := Value;
  47 end;
  48
  49 end.