Procedure

TfrmLabs.ragHorVClick

Module

fLabs

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmLabs

Declaration

procedure ragHorVClick(Sender: TObject);

Calls Hierarchy


TfrmLabs.ragHorVClick
 ├TfrmLabs.HGrid
 │ └LabPatchInstalled
 │   └ServerHasPatch
 └TfrmLabs.VGrid
   └LabPatchInstalled...

Calls

Name Declaration Comments
TfrmLabs.HGrid procedure HGrid(griddata: TStrings); -
TfrmLabs.VGrid procedure VGrid(griddata: TStrings); -


Source

2468  procedure TfrmLabs.ragHorVClick(Sender: TObject);
2469  begin
2470    inherited;
2471    if ragHorV.ItemIndex = 0 then HGrid(tmpGrid) else VGrid(tmpGrid);
2472  end;