Procedure

TfrmConsultsByService.cboServiceSelect

Module

fConsultBS

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmConsultsByService

Declaration

procedure cboServiceSelect(Sender: TObject);

Called-By Hierarchy


          TfrmConsultsByService.cboServiceSelect
                                 SelectService┘ 
                   TfrmConsults.mnuViewClick┘   
               TfrmConsults.SetViewContext┘     
                TfrmConsults.DisplayPage┤       
TfrmConsults.mnuViewReturntoDefaultClick┘       

Called-By

Name Declaration Comments
SelectService function SelectService(FontSize: Integer; CurrentContext: TSelectContext; var ServiceContext: TServiceContext): boolean; -


Source

142   procedure TfrmConsultsByService.cboServiceSelect(Sender: TObject);
143   var
144     i: integer;
145   begin                                                                    
146     uChanging := True;
147     with treService do for i := 0 to Items.Count-1 do
148       begin                                                                
149         if Piece(TORTreeNode(Items[i]).StringData, U, 1) = cboService.ItemID then
150           begin                                                            
151             Selected := Items[i];                                          
152             //treServiceChange(Self, Items[i]);                              
153             break;                                                         
154           end;                                                             
155       end;
156     uChanging := False;
157     SvcInfo  := TORTreeNode(treService.Selected).StringData ;
158   end;