SSpread SSpread1 {
  X = 16;
  Y = 123;
  Width = 402;
  Height = 215;
  
  Col = -1;
  Row = -1;
  /* 文字型セルで、セルに複数行の入力を可能に設定 */
  TypeEditMultiLine = $TRUE;
  /* 方向キー押下でセルを移動 
  　　※Ctrl+方向キー押下の場合は、セル内でのカーソル移動
  */
  ArrowsExitEditMode = $TRUE;
  
  Function OnEditModeOff( e ) {
   /* セルの入力モードがOFFになったときに
   発生イベントのイベントハンドラ */
   if(GetText(e.Col, e.Row) == ""){
    /* セルへの入力がない場合 */
    RowHeight(e.Row) = 15;
   }else{
    /* セルへの入力がある場合、行に設定されているフォントサイズを
    基準にテキストの表示に必要な高さを設定 */
    RowHeight(e.Row) = MaxTextRowHeight(e.Row);
   }
  }
 }