Class Tmainf (unit Umail)

Inherits from

TForm

WTaskBar,

Constructors



Functions

procedure DeteteMail1Click(Sender: TObject);


procedure Exit2Click(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormCreate(Sender: TObject);

outline1.

procedure FormResize(Sender: TObject);


procedure KSTransForm1ButtonClick(Button: Integer);

memo1.

procedure Outline1Click(Sender: TObject);


procedure ReplyMail1Click(Sender: TObject);


procedure SaveMail1Click(Sender: TObject);

memo1.

procedure Showmails1Click(Sender: TObject);


procedure SpeedButton1Click(Sender: TObject);


procedure SpeedButton3Click(Sender: TObject);


procedure SpeedButton4Click(Sender: TObject);


procedure SpeedButton6Click(Sender: TObject);

Async

procedure StringGrid1Click(Sender: TObject);


procedure StringGrid1DblClick(Sender: TObject);


procedure StringGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure timer1Timer(Sender: TObject);


procedure WinTaskbar1DblClick(Sender: TObject);


procedure filldata;


procedure updateit;

if (s <> 'Inbox') and (s <> 'Old') then begin memo1.

Properties

Events

Variables

BalloonHint1 : TBalloonHint;


BitBtn1 : TBitBtn;


CheckBox1 : TCheckBox;


Compose1 : TMenuItem;


DeteteMail1 : TMenuItem;


Exit1 : TMenuItem;


Exit2 : TMenuItem;


FileListBox1 : TFileListBox;


FileListBox2 : TFileListBox;


MainMenu1 : TMainMenu;


Memo1 : TMemo;


N1 : TMenuItem;


N2 : TMenuItem;


Options1 : TMenuItem;


Outline1 : TOutline;


Panel1 : TPanel;


Panel2 : TPanel;


PopupMenu1 : TPopupMenu;


PopupMenu2 : TPopupMenu;


ReplyMail1 : TMenuItem;


SaveDialog1 : TSaveDialog;


SaveMail1 : TMenuItem;


Showmails1 : TMenuItem;


SpeedButton1 : TSpeedButton;


SpeedButton3 : TSpeedButton;


SpeedButton4 : TSpeedButton;


SpeedButton5 : TSpeedButton;


SpeedButton6 : TSpeedButton;


StringGrid1 : TStringGrid;


timer1 : TAnalogClock;


ct1 : word;


ct2 : word;


ct3 : word;


minu : byte;


mm : array[0..100] of byte;


st1 : tstringlist;

Private declarations

st2 : tstringlist;


st3 : tstringlist;


st4 : tstringlist;


thest : byte;



Constructors


Functions


procedure DeteteMail1Click(Sender: TObject);


procedure Exit2Click(Sender: TObject);


procedure FormClose(Sender: TObject; var Action: TCloseAction);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure FormCreate(Sender: TObject);

outline1.addchild(i2,filelistbox1.items[i]


procedure FormResize(Sender: TObject);


procedure KSTransForm1ButtonClick(Button: Integer);

memo1.top := panel2.top + 10; memo1.left := panel2.left + 10; memo1.width := panel2.width - 10; memo1.height := panel2.height - 10;


procedure Outline1Click(Sender: TObject);


procedure ReplyMail1Click(Sender: TObject);


procedure SaveMail1Click(Sender: TObject);

memo1.visible := true;


procedure Showmails1Click(Sender: TObject);


procedure SpeedButton1Click(Sender: TObject);


procedure SpeedButton3Click(Sender: TObject);


procedure SpeedButton4Click(Sender: TObject);


procedure SpeedButton6Click(Sender: TObject);

Async


procedure StringGrid1Click(Sender: TObject);


procedure StringGrid1DblClick(Sender: TObject);


procedure StringGrid1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);


procedure timer1Timer(Sender: TObject);


procedure WinTaskbar1DblClick(Sender: TObject);


procedure filldata;


procedure updateit;

if (s <> 'Inbox') and (s <> 'Old') then begin memo1.clear; try memo1.lines.loadfromfile(s); except showmessage('text to big'); end; end;


Properties


Events


Variables


BalloonHint1 : TBalloonHint;


BitBtn1 : TBitBtn;


CheckBox1 : TCheckBox;


Compose1 : TMenuItem;


DeteteMail1 : TMenuItem;


Exit1 : TMenuItem;


Exit2 : TMenuItem;


FileListBox1 : TFileListBox;


FileListBox2 : TFileListBox;


MainMenu1 : TMainMenu;


Memo1 : TMemo;


N1 : TMenuItem;


N2 : TMenuItem;


Options1 : TMenuItem;


Outline1 : TOutline;


Panel1 : TPanel;


Panel2 : TPanel;


PopupMenu1 : TPopupMenu;


PopupMenu2 : TPopupMenu;


ReplyMail1 : TMenuItem;


SaveDialog1 : TSaveDialog;


SaveMail1 : TMenuItem;


Showmails1 : TMenuItem;


SpeedButton1 : TSpeedButton;


SpeedButton3 : TSpeedButton;


SpeedButton4 : TSpeedButton;


SpeedButton5 : TSpeedButton;


SpeedButton6 : TSpeedButton;


StringGrid1 : TStringGrid;


timer1 : TAnalogClock;


ct1 : word;


ct2 : word;


ct3 : word;


minu : byte;


mm : array[0..100] of byte;


st1 : tstringlist;

Private declarations


st2 : tstringlist;


st3 : tstringlist;


st4 : tstringlist;


thest : byte;