35 lines
417 B
ObjectPascal
35 lines
417 B
ObjectPascal
|
unit UCEMailForm_U;
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
{$I 'UserControl.inc'}
|
||
|
|
|
||
|
|
uses
|
||
|
|
Classes,
|
||
|
|
Controls,
|
||
|
|
ExtCtrls,
|
||
|
|
Forms,
|
||
|
|
Graphics,
|
||
|
|
StdCtrls;
|
||
|
|
|
||
|
|
type
|
||
|
|
TUCEMailForm = class(TForm)
|
||
|
|
Panel1: TPanel;
|
||
|
|
img: TImage;
|
||
|
|
lbStatus: TLabel;
|
||
|
|
private
|
||
|
|
{ Private declarations }
|
||
|
|
public
|
||
|
|
{ Public declarations }
|
||
|
|
end;
|
||
|
|
|
||
|
|
var
|
||
|
|
UCEMailForm: TUCEMailForm;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$R *.dfm}
|
||
|
|
|
||
|
|
end.
|
||
|
|
|