Procedure

TfrmdlgProb.FormClose

Module

fProbEdt

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmdlgProb

Declaration

procedure FormClose(Sender: TObject; var Action: TCloseAction);

Calls Hierarchy


TfrmdlgProb.FormClose
 └TfrmProblems.LoadPatientProblems
   ├TPLFilters.create
   ├TfrmProblems.ClearGrid
   ├FMNow
   ├ProblemList
   ├TfrmProblems.SetGridPieces
   │ └ForChars
   ├ReverseList
   ├TfrmProblems.RefreshList
   │ └TfrmProblems.PlainText
   ├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.SetGridPieces...
     ├TfrmProblems.ApplyViewFilters
     ├TfrmProblems.RefreshList...
     └TfrmProblems.GetRowCount

Calls

Name Declaration Comments
TfrmProblems.LoadPatientProblems procedure LoadPatientProblems(AList:TstringList;const status:char;init:boolean); -


Source

693   procedure TfrmdlgProb.FormClose(Sender: TObject; var Action: TCloseAction);
694   var
695     Alist: TStringList;
696   begin
697     AList := TStringList.Create;
698     try
699       //frmProblems.lblProbList.caption := frmProblems.pnlRight.Caption ;  {moved to bbQuit - only on CANCEL}
700       TWinControl(parent).visible := false;
701       with frmProblems do
702         begin
703           pnlProbList.Visible := False ;
704           edProbEnt.text := '';
705           pnlView.BringToFront ;
706           pnlView.Show   ;
707           mnuView.Enabled := True;
708           mnuAct.Enabled := True ;
709           lstView.Enabled := True ;
710           bbNewProb.Enabled := true ;
711           if fChanged then LoadPatientProblems(AList, PLUser.usViewAct[1], False);
712         end ;
713       Action := caFree;
714    finally
715       AList.Free;
716     end;
717   end;