Entry

TSE: List: Column: 2: Simple: Create: How to: How to create a simple 2 column list in TSE?

Sep 26th, 2004 14:09
Knud van Eeden,

----------------------------------------------------------------------
--- Knud van Eeden --- 26 September 2004 - 10:36 pm ------------------

TSE: List: Column: 2: Simple: Create: How to: How to create a simple 2 
column list in TSE?

---
---

--- cut here: begin --------------------------------------------------

 PROC Main()
  STRING s[255] = ""
  INTEGER posI = 0
  //
  PushPosition()
  //
  EditFile( "YourTemporaryFile" )
  //
  AddLine( "A      Option 1" )
  AddLine( "B      Option 2" )
  AddLine( "C      Option 3" )
  AddLine( "D      Option 4" )
  //
  IF Llist( "<Your window title>", 80, 22, _ENABLE_SEARCH_ + 
_ANCHOR_SEARCH_ + _ENABLE_HSCROLL_ )
   //
   s = GetText( 1, 255 )
   posI = Pos( " ", s )
   IF ( posI <> 0 )
    s = SubStr( s, posI, Length( s ) - posI + 1 )
    s = Trim( s )
   ENDIF
   Warn( s )
   //
  ENDIF
  //
  AbandonFile()
  //
  PopPosition()
 END

 <F12> Main()

--- cut here: end ----------------------------------------------------

---
---

Internet: see also:

---

TSE: List: Create: Overview: Can you give an overview of links?
http://www.faqts.com/knowledge_base/view.phtml/aid/31624/fid/1711

----------------------------------------------------------------------