Procedure

TfrmProblems.pnlRightResize

Module

fProbs

Last Modified

7/15/2014 3:26:38 PM

Visibility

Public/Published

Owner

TfrmProblems

Declaration

procedure pnlRightResize(Sender:TObject);

Calls Hierarchy


TfrmProblems.pnlRightResize
 ├TfrmProblems.SetGridPieces
 │ └ForChars
 ├TfrmProblems.ApplyViewFilters
 ├TfrmProblems.RefreshList
 │ └TfrmProblems.PlainText
 └TfrmProblems.GetRowCount

Called-By Hierarchy


                  TfrmProblems.pnlRightResize
              TfrmProblems.lstProbActsClick┤ 
          TfrmProblems.wgProbDataDblClick┤ │ 
                TfrmProblems.lstViewClick┘ │ 
        TfrmProblems.HighlightDuplicate┘   │ 
              TfrmProblems.AddProblem┤     │ 
   TfrmProblems.lstProbActsClick...┤ │     │ 
      TfrmProblems.lstProbPickClick┤ │     │ 
   TfrmProblems.lstProbPickDblClick┤ │     │ 
   TfrmProblems.edProbEntKeyPress┘ │ │     │ 
           TfrmProblems.UMPLLexicon┘ │     │ 
        TfrmdlgProb.bbChangeProbClick┘     │ 
                TfrmProblems.LoadUserParams┤ 
                TfrmProblems.LoadProblems┘ │ 
               TfrmProblems.DisplayPage┤   │ 
TfrmProblems.mnuViewRestoreDefaultClick┤   │ 
                  TfrmProblems.FormShow┘   │ 
           TfrmProblems.LoadPatientProblems┘ 
         TfrmProblems.lstProbActsClick...┤   
             TfrmProblems.LoadProblems...┤   
              TfrmProblems.RestoreProblem┤   
       TfrmProblems.lstProbActsClick...┘ │   
                    TfrmdlgProb.FormClose┘   

Calls

Name Declaration Comments
TfrmProblems.ApplyViewFilters procedure ApplyViewFilters; -
TfrmProblems.GetRowCount procedure GetRowCount; -
TfrmProblems.RefreshList procedure RefreshList; -
TfrmProblems.SetGridPieces procedure SetGridPieces(Pieces: string); -

Called-By

Name Declaration Comments
TfrmProblems.LoadPatientProblems procedure LoadPatientProblems(AList:TstringList;const status:char;init:boolean); -
TfrmProblems.LoadUserParams procedure LoadUserParams(Alist:TstringList); -
TfrmProblems.lstProbActsClick procedure lstProbActsClick(Sender: TObject); -


Source

926   procedure TfrmProblems.pnlRightResize(Sender: TObject);
927   begin
928     if PLUser = nil then exit;
929     if PLUser.usCurrentView = PL_IP_VIEW then
930       SetGridPieces('2,3,4,5,8,9')
931     else if PLUser.usCurrentView = PL_OP_VIEW then
932       SetGridPieces('2,3,4,5,7');
933     {have to do this to recover hidden rows}
934     ApplyViewFilters;
935     RefreshList;
936     GetRowCount;
937     //PostMessage(frmProblems.Handle, UM_PLFILTER,0,0);
938   end;