Procedure

TfrmLabTestGroups.cmdReplaceClick

Module

fLabTestGroups

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmLabTestGroups

Declaration

procedure cmdReplaceClick(Sender: TObject);

Calls Hierarchy


TfrmLabTestGroups.cmdReplaceClick
 ├UTGReplace
 └TfrmLabTestGroups.cboUsersClick
   ├TestGroups
   └TfrmLabTestGroups.TestGroupEnable

Calls

Name Declaration Comments
TfrmLabTestGroups.cboUsersClick procedure cboUsersClick(Sender: TObject); -
UTGReplace procedure UTGReplace(tests: TStrings; testgroup: integer); -


Source

317   procedure TfrmLabTestGroups.cmdReplaceClick(Sender: TObject);
318   var
319     text: string;
320     i: integer;
321   begin
322     text := 'Do you want to REPLACE your test group -' + #13 + '  ';
323     text := text + lstTestGroups.DisplayText[lstTestGroups.ItemIndex] + #13;
324     text := text + ' with:' + #13 + '  ';
325     for i := 0 to lstList.Items.Count -1 do
326       text := text + lstList.DisplayText[i] + #13 + '  ';
327     if InfoBox(text,'Confirmation', MB_YESNO or MB_ICONQUESTION) = IDYES then
328     begin
329       UTGReplace(lstList.Items, lstTestGroups.ItemIEN); //Show508Message('Replace'); //Replace
330       if ScreenReaderSystemActive then
331         GetScreenReader.Speak('test group replaced');
332     end;
333     cboUsersClick(self);
334     lstTestGroups.SetFocus;  
335   end;