Class Tfrm_main (unit d_main)

Inherits from

TForm

@\\\0000000401*) (*@/// TForm1 = class(TForm)

Constructors



Functions

procedure btn_saveClick(Sender: TObject);

@\\\0000000108*) (*@/// procedure Tfrm_main.

procedure FingerFingerRequest(Sender: TObject; FingerInfo: TFingerInfo);

@\\\0000000301*) (*@/// procedure TForm1.

procedure FormCreate(Sender: TObject);

@\\\0000001101*) (*@/// procedure TForm1.

procedure lbx_userClick(Sender: TObject);

@\\\0000000708*) (*@/// procedure TForm1.

procedure mem_textChange(Sender: TObject);

@\\\0000000801*) (*@/// procedure Tfrm_main.

procedure mnuClick(Sender: TObject);

@\\\0000000115*) (*@/// procedure TForm1.

Properties

Events

Variables

btn_save : TButton;


current : integer;


Finger : T_Fingerd;


lbl_no_req : TLabel;


lbl_request : TLabel;


lbx_user : TListBox;


mem_text : TMemo;


mnu_del : TMenuItem;


mnu_New : TMenuItem;


mnu_pop : TPopupMenu;



Constructors


Functions


procedure btn_saveClick(Sender: TObject);

@\\\0000000108*) (*@/// procedure Tfrm_main.btn_saveClick(Sender: TObject);


procedure FingerFingerRequest(Sender: TObject; FingerInfo: TFingerInfo);

@\\\0000000301*) (*@/// procedure TForm1.FingerFingerRequest(Sender: TObject;FingerInfo: TFingerInfo);


procedure FormCreate(Sender: TObject);

@\\\0000001101*) (*@/// procedure TForm1.FormCreate(Sender: TObject);


procedure lbx_userClick(Sender: TObject);

@\\\0000000708*) (*@/// procedure TForm1.lbx_userClick(Sender: TObject);


procedure mem_textChange(Sender: TObject);

@\\\0000000801*) (*@/// procedure Tfrm_main.mem_textChange(Sender: TObject);


procedure mnuClick(Sender: TObject);

@\\\0000000115*) (*@/// procedure TForm1.mnuClick(Sender: TObject);


Properties


Events


Variables


btn_save : TButton;


current : integer;


Finger : T_Fingerd;


lbl_no_req : TLabel;


lbl_request : TLabel;


lbx_user : TListBox;


mem_text : TMemo;


mnu_del : TMenuItem;


mnu_New : TMenuItem;


mnu_pop : TPopupMenu;