Class

TfrmOrdersPrint

Module

fOrdersPrint

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Inherits from

TfrmBase508Form

Declaration


TfrmOrdersPrint = class(TfrmBase508Form)
  ckChartCopy: TCheckBox;
  ckLabels: TCheckBox;
  ckRequisitions: TCheckBox;
  ckWorkCopy: TCheckBox;
  lstChartDevice: TORListBox;
  lstLabelDevice: TORListBox;
  lstReqDevice: TORListBox;
  lstWorkDevice: TORListBox;
  cmdChart: TORAlignButton;
  cmdLabels: TORAlignButton;
  cmdReqs: TORAlignButton;
  cmdWork: TORAlignButton;
  cmdOK: TORAlignButton;
  cmdCancel: TORAlignButton;
  pnlBase: TORAutoPanel;
  lblDevice: TLabel;
  lblPartOne: TMemo;
  lblPart2: TMemo;
  procedure SetupControls(PrintParams: TPrintParams);
  procedure cmdChartClick(Sender: TObject);
  procedure cmdLabelsClick(Sender: TObject);
  procedure cmdReqsClick(Sender: TObject);
  procedure cmdWorkClick(Sender: TObject);
  procedure cmdOKClick(Sender: TObject);
  procedure cmdCancelClick(Sender: TObject);
  procedure ckChartCopyClick(Sender: TObject);
  procedure ckLabelsClick(Sender: TObject);
  procedure ckRequisitionsClick(Sender: TObject);
  procedure ckWorkCopyClick(Sender: TObject);
  procedure DeviceListClick(Sender: TObject);
  procedure FormKeyUp(Sender: TObject; var Key: Word;
    Shift: TShiftState);
private
  FPrintIt: boolean;
  FSelectAll: boolean;
  FDevices: string;
  FNature: char;
  procedure SetupPrompting(CheckBox: TCheckBox; DeviceList: TORListBox; ChangeButton: TORAlignButton;
            PromptParam: char; DeviceParam: string);
end;

DFM Objects


frmOrdersPrint : TfrmOrdersPrint
 ├pnlBase : TORAutoPanel
 │ ├lblDevice : TLabel
 │ ├lblPartOne : TMemo
 │ ├lblPart2 : TMemo
 │ ├ckChartCopy : TCheckBox
 │ ├ckLabels : TCheckBox
 │ ├ckRequisitions : TCheckBox
 │ ├ckWorkCopy : TCheckBox
 │ ├lstChartDevice : TORListBox
 │ ├lstLabelDevice : TORListBox
 │ ├lstReqDevice : TORListBox
 │ ├lstWorkDevice : TORListBox
 │ ├cmdChart : TORAlignButton
 │ ├cmdLabels : TORAlignButton
 │ ├cmdReqs : TORAlignButton
 │ ├cmdWork : TORAlignButton
 │ ├cmdOK : TORAlignButton
 │ └cmdCancel : TORAlignButton
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
ckChartCopy TCheckBox Public/Published -
ckLabels TCheckBox Public/Published -
ckRequisitions TCheckBox Public/Published -
ckWorkCopy TCheckBox Public/Published -
cmdCancel Simple (unknown) Public/Published -
cmdChart Simple (unknown) Public/Published -
cmdLabels Simple (unknown) Public/Published -
cmdOK Simple (unknown) Public/Published -
cmdReqs Simple (unknown) Public/Published -
cmdWork Simple (unknown) Public/Published -
FDevices UnicodeString Private -
FNature Char Private -
FPrintIt Boolean Private -
FSelectAll Boolean Private -
lblDevice TLabel Public/Published -
lblPart2 TMemo Public/Published -
lblPartOne TMemo Public/Published -
lstChartDevice TORListBox Public/Published -
lstLabelDevice TORListBox Public/Published -
lstReqDevice TORListBox Public/Published -
lstWorkDevice TORListBox Public/Published -
pnlBase TORAutoPanel Public/Published -

Methods

Name Declaration Scope Comments
ckChartCopyClick procedure ckChartCopyClick(Sender: TObject); Public/Published -
ckLabelsClick procedure ckLabelsClick(Sender: TObject); Public/Published -
ckRequisitionsClick procedure ckRequisitionsClick(Sender: TObject); Public/Published -
ckWorkCopyClick procedure ckWorkCopyClick(Sender: TObject); Public/Published -
cmdCancelClick procedure cmdCancelClick(Sender: TObject); Public/Published Force autoprint of 'don't prompt' items, regardless of continue/cancel selection.
cmdChartClick procedure cmdChartClick(Sender: TObject); Public/Published -
cmdLabelsClick procedure cmdLabelsClick(Sender: TObject); Public/Published -
cmdOKClick procedure cmdOKClick(Sender: TObject); Public/Published -
cmdReqsClick procedure cmdReqsClick(Sender: TObject); Public/Published -
cmdWorkClick procedure cmdWorkClick(Sender: TObject); Public/Published -
DeviceListClick procedure DeviceListClick(Sender: TObject); Public/Published -
FormKeyUp procedure FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
SetupControls procedure SetupControls(PrintParams: TPrintParams); Public/Published -
SetupPrompting procedure SetupPrompting(CheckBox: TCheckBox; DeviceList: TORListBox; ChangeButton: TORAlignButton; PromptParam: char; DeviceParam: string); Private
0 - no prompts - copy is automatically generated.
             checkbox checked   and disabled,   device defaulted and button disabled
         1 - prompt for copy and ask which printer should be used.
             checkbox unchecked and enabled,    device defaulted and button enabled
         2 - prompt for copy and automatically print to the
             printer defined in the XXXXX COPY PRINT DEVICE field.
             checkbox unchecked and enabled,    device defaulted and button disabled
         * - don't print.
             checkbox unchecked and disabled,   device empty     and button disabled

Referenced By (3)

Module (line) Referrer Type
fOrdersPrint (54) frmOrdersPrint Read
fOrdersPrint (76) - Read
fOrdersPrint (78) - Read