| Class Tmainf (unit Umail) |
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);
procedure FormResize(Sender: TObject);
procedure KSTransForm1ButtonClick(Button: Integer);
procedure Outline1Click(Sender: TObject);
procedure ReplyMail1Click(Sender: TObject);
procedure SaveMail1Click(Sender: TObject);
procedure Showmails1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton6Click(Sender: TObject);
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;| 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;
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;