Curl Global Community
TextAreaのmaxline? - Printable Version

+- Curl Global Community (http://communities.curl.com)
+-- Forum: Discussions (http://communities.curl.com/forumdisplay.php?fid=1)
+--- Forum: General Curl questions (http://communities.curl.com/forumdisplay.php?fid=2)
+--- Thread: TextAreaのmaxline? (/showthread.php?tid=855)



TextAreaのmaxline? - jianghu52 - 02-27-2013

TextAreaコントロールを使います。
入力行数が最大 三行欲しいです。でも、このコントロールはmaxline のプロパティが無いです。
どの方法でTextAreaの入力行数を制御できますことがを教えてください。


RE: TextAreaのmaxline? - ashimo - 02-28-2013

四行目を入力不可にしてみました。どうでしょうか。
Code:
{let ta = {TextArea
              height = 5cm,
              width = 5cm,
              {on e:ValueChanged at ta:TextArea do
                  let a:int = {ta.value.find '\n'}
                  let count:int = 0
                  let break?:bool = false
                  {while a > -1 do
                      set a = {ta.value.find '\n', starting-index = a + 1}
                      {inc count}
                      {output count}
                      {if count > 2 then
                          set ta.value = ta.user-data
                          set break? = true
                          {break}
                      }
                  }
                  {if not break? then
                      set ta.user-data = ta.value
                  }
              }
          }
}
{value ta}