Class Tmainform (unit newsmain)

Inherits from

TForm

@/// Tmainform = class(TForm)

Constructors



Functions

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.

Properties

Events

Variables

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;



Constructors


Functions


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);


Properties


Events


Variables


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;