elmimeviewer_optionsuue.pas

来自「著名的SecureBlackBox控件完整源码」· PAS 代码 · 共 115 行

// File Version: 2004-04-16
unit ElMimeViewer_OptionsUUE;

interface

uses
  // System units:
  SysUtils, Classes,
  // El Mime units:
  SBMIMETypes,
  SBMIMEUtils,
  SBMIMEClasses,
  SBMIMEStream,
  SBMIME,
  // UUE Units:
  SBMIMEUUE,
  // ElMime Demo units:
  ElMimeViewer_DataCommon,
  // other units:
  Windows, Messages, {$IFDEF D_6_UP}Variants,{$ENDIF} Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls;

type
  TFrame = TElMimePlugFrameOptions;

  TfraOptionsUUE = class(TFrame)
    pSM: TPanel;
    cbSimpleMode: TCheckBox;
    mSM: TMemo;
    Panel1: TPanel;
    cbConvertToMIME: TCheckBox;
    Memo1: TMemo;
    pActive: TPanel;
    cbUUEDisable: TCheckBox;
    procedure cbSimpleModeClick(Sender: TObject);
    procedure cbConvertToMIMEClick(Sender: TObject);
    procedure cbUUEDisableClick(Sender: TObject);
  private
    { Private declarations }
  protected
    { Protected declarations }
    fNode :TTreeNodeInfoOptions;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent; RootNode: TTreeNode; Nodes: TTreeNodesA); override;
    destructor Destroy; override;
    function GetCaption: string; override;
  protected
    procedure Init(mp: TElMessagePart; TagInfo: TTagInfo; Node: TTreeNodeInfo; bShow: Boolean); override;
  end;

implementation

{$R *.dfm}

{ TfraOptionsUUE }

constructor TfraOptionsUUE.Create(AOwner: TComponent; RootNode: TTreeNode; Nodes: TTreeNodesA);
begin
  inherited;

  fNode := TTreeNodeInfoOptions.Create(Nodes, tiOptions);
  fNode.ImageIndex := 57;
  fNode.SelectedIndex := 57;
  fNode.OverlayIndex := 1;
  fNode.PlugFrame := Self;

  Nodes.AddNode(fNode, fRootNode, 'UUE', nil, naAddChild);

  cbSimpleMode.Checked := True;
  cbConvertToMIME.Checked := True;

end;

destructor TfraOptionsUUE.Destroy;
begin
  if fNode <> nil then
  begin
    fNode.PlugFrame := nil;
  end;
  inherited;
end;

function TfraOptionsUUE.GetCaption: string;
begin
  Result := 'UUE Options';
end;

procedure TfraOptionsUUE.Init(mp: TElMessagePart; TagInfo: TTagInfo;
  Node: TTreeNodeInfo; bShow: Boolean);
begin
  inherited;

end;

procedure TfraOptionsUUE.cbSimpleModeClick(Sender: TObject);
begin
  bSimpleMode := cbSimpleMode.Checked;
end;

procedure TfraOptionsUUE.cbConvertToMIMEClick(Sender: TObject);
begin
  bConvertToMIME := cbConvertToMIME.Checked;
end;

procedure TfraOptionsUUE.cbUUEDisableClick(Sender: TObject);
begin
  SBMIMEUUE.bActive := not cbUUEDisable.Checked;
end;

initialization
  bConvertToMIME := True;
  TfraOptionsUUE.RegisterClass(TfraOptionsUUE);
end.