Procedure

TfrmLabTestGroups.cboUsersClick

Module

fLabTestGroups

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmLabTestGroups

Declaration

procedure cboUsersClick(Sender: TObject);

Calls Hierarchy


TfrmLabTestGroups.cboUsersClick
 ├TestGroups
 └TfrmLabTestGroups.TestGroupEnable

Called-By Hierarchy


    TfrmLabTestGroups.cboUsersClick
     TfrmLabTestGroups.FormCreate┤ 
TfrmLabTestGroups.cmdReplaceClick┤ 
    TfrmLabTestGroups.cmdAddClick┤ 
 TfrmLabTestGroups.cmdDeleteClick┘ 

Calls

Name Declaration Comments
TfrmLabTestGroups.TestGroupEnable procedure TestGroupEnable; -
TestGroups function TestGroups(user: int64): TStrings; -

Called-By

Name Declaration Comments
TfrmLabTestGroups.cmdAddClick procedure cmdAddClick(Sender: TObject); -
TfrmLabTestGroups.cmdDeleteClick procedure cmdDeleteClick(Sender: TObject); -
TfrmLabTestGroups.cmdReplaceClick procedure cmdReplaceClick(Sender: TObject); -
TfrmLabTestGroups.FormCreate procedure FormCreate(Sender: TObject); -


Source

271   procedure TfrmLabTestGroups.cboUsersClick(Sender: TObject);
272   begin
273     FastAssign(TestGroups(cboUsers.ItemIEN), lstTestGroups.Items);
274     TestGroupEnable;
275   end;