Class Tfrm_main (unit d_main) |
Inherits from
TForm
@\\\0000000401*) (*@/// TForm1 = class(TForm)
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.
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;
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);
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;