Procedure

TfrmConsultsView.cboServiceSelect

Module

fConsultsView

Last Modified

7/15/2014 3:26:34 PM

Visibility

Public/Published

Owner

TfrmConsultsView

Declaration

procedure cboServiceSelect(Sender: TObject);

Called-By Hierarchy


               TfrmConsultsView.cboServiceSelect
                            SelectConsultsView┘ 
                   TfrmConsults.mnuViewClick┘   
               TfrmConsults.SetViewContext┘     
                TfrmConsults.DisplayPage┤       
TfrmConsults.mnuViewReturntoDefaultClick┘       

Called-By

Name Declaration Comments
SelectConsultsView function SelectConsultsView(FontSize: Integer; CurrentContext: TSelectContext; var SelectContext: TSelectContext): boolean ; -


Source

224   procedure TfrmConsultsView.cboServiceSelect(Sender: TObject);
225   var                                                                      
226     i: integer;                                                            
227   begin                                                                    
228     uChanging := True;
229     with treService do for i := 0 to Items.Count-1 do
230       begin                                                                
231         if Piece(TORTreeNode(Items[i]).StringData,U,1) = cboService.ItemID then
232           begin                                                            
233             Selected := Items[i];                                          
234             //treServiceChange(Self, Items[i]);
235             break;                                                         
236           end;                                                             
237       end;
238     uChanging := False;
239     SvcInfo  := TORTreeNode(treService.Selected).StringData ;
240   end;