Function

TfrmPage.GetInitPage

Module

fPage

Last Modified

7/15/2014 3:26:38 PM

Comments

If the count is one, this is the first time the page is being displayed

Visibility

Private

Owner

TfrmPage

Declaration

function GetInitPage: Boolean;

Called-By Hierarchy


        TfrmPage.GetInitPage
      TfrmLabs.DisplayPage┤ 
    TfrmDCSumm.DisplayPage┤ 
  TfrmConsults.DisplayPage┤ 
    TfrmOrders.DisplayPage┤ 
      TfrmMeds.DisplayPage┤ 
   TfrmSurgery.DisplayPage┤ 
   TfrmReports.DisplayPage┤ 
     TfrmNotes.DisplayPage┤ 
     TfrmCover.DisplayPage┘ 
TfrmCover.CoverItemClick┘   

Called-By

Name Declaration Comments
TfrmLabs.DisplayPage procedure DisplayPage; override; -
TfrmDCSumm.DisplayPage procedure DisplayPage; override; -
TfrmConsults.DisplayPage procedure DisplayPage; override; -
TfrmOrders.DisplayPage procedure DisplayPage; override; -
TfrmMeds.DisplayPage procedure DisplayPage; override; -
TfrmSurgery.DisplayPage procedure DisplayPage; override; -
TfrmReports.DisplayPage procedure DisplayPage; override; -
TfrmNotes.DisplayPage procedure DisplayPage; override; -
TfrmCover.DisplayPage procedure DisplayPage; override; -


Source

119   function TfrmPage.GetInitPage: Boolean;
120   { if the count is one, this is the first time the page is being displayed }
121   begin
122     Result := FDisplayCount = 1;
123   end;