home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / demo / truegrid / trubrwse / trubrwse.$ / SELTABLE.FRM < prev    next >
Text File  |  1994-02-08  |  3KB  |  102 lines
  1. VERSION 2.00
  2. Begin Form PickTable 
  3.    BackColor       =   &H00808080&
  4.    Caption         =   "Table List"
  5.    ClientHeight    =   3090
  6.    ClientLeft      =   1980
  7.    ClientTop       =   1830
  8.    ClientWidth     =   4080
  9.    Height          =   3495
  10.    Left            =   1920
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   3090
  13.    ScaleWidth      =   4080
  14.    Top             =   1485
  15.    Width           =   4200
  16.    Begin TrueGrid Table1 
  17.       AllowArrows     =   -1  'True
  18.       AllowTabs       =   -1  'True
  19.       BackColor       =   &H00C0C0C0&
  20.       Editable        =   0   'False
  21.       EditDropDown    =   -1  'True
  22.       FetchMode       =   0  'By cell
  23.       ForeColor       =   &H00000000&
  24.       HeadingHeight   =   1
  25.       Height          =   1755
  26.       HorzLines       =   0  'None
  27.       Layout          =   SELTABLE.FRX:0000
  28.       Left            =   420
  29.       LinesPerRow     =   1
  30.       MarqueeUnique   =   -1  'True
  31.       SplitPropsGlobal=   -1  'True
  32.       SplitTabMode    =   0  'Don't tab across splits
  33.       TabCapture      =   0   'False
  34.       TabIndex        =   2
  35.       Top             =   240
  36.       UseBookmarks    =   -1  'True
  37.       Width           =   2955
  38.       WrapCellPointer =   0   'False
  39.    End
  40.    Begin CommandButton Cancel 
  41.       Caption         =   "&Cancel"
  42.       Height          =   540
  43.       Left            =   2025
  44.       TabIndex        =   1
  45.       Top             =   2175
  46.       Width           =   990
  47.    End
  48.    Begin CommandButton OK 
  49.       Caption         =   "&Ok"
  50.       Default         =   -1  'True
  51.       Height          =   540
  52.       Left            =   750
  53.       TabIndex        =   0
  54.       Top             =   2175
  55.       Width           =   990
  56.    End
  57. End
  58.  
  59. Sub Cancel_Click ()
  60.  
  61.     'User has cancelled choice so the selCancel flag is set and the form unloaded
  62.     Screen.MousePointer = HOURGLASS
  63.     selCancel = True
  64.     Unload PickTable
  65.  
  66. End Sub
  67.  
  68. Sub Form_Load ()
  69.  
  70.     'Center the Form on the Screen
  71.     CenterForm PickTable
  72.  
  73. End Sub
  74.  
  75. Sub OK_Click ()
  76.  
  77.     'If user clicks OK then selTable contains the value the user has chosen
  78.     Screen.MousePointer = HOURGLASS
  79.     selTable = Table1.Text
  80.     Unload PickTable
  81.  
  82. End Sub
  83.  
  84. Sub Table1_DblClick ()
  85.  
  86.     'Simulate the click of the OK button
  87.     OK_Click
  88.  
  89. End Sub
  90.  
  91. Sub Table1_Fetch (Row As Long, Col As Integer, Value As String)
  92.  
  93.     'Displays the values listed in the selList array. If the array
  94.     'was 2-demensional then you could also use the Col value to get
  95.     'the current Column you were in.  This is and the Update events
  96.     'are the 2 main sections if you are planning to use the grid in
  97.     'callback mode
  98.     Value = selList(Row)
  99.  
  100. End Sub
  101.  
  102.