Class

TfrmOCSession

Module

fOCSession

Last Modified

7/15/2014 3:26:40 PM

Scope

Interfaced

Inherits from

TfrmAutoSz

Declaration


TfrmOCSession = class(TfrmAutoSz)
  pnlBottom: TPanel;
  lblJustify: TLabel;
  txtJustify: TCaptionEdit;
  cmdCancelOrder: TButton;
  cmdContinue: TButton;
  btnReturn: TButton;
  memNote: TMemo;
  cmdMonograph: TButton;
  grdchecks: TCaptionStringGrid;
  lblInstr: TVA508StaticText;
  pnlTop: TORAutoPanel;
  lblHover: TLabel;
  procedure cmdCancelOrderClick(Sender: TObject);
  procedure cmdContinueClick(Sender: TObject);
  procedure FormClose(Sender: TObject; var Action: TCloseAction);
  procedure FormShow(Sender: TObject);
  procedure FormResize(Sender: TObject);
  procedure txtJustifyKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure btnReturnClick(Sender: TObject);
  procedure memNoteEnter(Sender: TObject);
  procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  procedure cmdMonographClick(Sender: TObject);
  procedure grdchecksDrawCell(Sender: TObject; ACol, ARow: Integer;
    Rect: TRect; State: TGridDrawState);
  function CheckBoxRect(poRect: TRect): TRect;
  function GetCheckState(grid: TStringGrid; ACol, ARow: integer): boolean;
  function InCheckBox(Grid: TStringGrid; X, Y, ACol, ARow: integer): boolean;
  procedure SetCheckState(grid: TStringGrid; ACol, ARow: integer; State: boolean);
  procedure grdchecksMouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
  procedure grdchecksSelectCell(Sender: TObject; ACol, ARow: Integer;
    var CanSelect: Boolean);
  procedure GridDeleteRow(RowNumber: Integer; Grid: TstringGrid);
  procedure grdchecksEnter(Sender: TObject);
  procedure FormCreate(Sender: TObject);
  procedure grdchecksKeyDown(Sender: TObject; var Key: Word;
    Shift: TShiftState);
  procedure grdchecksMouseWheelDown(Sender: TObject; Shift: TShiftState;
    MousePos: TPoint; var Handled: Boolean);
  procedure grdchecksMouseWheelUp(Sender: TObject; Shift: TShiftState;
    MousePos: TPoint; var Handled: Boolean);
  procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState;
    MousePos: TPoint; var Handled: Boolean);
  procedure grdchecksMouseMove(Sender: TObject; Shift: TShiftState; X,
    Y: Integer);
 // procedure memNoteSetText(str: string);
private
  FCritical: Boolean;
  FCancelSignProcess : Boolean;
  FCheckList: TStringList;
  FOrderList: TStringList;
  procedure SetReqJustify;
  procedure SetReturn(const Value: Boolean);
public
  { Public declarations }
  property CancelSignProcess : Boolean read FCancelSignProcess write SetReturn default false;
end;

DFM Objects


frmOCSession : TfrmOCSession
 ├pnlBottom : TPanel
 │ ├lblJustify : TLabel
 │ ├memNote : TMemo
 │ ├txtJustify : TCaptionEdit
 │ ├cmdCancelOrder : TButton
 │ ├cmdContinue : TButton
 │ ├btnReturn : TButton
 │ └cmdMonograph : TButton
 ├pnlTop : TORAutoPanel
 │ ├lblHover : TLabel
 │ ├grdchecks : TCaptionStringGrid
 │ └lblInstr : TVA508StaticText
 └amgrMain : TVA508AccessibilityManager

Class Hierarchy


Class Fields

Name Type Scope Comments
btnReturn TButton Public/Published -
cmdCancelOrder TButton Public/Published -
cmdContinue TButton Public/Published -
cmdMonograph TButton Public/Published -
FCancelSignProcess Boolean Private -
FCheckList TStringList Private -
FCritical Boolean Private -
FOrderList TStringList Private -
grdchecks TCaptionStringGrid Public/Published -
lblHover TLabel Public/Published -
lblInstr TVA508StaticText Public/Published -
lblJustify TLabel Public/Published -
memNote TMemo Public/Published -
pnlBottom TPanel Public/Published -
pnlTop TORAutoPanel Public/Published -
txtJustify TCaptionEdit Public/Published -

Properties

Name Type Scope Comments
CancelSignProcess Boolean Public Public declarations

Methods

Name Declaration Scope Comments
btnReturnClick procedure btnReturnClick(Sender: TObject); Public/Published -
CheckBoxRect function CheckBoxRect(poRect: TRect): TRect; Public/Published -
cmdCancelOrderClick procedure cmdCancelOrderClick(Sender: TObject); Public/Published -
cmdContinueClick procedure cmdContinueClick(Sender: TObject); Public/Published -
cmdMonographClick procedure cmdMonographClick(Sender: TObject); Public/Published -
FormClose procedure FormClose(Sender: TObject; var Action: TCloseAction); Public/Published -
FormCreate procedure FormCreate(Sender: TObject); Public/Published -
FormKeyDown procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
FormMouseWheelDown procedure FormMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); Public/Published -
FormResize procedure FormResize(Sender: TObject); Public/Published -
FormShow procedure FormShow(Sender: TObject); Public/Published -
GetCheckState function GetCheckState(grid: TStringGrid; ACol, ARow: integer): boolean; Public/Published -
grdchecksDrawCell procedure grdchecksDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); Public/Published -
grdchecksEnter procedure grdchecksEnter(Sender: TObject); Public/Published -
grdchecksKeyDown procedure grdchecksKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -
grdchecksMouseDown procedure grdchecksMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); Public/Published -
grdchecksMouseMove procedure grdchecksMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); Public/Published
P : Tpoint;
Rect: TRect;
grdchecksMouseWheelDown procedure grdchecksMouseWheelDown(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); Public/Published -
grdchecksMouseWheelUp procedure grdchecksMouseWheelUp(Sender: TObject; Shift: TShiftState; MousePos: TPoint; var Handled: Boolean); Public/Published -
grdchecksSelectCell procedure grdchecksSelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); Public/Published -
GridDeleteRow procedure GridDeleteRow(RowNumber: Integer; Grid: TstringGrid); Public/Published -
InCheckBox function InCheckBox(Grid: TStringGrid; X, Y, ACol, ARow: integer): boolean; Public/Published -
memNoteEnter procedure memNoteEnter(Sender: TObject); Public/Published -
SetCheckState procedure SetCheckState(grid: TStringGrid; ACol, ARow: integer; State: boolean); Public/Published -
SetReqJustify procedure SetReqJustify; Private -
SetReturn procedure SetReturn(const Value: Boolean); Private -
txtJustifyKeyDown procedure txtJustifyKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); Public/Published -

Referenced By (2)

Module (line) Referrer Type
fOCSession (150) - Read
fOCSession (161) - Read