Class Tmainf (unit Umail) |
Inherits from
TForm
WTaskBar,
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.
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;
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;
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;