home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / prezent / cb / data.z / CMPLIB32.CCL / RCDATA / TDATASETEDITOR / TDATASETEDITOR.txt < prev   
Encoding:
Text File  |  1997-01-16  |  3.5 KB  |  148 lines
  1. object DatasetEditor: TDatasetEditor
  2.   Left = 196
  3.   Top = 113
  4.   BorderStyle = bsSizeToolWin
  5.   AutoScroll = False
  6.   Caption = 'Form1.Table1'
  7.   ClientHeight = 168
  8.   ClientWidth = 116
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   Icon.Data = {<image000.ico>}
  14.   PixelsPerInch = 96
  15.   PopupMenu = LocalMenu
  16.   OnClick = SelectTable
  17.   OnCreate = FormCreate
  18.   OnDestroy = FormDestroy
  19.   TextHeight = 13
  20.   object Panel1: TPanel
  21.     Left = 0
  22.     Top = 0
  23.     Width = 116
  24.     Height = 21
  25.     Align = alTop
  26.     BevelOuter = bvNone
  27.     BorderWidth = 1
  28.     ParentColor = True
  29.     TabOrder = 0
  30.     OnClick = SelectTable
  31.     object DBNavigator: TDBNavigator
  32.       Left = 1
  33.       Top = 1
  34.       Width = 114
  35.       Height = 18
  36.       DataSource = DataSource
  37.       VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
  38.       Align = alTop
  39.       TabOrder = 0
  40.     end
  41.   end
  42.   object FieldListBox: TListBox
  43.     Left = 0
  44.     Top = 21
  45.     Width = 116
  46.     Height = 147
  47.     Align = alClient
  48.     DragMode = dmAutomatic
  49.     ItemHeight = 13
  50.     MultiSelect = True
  51.     TabOrder = 1
  52.     OnClick = FieldListBoxClick
  53.     OnDragDrop = FieldListBoxDragDrop
  54.     OnDragOver = FieldListBoxDragOver
  55.     OnKeyDown = FieldListBoxKeyDown
  56.     OnKeyPress = FieldListBoxKeyPress
  57.     OnStartDrag = FieldListBoxStartDrag
  58.   end
  59.   object DataSource: TDataSource
  60.     Left = 10
  61.     Top = 32
  62.   end
  63.   object LocalMenu: TPopupMenu
  64.     OnPopup = LocalMenuPopup
  65.     Left = 40
  66.     Top = 32
  67.     HelpContext = 30130
  68.     object AddItem: TMenuItem
  69.       Caption = '&Add fields...'
  70.       HelpContext = 30131
  71.       OnClick = AddItemClick
  72.       ShortCutText = 'Ctrl+A'
  73.     end
  74.     object NewItem: TMenuItem
  75.       Caption = '&New field...'
  76.       HelpContext = 30132
  77.       OnClick = NewItemClick
  78.       ShortCutText = 'Ctrl+N'
  79.     end
  80.     object N1: TMenuItem
  81.       Caption = '-'
  82.     end
  83.     object CutItem: TMenuItem
  84.       Caption = 'Cu&t'
  85.       HelpContext = 30133
  86.       OnClick = CutItemClick
  87.       ShortCutText = 'Ctrl+X'
  88.     end
  89.     object CopyItem: TMenuItem
  90.       Caption = '&Copy'
  91.       HelpContext = 30134
  92.       OnClick = CopyItemClick
  93.       ShortCutText = 'Ctrl+C'
  94.     end
  95.     object PasteItem: TMenuItem
  96.       Caption = '&Paste'
  97.       HelpContext = 30135
  98.       OnClick = PasteItemClick
  99.       ShortCutText = 'Ctrl+V'
  100.     end
  101.     object DeleteItem: TMenuItem
  102.       Caption = '&Delete'
  103.       HelpContext = 30136
  104.       OnClick = DeleteItemClick
  105.       ShortCutText = 'Del'
  106.     end
  107.     object SelectAllItem: TMenuItem
  108.       Caption = 'Se&lect all'
  109.       HelpContext = 30137
  110.       OnClick = SelectAllItemClick
  111.       ShortCutText = 'Ctrl+L'
  112.     end
  113.     object N2: TMenuItem
  114.       Caption = '-'
  115.     end
  116.     object RetrieveItem: TMenuItem
  117.       Caption = '&Retrieve attributes'
  118.       HelpContext = 30138
  119.       OnClick = RetrieveItemClick
  120.       ShortCutText = 'Ctrl+R'
  121.     end
  122.     object UpdateItem: TMenuItem
  123.       Caption = '&Save attributes'
  124.       HelpContext = 30139
  125.       OnClick = UpdateItemClick
  126.       ShortCutText = 'Ctrl+S'
  127.     end
  128.     object SaveAttributesAsItem: TMenuItem
  129.       Caption = 'Sav&e attributes as...'
  130.       HelpContext = 30140
  131.       OnClick = SaveAttributesAsItemClick
  132.       ShortCutText = 'Ctrl+E'
  133.     end
  134.     object AssociateItem: TMenuItem
  135.       Caption = 'Ass&ociate attributes...'
  136.       HelpContext = 30141
  137.       OnClick = AssociateItemClick
  138.       ShortCutText = 'Ctrl+O'
  139.     end
  140.     object Unassociate: TMenuItem
  141.       Caption = '&Unassociate attributes'
  142.       HelpContext = 30142
  143.       OnClick = UnassociateClick
  144.       ShortCutText = 'Ctrl+U'
  145.     end
  146.   end
  147. end
  148.