home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / fddbase.pak / PWTEST.WFK < prev    next >
Encoding:
Text File  |  1995-08-24  |  853 b   |  39 lines
  1. ** END HEADER -- do not remove this line*
  2. * Generated on 12/08/94
  3. *
  4. LOCAL f
  5. f = NEW PWTESTFORM()
  6. f.Open()
  7.  
  8. CLASS PWTESTFORM OF FORM
  9.    Set Procedure To BUTTONS.CC additive
  10.    this.Left =          1
  11.    this.Top =          0
  12.    this.Text = "Form"
  13.    this.HelpId = ""
  14.    this.HelpFile = ""
  15.    this.Height =         18
  16.    this.Width =         63
  17.  
  18.    DEFINE PUSHBUTTON PUSHBUTTON1 OF THIS;
  19.        PROPERTY; 
  20.          Left         19,;
  21.          Top         13,;
  22.          ColorNormal "N/W",;
  23.          OnClick CLASS::PUSHBUTTON1_ONCLICK,;
  24.          Text "PushButton1",;
  25.          Group .T.,;
  26.          Height          2,;
  27.          Width         15,;
  28.          Default .T.
  29.  
  30.    Procedure PUSHBUTTON1_OnClick
  31.    if GetPassword("PASSWORD")
  32.        Form.COlorNormal = "G/G"
  33.    else
  34.        Form.COlorNormal = "R/R"
  35.    endif
  36.  
  37. ENDCLASS
  38.  
  39.