Class Tmainform (unit newsmain) |
Inherits from
TForm
@/// Tmainform = class(TForm)
procedure btn_connectClick(Sender: TObject);
@\\\0000001003*) (*@/// procedure Tmainform.
procedure edt_articleChange(Sender: TObject);
@\\\0000000903*) (*@/// procedure Tmainform.
procedure FormClose(Sender: TObject; var Action: TCloseAction);
@\\\0000001203*) (*@/// procedure Tmainform.
procedure FormCreate(Sender: TObject);
@\\\0000000803*) (*@/// procedure Tmainform.
procedure lbx_newsgroupsDblClick(Sender: TObject);
@/// procedure Tmainform.
procedure mnu_getallClick(Sender: TObject);
@\\\0000000703*) (*@/// procedure Tmainform.
procedure mnu_getnewClick(Sender: TObject);
@\\\0000000B03*) (*@/// procedure Tmainform.
procedure mnu_saveClick(Sender: TObject);
@\\\0000000B03*) (*@/// procedure Tmainform.
btn_connect : TButton;
dlg_save : TSaveDialog;
edt_article : TSpinEdit;
edt_hostname : TEdit;
lbl_article : TLabel;
lbl_count : TLabel;
lbl_groups : TLabel;
lbl_hostname : TLabel;
lbx_newsgroups : TListBox;
mem_article : TMemo;
mnu_article : TPopupMenu;
mnu_getall : TMenuItem;
mnu_getnew : TMenuItem;
mnu_groups : TPopupMenu;
mnu_save : TMenuItem;
NNTP : T_NNTP;
active : boolean;
last : integer;
procedure btn_connectClick(Sender: TObject);
@\\\0000001003*) (*@/// procedure Tmainform.btn_connectClick(Sender: TObject);
procedure edt_articleChange(Sender: TObject);
@\\\0000000903*) (*@/// procedure Tmainform.edt_articleChange(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
@\\\0000001203*) (*@/// procedure Tmainform.FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
@\\\0000000803*) (*@/// procedure Tmainform.FormCreate(Sender: TObject);
procedure lbx_newsgroupsDblClick(Sender: TObject);
@/// procedure Tmainform.lbx_newsgroupsDblClick(Sender: TObject);
procedure mnu_getallClick(Sender: TObject);
@\\\0000000703*) (*@/// procedure Tmainform.mnu_getallClick(Sender: TObject);
procedure mnu_getnewClick(Sender: TObject);
@\\\0000000B03*) (*@/// procedure Tmainform.mnu_getnewClick(Sender: TObject);
procedure mnu_saveClick(Sender: TObject);
@\\\0000000B03*) (*@/// procedure Tmainform.mnu_saveClick(Sender: TObject);
btn_connect : TButton;
dlg_save : TSaveDialog;
edt_article : TSpinEdit;
edt_hostname : TEdit;
lbl_article : TLabel;
lbl_count : TLabel;
lbl_groups : TLabel;
lbl_hostname : TLabel;
lbx_newsgroups : TListBox;
mem_article : TMemo;
mnu_article : TPopupMenu;
mnu_getall : TMenuItem;
mnu_getnew : TMenuItem;
mnu_groups : TPopupMenu;
mnu_save : TMenuItem;
NNTP : T_NNTP;
active : boolean;
last : integer;