Worksheetの明細繰り返しについて

[ashimo]

空間が残っちゃいますね。
ここまですれば跡形もなく消せますが、こうきれいさっぱり
消していいものなのか確認できていないので、参考までに…。

Code:

{define-class MyWorksheet {inherits Worksheet}
  {constructor {default ...}
    {construct-super {splice ...}}
    let ga:{Array-of Graphic} = {{Array-of Graphic}}
    {for g in self.grid.graphical-children do
        {type-switch g
         case sb:ScrollBox do
            {if sb.name != "top-frame" and sb.name != "left-frame" then
                {ga.append g}
            }
         else
            {ga.append g}
        }
    }    
    {self.grid.clear}
    {for g in ga do
        {self.grid.add g}
    }
  }

  {method public {go-to-top}:void
    {for g in self.grid.graphical-children do
        {type-switch g
         case sb:ScrollBox do
            set sb.vertical-position = 0m
            set sb.horizontal-position = 0m
        }
    }
  }
}

column-selector-height, row-selector-widthという
オプションがありますが、これは0mに設定しても選択領域は消えませんでした。

> とやっても先頭行にスクロールしませんがこれでは実現できないのでしょうか？
選択セルを追いかけてスクロールしてくれませんね。
上のコードでスクロールバーを戻すメソッド（go-to-top）を
定義してみました。これを呼べばスクロールバーが戻ります。

あと、非表示にするだけなら(前回のコードですが)、サブクラスの中で
set self.top-frame.visible? = false
set self.left-frame.visible? = false
とやるだけでよかったみたいです。