home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / BC_502 / INTLDEMO.PAK / ENGLISH.BAS < prev    next >
Encoding:
BASIC Source File  |  1997-05-06  |  979 b   |  32 lines
  1. //----------------------------------------------------------------------------
  2. // ObjectWindows - (C) Copyright 1991, 1996 by Borland International
  3. //   english.bas
  4. //----------------------------------------------------------------------------
  5.  
  6. Function IntlDemo()
  7.     Set MyObject = CreateObject("Locale.Application")
  8.     Set MainWindow = MyObject.Window
  9.     MainWindow.CLocale
  10.     MainWindow.USLocale
  11.     MainWindow.UKLocale
  12.     MainWindow.FrenchLocale
  13.     MainWindow.GermanLocale
  14.     MainWindow.EnglishLanguage
  15.     MainWindow.FrenchLanguage
  16.     MainWindow.GermanLanguage
  17.     Set ClientWindow = MainWindow.Window
  18.     ClientWindow.IsAlnum
  19.     ClientWindow.IsAlpha
  20.     ClientWindow.IsAscii
  21.     ClientWindow.IsCntrl
  22.     ClientWindow.IsDigit
  23.     ClientWindow.IsGraph
  24.     ClientWindow.IsLower
  25.     ClientWindow.IsPrint
  26.     ClientWindow.IsPunct
  27.     ClientWindow.IsSpace
  28.     ClientWindow.IsUpper
  29.     ClientWindow.IsXDigit
  30.     MyObject.Quit
  31. End Function
  32.