def set_form_col col1=@curpos
      @curpos = col1
      @cols_panned ||= 0
      cursor_bounds_check
      
      ## added win_col on 2009-12-28 20:21 for embedded forms BUFFERED TRYING OUT
      win_col = 0 # 2010-02-07 23:19 new cursor stuff
      #col = win_col + @orig_col + @col_offset + @curpos
      #col = win_col + @orig_col + @col_offset + @curpos + @cols_panned
      # 2010-01-14 13:31 changed orig_col to col for embedded forms, splitpanes.
      col = win_col + @col + @col_offset + @curpos + @cols_panned
      $log.debug "sfc: wc:#{win_col}  col:#{@col}, coff:#{@col_offset}. cp:#{@curpos} colsp:#{@cols_panned} . "
      #@form.setrowcol @form.row, col   # added 2009-12-29 18:50 BUFFERED
      $log.debug " TA calling setformrow col nil, #{col} "
      setrowcol nil, col   # added 2009-12-29 18:50 BUFFERED
      @repaint_footer_required = true
    end
def set_form_col col1=@curpos
      @curpos = col1
      @cols_panned ||= 0
      cursor_bounds_check
      
      ## added win_col on 2009-12-28 20:21 for embedded forms BUFFERED TRYING OUT
      win_col = 0 # 2010-02-07 23:19 new cursor stuff
      #col = win_col + @orig_col + @col_offset + @curpos
      #col = win_col + @orig_col + @col_offset + @curpos + @cols_panned
      # 2010-01-14 13:31 changed orig_col to col for embedded forms, splitpanes.
      col = win_col + @col + @col_offset + @curpos + @cols_panned
      $log.debug "sfc: wc:#{win_col}  col:#{@col}, coff:#{@col_offset}. cp:#{@curpos} colsp:#{@cols_panned} . "
      #@form.setrowcol @form.row, col   # added 2009-12-29 18:50 BUFFERED
      $log.debug " TA calling setformrow col nil, #{col} "
      setrowcol nil, col   # added 2009-12-29 18:50 BUFFERED
      @repaint_footer_required = true
    end
set cursor on correct column