Init Method
Class: ordtextbox
Expand/Collapse source code of procedure Init Source Code
tsTextBox::Init()
*-- Disable all text boxes if we are running the Order History
*-- form and the text box isn't already disabled.
IF this.Enabled
  this.Enabled = !("HISTORY" $ UPPER(thisform.name))
  IF !this.Enabled
    *-- If this is Order History, prevent text boxes
    *-- from changing the Enabled property
    this.lDynamicEnable = .F.
  ENDIF
ENDIF