Function

ShowOtherRoutes

Module

fIVRoutes

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Declaration

function ShowOtherRoutes(var Route: string): boolean;

Calls Hierarchy


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

Called-By Hierarchy


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

Calls

Name Declaration Comments
TfrmBase508Form.Create constructor Create(AOwner: TComponent); override; -
SetFormPosition procedure SetFormPosition(AForm: TForm); -

Called-By

Name Declaration Comments
TfrmODMedIV.CreateOtherRoute function CreateOtherRoute: string; -


Source

35    function ShowOtherRoutes(var Route: string): boolean;
36    var
37    idx: integer;
38    begin
39         Result := false;
40         frmIVRoutes := TfrmIVRoutes.Create(Application);
41         ResizeFormToFont(TForm(frmIVRoutes));
42         SetFormPosition(frmIVRoutes);
43         //LoadAllIVRoutes(frmIVRoutes.cboAllIVRoutes.Items);
44         if frmIVRoutes.ShowModal = mrOK then
45           begin
46             idx := frmIVRoutes.cboAllIVRoutes.ItemIndex;
47             if idx > -1 then
48               begin
49                 Route := frmIVRoutes.cboAllIVRoutes.Items.Strings[idx];
50                 setPiece(Route,U,5,'1');
51               end
52             else Route := '';
53             Result := True;
54           end;
55         frmIVRoutes.Free;
56    end;