Module

fxLists

Path

C:\CPRS\CPRS30\fxLists.pas

Last Modified

7/15/2014 3:26:40 PM

Units Used in Interface

Name Comments
fBase508Form -

Classes

Name Comments
TfrmDbgList -

Procedures

Name Owner Declaration Scope Comments
DebugListItems - procedure DebugListItems(AListBox: TListBox); Interfaced -
FormKeyUp TfrmDbgList procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -


Module Source

1     unit fxLists;
2     
3     interface
4     
5     uses
6       Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
7       StdCtrls, fBase508Form, VA508AccessibilityManager;
8     
9     type
10      TfrmDbgList = class(TfrmBase508Form)
11        memData: TMemo;
12        procedure FormKeyUp(Sender: TObject; var Key: Word;
13          Shift: TShiftState);
14      private
15        { Private declarations }
16      public
17        { Public declarations }
18      end;
19    
20    procedure DebugListItems(AListBox: TListBox);
21    
22    implementation
23    
24    {$R *.DFM}
25    
26    uses
27      ORFn, ORCtrls;
28    
29    procedure DebugListItems(AListBox: TListBox);
30    var
31      frmDbgList: TfrmDbgList;
32    begin
33      frmDbgList := TfrmDbgList.Create(Application);
34      try
35        ResizeAnchoredFormToFont(frmDbgList);
36        with frmDbgList do
37        begin
38          if AListBox is TORListBox then
39            FastAssign(TORListBox(AListBox).Items, memData.Lines)
40          else
41            memData.Lines.Assign(AListBox.Items);
42          ShowModal;
43        end;
44      finally
45        frmDbgList.Release;
46      end;
47    end;
48    
49    procedure TfrmDbgList.FormKeyUp(Sender: TObject; var Key: Word;
50      Shift: TShiftState);
51    begin
52      if Key = VK_ESCAPE then
53      begin
54        Key := 0;
55        Close;
56      end;
57    end;
58    
59    end.

Module Calls (2 levels)


fxLists
 └fBase508Form
   ├uConst
   └uHelpManager

Module Called-By (2 levels)


                    fxLists
                   fFrame┘ 
              CPRSChart┤   
                  fPage┤   
                uOrders┤   
                fODBase┤   
                UBACore┤   
                fOrders┤   
                   uPCE┤   
      fBALocalDiagnoses┤   
             fEncVitals┤   
                fVitals┤   
                 fCover┤   
                 rCover┤   
              fPtSelMsg┤   
                 fPtSel┤   
            fOrdersSign┤   
         fPrintLocation┤   
                  fMeds┤   
                fRptBox┤   
                 fNotes┤   
               fReports┤   
                 fEncnt┤   
                 fProbs┤   
          fReportsPrint┤   
                fGraphs┤   
              fConsults┤   
                fDCSumm┤   
        fReminderDialog┤   
                  fLabs┤   
              fLabPrint┤   
                fReview┤   
            fIconLegend┤   
           fOrdersPrint┤   
               fSurgery┤   
uVA508CPRSCompatibility┤   
           fOrdersRenew┤   
             fODConsult┤   
                fODProc┤   
                 fODRad┤   
                 fODLab┤   
                fODMeds┤   
               fODMedIV┤   
              fODVitals┤   
                fODAuto┤   
                 fOMSet┤   
         fOrdersRelease┤   
              fODMedNVA┤   
         fOrdersOnChart┤   
             fOCSession┤   
              fODActive┤   
               fPCEEdit┘