home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l408 / 2.img / EXAMPLES.EXE / EXAMPLES / EDITCOL / EDITCOL.SUB < prev   
Encoding:
Text File  |  1992-10-12  |  607 b   |  27 lines
  1. DefInt A-Z
  2. Const MhTrue = -1, MhFalse = 0
  3. Dim FinalColor&         ' For passing back / forth
  4.  
  5. Sub MhEditColors (YourControl As Control, FocusControl As Control)
  6.  
  7.     ' Calling this SUB causes the EditCol.Frm to be
  8.     ' activated
  9.  
  10.     FinalColor& = YourControl.BackColor
  11.     EditColors.Show 1
  12.     YourControl.BackColor = FinalColor&
  13.     YourControl.Refresh
  14.     FocusControl.SetFocus
  15.  
  16. End Sub
  17.  
  18. Function SetFinalColor& (FC&)
  19.  
  20.     ' Input is final color to set
  21.     ' Output is former color (passed from your code)
  22.     SetFinalColor& = FinalColor&
  23.     FinalColor& = FC&
  24.  
  25. End Function
  26.  
  27.