Procedure

TfrmBALocalDiagnoses.btnPrimaryClick

Module

fBALocalDiagnoses

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmBALocalDiagnoses

Declaration

procedure btnPrimaryClick(Sender: TObject);

Calls Hierarchy


TfrmBALocalDiagnoses.btnPrimaryClick
 └TfrmBALocalDiagnoses.EnsurePrimary

Calls

Name Declaration Comments
TfrmBALocalDiagnoses.EnsurePrimary procedure EnsurePrimary; -


Source

547   procedure TfrmBALocalDiagnoses.btnPrimaryClick(Sender: TObject);
548   var
549     i: shortint;
550     Primary: boolean;
551   begin
552     inherited;
553      Primary := FALSE;
554      if lvDxGrid.Items.Count = 0 then Exit; //** Exit if list empty
555      for i := 0 to lvDxGrid.Items.Count-1 do
556      begin
557      if(lvDxGrid.Items[i].Selected) then
558      begin
559         if not Primary then
560         begin
561            LvDxGrid.Items[i].SubItems[0] := UBAConst.PRIMARY_DX;
562            Primary :=TRUE;
563         end;
564      end
565      else
566         LvDxGrid.Items[i].SubItems[0] := UBAConst.SECONDARY_DX ;
567      end;
568   
569        if not Primary then EnsurePrimary;
570   end;