f_setmod.srf 406 B

12345678910111213141516
  1. $PBExportHeader$f_setmod.srf
  2. global type f_setmod from function_object
  3. end type
  4. forward prototypes
  5. global subroutine f_setmod (datawindow dw, integer num, integer mode)
  6. end prototypes
  7. global subroutine f_setmod (datawindow dw, integer num, integer mode);long i
  8. dw.setredraw(false)
  9. for i=1 to num
  10. dw.settaborder(dw.Describe("#"+string(i)+ ".name"),i*10*mode)
  11. next
  12. dw.setredraw(true)
  13. end subroutine