Procedure

TfrmGraphs.AddOnLabGroups

Module

fGraphs

Last Modified

7/15/2014 3:26:36 PM

Visibility

Private

Owner

TfrmGraphs

Declaration

procedure AddOnLabGroups(aListBox: TORListBox; personien: int64);

Calls Hierarchy


TfrmGraphs.AddOnLabGroups
 └rpcTestGroups

Called-By Hierarchy


                TfrmGraphs.AddOnLabGroups
                   TfrmGraphs.FillViews┘ 
                TfrmGraphs.FormCreate┤   
   TfrmGraphs.btnGraphSelectionsClick┘   
TfrmReports.btnGraphSelectionsClick┘     

Calls

Name Declaration Comments
rpcTestGroups function rpcTestGroups(user: int64): TStrings; -

Called-By

Name Declaration Comments
TfrmGraphs.FillViews procedure FillViews; -


Source

688   procedure TfrmGraphs.AddOnLabGroups(aListBox: TORListBox; personien: int64);
689   var
690     i: integer;
691   begin
692     if personien < 1 then personien := User.DUZ;
693     FastAssign(rpcTestGroups(personien), GtslLabGroup);
694     GtslLabGroup.Sorted := true;
695     if GtslLabGroup.Count > 0 then
696     begin
697       aListBox.Items.Add(LLS_FRONT + copy('Lab Groups' + LLS_BACK, 0, 60) + '^0');
698       for i := 0 to GtslLabGroup.Count - 1 do
699         aListBox.Items.Add(VIEW_LABS + '^' + Piece(GtslLabGroup[i], '^', 2)
700           + '^' + Piece(GtslLabGroup[i], '^', 1) + '^' + inttostr(personien));
701     end;
702   end;