Class TAttachmentForm (unit Attform)

Inherits from

TForm

Constructors



Functions

procedure AddAttachmentBtnClick(Sender: TObject);


procedure AttListClick(Sender: TObject);


procedure AttListDragDrop(Sender, Source: TObject; X, Y: Integer);


procedure AttListDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);


procedure AttListDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure FileListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure FormShow(Sender: TObject);


procedure MimeTypeLBChange(Sender: TObject);


procedure MimeTypeLBDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure NewTypeBtnClick(Sender: TObject);

not used in this program

procedure RemoveAttachmentBtnClick(Sender: TObject);


procedure ViewAttachmentBtnClick(Sender: TObject);


procedure AddAttachment(location: string);


Properties

Events

Variables

AddAttachmentBtn : TButton;


AttList : TListBox;


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


DescriptionEdt : TEdit;


DirectoryListBox1 : TDirectoryListBox;


DriveComboBox1 : TDriveComboBox;


FileListBox1 : TFileListBox;


GroupBox1 : TGroupBox;


Label1 : TLabel;


Label2 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


LocationEdt : TEdit;


MimeTypeLB : TComboBox;


NameEdt : TEdit;


NewTypeBtn : TButton;


RemoveAttachmentBtn : TButton;


ViewAttachmentBtn : TButton;


Attachments : array[1..50] of TSendMailAttachment;


NumAttachments : integer;



Constructors


Functions


procedure AddAttachmentBtnClick(Sender: TObject);


procedure AttListClick(Sender: TObject);


procedure AttListDragDrop(Sender, Source: TObject; X, Y: Integer);


procedure AttListDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);


procedure AttListDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure FileListBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure FormShow(Sender: TObject);


procedure MimeTypeLBChange(Sender: TObject);


procedure MimeTypeLBDrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure NewTypeBtnClick(Sender: TObject);

not used in this program


procedure RemoveAttachmentBtnClick(Sender: TObject);


procedure ViewAttachmentBtnClick(Sender: TObject);


procedure AddAttachment(location: string);


Properties


Events


Variables


AddAttachmentBtn : TButton;


AttList : TListBox;


BitBtn1 : TBitBtn;


BitBtn2 : TBitBtn;


DescriptionEdt : TEdit;


DirectoryListBox1 : TDirectoryListBox;


DriveComboBox1 : TDriveComboBox;


FileListBox1 : TFileListBox;


GroupBox1 : TGroupBox;


Label1 : TLabel;


Label2 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


LocationEdt : TEdit;


MimeTypeLB : TComboBox;


NameEdt : TEdit;


NewTypeBtn : TButton;


RemoveAttachmentBtn : TButton;


ViewAttachmentBtn : TButton;


Attachments : array[1..50] of TSendMailAttachment;


NumAttachments : integer;