Function

TfrmODMedIV.CreateOtherRoute

Module

fODMedIV

Last Modified

7/15/2014 3:26:42 PM

Visibility

Private

Owner

TfrmODMedIV

Declaration

function CreateOtherRoute: string;

Calls Hierarchy


TfrmODMedIV.CreateOtherRoute
 └ShowOtherRoutes
   ├TfrmBase508Form.Create
   │ ├TfrmBase508Form.UpdateAccessibilityActions
   │ ├UnfocusableControlEnter
   │ └AdjustControls
   │   ├TfrmBase508Form.ModifyUnfocusableControl
   │   └..(rec)..
   └SetFormPosition
     └TSizeHolder.GetSize

Called-By Hierarchy


          TfrmODMedIV.CreateOtherRoute
           TfrmODMedIV.cboRouteClick┘ 
        TfrmODMedIV.cboRouteChange┤   
 TfrmODMedIV.txtAllIVRoutesClick┘ │   
   TfrmODMedIV.cboRouteKeyDown┘   │   
TfrmODMedIV.txtAllIVRoutesClick...┘   

Calls

Name Declaration Comments
ShowOtherRoutes function ShowOtherRoutes(var Route: string): boolean; -

Called-By

Name Declaration Comments
TfrmODMedIV.cboRouteClick procedure cboRouteClick(Sender: TObject); -


Source

2066  function TfrmODMedIV.CreateOtherRoute: string;
2067  var
2068    aRoute: string;
2069  begin
2070    aRoute := '';
2071    Result := '';
2072    if not ShowOtherRoutes(aRoute) then
2073      begin
2074        cboRoute.ItemIndex := -1;
2075        cboRoute.Text := '';
2076      end
2077    else
2078      begin
2079        Result := aRoute;
2080      end;
2081  end;