Procedure

TfrmProblems.mnuViewRestoreDefaultClick

Module

fProbs

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmProblems

Declaration

procedure mnuViewRestoreDefaultClick(Sender: TObject);

Calls Hierarchy


TfrmProblems.mnuViewRestoreDefaultClick
 ├TPLFilters.Destroy
 ├TPLUserParams.Destroy
 ├TfrmProblems.ShowPnlView
 └TfrmProblems.LoadProblems
   ├TfrmPage.GetInitPatient
   ├TfrmProblems.LoadUserParams
   │ ├InitUser
   │ ├TPLUserParams.Create
   │ └TfrmProblems.pnlRightResize
   │   ├TfrmProblems.SetGridPieces
   │   │ └ForChars
   │   ├TfrmProblems.ApplyViewFilters
   │   ├TfrmProblems.RefreshList
   │   │ └TfrmProblems.PlainText
   │   └TfrmProblems.GetRowCount
   ├TfrmProblems.LoadPatientParams
   │ ├InitPt
   │ └TPLPt.Create
   ├TfrmProblems.LoadPatientProblems
   │ ├TPLFilters.create
   │ ├TfrmProblems.ClearGrid
   │ ├FMNow
   │ ├ProblemList
   │ ├TfrmProblems.SetGridPieces...
   │ ├ReverseList
   │ ├TfrmProblems.RefreshList...
   │ ├TfrmProblems.NoRowSelected
   │ ├GetProblemComments
   │ ├SetViewFilters
   │ │ ├LoadFilterList
   │ │ └ShowFilterStatus
   │ ├InitViewFilters
   │ │ └SetViewFilters...
   │ ├TfrmProblems.ApplyViewFilters
   │ ├TfrmProblems.MString
   │ ├TfrmProblems.wgProbDataClick
   │ │ ├TfrmProblems.MString
   │ │ ├TfrmProblems.NoRowSelected
   │ │ └TfrmProblems.RowSelected
   │ │   └TfrmProblems.MString
   │ ├TfrmProblems.RowSelected...
   │ └TfrmProblems.pnlRightResize...
   └TfrmProblems.LoadUserCats
     ├UserProblemCategories
     └TfrmProblems.lstCatPickClick
       └TfrmProblems.LoadUserProbs
         └UserProblemList

Calls

Name Declaration Comments
TPLFilters.Destroy destructor Destroy; override; -
TPLUserParams.Destroy destructor Destroy; override; -
TfrmProblems.LoadProblems procedure LoadProblems; -
TfrmProblems.ShowPnlView procedure ShowPnlView(); -


Source

1742  procedure TfrmProblems.mnuViewRestoreDefaultClick(Sender: TObject);
1743  begin
1744    inherited;
1745    if PLPt = nil then
1746      begin
1747        InfoBox(TX_INVALID_PATIENT, TC_NO_PATIENT, MB_OK or MB_ICONWARNING);
1748        Exit;
1749      end;
1750    if PLFilters <> nil then
1751      begin
1752        PLFilters.Destroy;
1753        PLFilters := nil;
1754      end;
1755    if PLUser <> nil then
1756      begin
1757        PLUser.Destroy;
1758        PLUser := nil;
1759      end;
1760    if ScreenReaderActive then
1761       GetScreenReader.Speak('Returning to default view.');
1762    ShowPnlView;
1763    LoadProblems ;
1764  end;