Entry

Computer: Editor: TSE: List: Column: 1: Create: How to: How to create a 1 column list in TSE?

Jul 6th, 2005 07:24
Knud van Eeden,

----------------------------------------------------------------------
--- Knud van Eeden --- 06 July 2021 - 09:29 pm -----------------------
Computer: Editor: TSE: List: Column: 1: Create: How to: How to create 
a 1 column list in TSE?
---
--- cut here: begin --------------------------------------------------
 PROC Main()
  STRING s[255] = ""
  //
  PushPosition()
  //
  EditFile( "YourTemporaryFile" )
  //
  AddLine( "Option 1" )
  AddLine( "Option 2" )
  AddLine( "Option 3" )
  AddLine( "Option 4" )
  //
  IF Llist( "<Your window title>", 20, 22, _ENABLE_SEARCH_ + 
_ANCHOR_SEARCH_ + _ENABLE_HSCROLL_ )
   //
   s = GetText( 1, 255 )
   Warn( s )
   //
  ENDIF
  //
  AbandonFile()
  //
  PopPosition()
 END
 <F12> Main()
--- cut here: end ----------------------------------------------------
===
--- cut here: begin --------------------------------------------------
 PROC Main()
  STRING s[255] = ""
  //
  PushPosition()
  //
  EditFile( "YourTemporaryFile" )
  //
  AddLine( "Afrikaans     " )
  AddLine( "Arabic        " )
  AddLine( "Bulgarian     " )
  AddLine( "Chinese       " )
  AddLine( "Czech         " )
  AddLine( "Danish        " )
  AddLine( "Dutch         " )
  AddLine( "English       " )
  AddLine( "Finnish       " )
  AddLine( "French        " )
  AddLine( "German        " )
  AddLine( "Greek         " )
  AddLine( "Hebrew        " )
  AddLine( "Hindi         " )
  AddLine( "Hungarian     " )
  AddLine( "Italian       " )
  AddLine( "Japanese      " )
  AddLine( "Korean        " )
  AddLine( "Norwegian     " )
  AddLine( "Polish        " )
  AddLine( "Portuguese    " )
  AddLine( "Russian       " )
  AddLine( "Serbo-Croatian" )
  AddLine( "Spanish       " )
  AddLine( "Swedish       " )
  AddLine( "Turkish       " )
  //
  IF Llist( "LANGUAGE", 10, 30, _ENABLE_SEARCH_ + _ANCHOR_SEARCH_ + 
_ENABLE_HSCROLL_ )
   //
   s = GetText( 1, 255 )
   Warn( s )
   //
  ENDIF
  //
  AbandonFile()
  //
  PopPosition()
 END
 <F12> Main()
--- cut here: end ----------------------------------------------------
===
--- cut here: begin --------------------------------------------------
 PROC PROCListCreateLanguageNatural()
  STRING s[255] = ""
  //
  PushPosition()
  //
  CreateTempBuffer()
  //
  AddLine( "Afrikaans     " )
  AddLine( "Arabic        " )
  AddLine( "Bulgarian     " )
  AddLine( "Chinese       " )
  AddLine( "Czech         " )
  AddLine( "Danish        " )
  AddLine( "Dutch         " )
  AddLine( "English       " )
  AddLine( "Finnish       " )
  AddLine( "French        " )
  AddLine( "German        " )
  AddLine( "Greek         " )
  AddLine( "Hebrew        " )
  AddLine( "Hindi         " )
  AddLine( "Hungarian     " )
  AddLine( "Italian       " )
  AddLine( "Japanese      " )
  AddLine( "Korean        " )
  AddLine( "Norwegian     " )
  AddLine( "Polish        " )
  AddLine( "Portuguese    " )
  AddLine( "Russian       " )
  AddLine( "Serbo-Croatian" )
  AddLine( "Spanish       " )
  AddLine( "Swedish       " )
  AddLine( "Turkish       " )
  //
  IF Llist( "LANGUAGE", 10, 30, _ENABLE_SEARCH_ + _ANCHOR_SEARCH_ + 
_ENABLE_HSCROLL_ )
   //
   s = GetText( 1, 255 )
   Warn( s )
   //
  ENDIF
  //
  AbandonFile()
  //
  PopPosition()
 END
 PROC Main()
  PROCListCreateLanguageNatural()
 END
 <F12> Main()
--- cut here: end ----------------------------------------------------
---
---
--- cut here: begin --------------------------------------------------
 STRING PROC FNStringGetListLanguageNaturalS()
  STRING s[255] = ""
  //
  PushPosition()
  //
  CreateTempBuffer()
  //
  AddLine( "Afrikaans     " )
  AddLine( "Arabic        " )
  AddLine( "Bulgarian     " )
  AddLine( "Chinese       " )
  AddLine( "Czech         " )
  AddLine( "Danish        " )
  AddLine( "Dutch         " )
  AddLine( "English       " )
  AddLine( "Finnish       " )
  AddLine( "French        " )
  AddLine( "German        " )
  AddLine( "Greek         " )
  AddLine( "Hebrew        " )
  AddLine( "Hindi         " )
  AddLine( "Hungarian     " )
  AddLine( "Italian       " )
  AddLine( "Japanese      " )
  AddLine( "Korean        " )
  AddLine( "Norwegian     " )
  AddLine( "Polish        " )
  AddLine( "Portuguese    " )
  AddLine( "Russian       " )
  AddLine( "Serbo-Croatian" )
  AddLine( "Spanish       " )
  AddLine( "Swedish       " )
  AddLine( "Turkish       " )
  //
  IF Llist( "LANGUAGE", 10, 30, _ENABLE_SEARCH_ + _ANCHOR_SEARCH_ + 
_ENABLE_HSCROLL_ )
   //
   s = GetText( 1, 255 )
   //
  ENDIF
  //
  AbandonFile()
  //
  PopPosition()
  RETURN( s )
 END
 PROC Main()
  Warn( FNStringGetListLanguageNaturalS() )
 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
----------------------------------------------------------------------