| Class TAttachmentForm (unit Attform) |
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);
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;