home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / mastapp.pak / BRMODAL.DFM / BRMODAL.txt
Encoding:
Text File  |  1995-08-24  |  4.5 KB  |  178 lines
  1. object PickDlg: TPickDlg
  2.   Left = 226
  3.   Top = 118
  4.   AutoScroll = False
  5.   BorderIcons = [biSystemMenu]
  6.   BorderStyle = bsDialog
  7.   Caption = 'PickDlg'
  8.   ClientHeight = 289
  9.   ClientWidth = 352
  10.   Font.Color = clBlack
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = [fsBold]
  14.   PixelsPerInch = 96
  15.   Position = poScreenCenter
  16.   TextHeight = 13
  17.   object Label1: TLabel
  18.     Left = 13
  19.     Top = 11
  20.     Width = 60
  21.     Height = 13
  22.     Caption = 'List Order:'
  23.   end
  24.   object FindBut: TSpeedButton
  25.     Left = 285
  26.     Top = 34
  27.     Width = 23
  28.     Height = 23
  29.     Hint = 'Find exact'
  30.     Glyph.Data = {
  31.       42010000424D4201000000000000760000002800000011000000110000000100
  32.       040000000000CC00000000000000000000000000000010000000000000000000
  33.       BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  34.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  35.       33FFF00000003333333333333FFBF0000000333333333333FBFFFE0000003333
  36.       3333333FFBFB360000003333333333BFFFF3370000003333333444FBFF333600
  37.       000033333344834FB33331000000333334847F84333336000000333334484F84
  38.       3333300000003333348F7448333336000000333344FFF7433333300000003344
  39.       8F8444333333300000003448F7433333333330000000348F7733333333333000
  40.       000034F77433333333333F000000344443333333333330000000333333333333
  41.       333337000000}
  42.     ParentShowHint = False
  43.     ShowHint = True
  44.     OnClick = FindButClick
  45.   end
  46.   object Label2: TLabel
  47.     Left = 16
  48.     Top = 38
  49.     Width = 45
  50.     Height = 13
  51.     Caption = 'Search:'
  52.   end
  53.   object NearestBut: TSpeedButton
  54.     Left = 313
  55.     Top = 34
  56.     Width = 23
  57.     Height = 23
  58.     Hint = 'Find nearest'
  59.     Glyph.Data = {
  60.       42010000424D4201000000000000760000002800000011000000110000000100
  61.       040000000000CC00000000000000000000000000000010000000000000000000
  62.       BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
  63.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333333FBFFF
  64.       FFFFF000000033333333FBBFFFFBF00000003333333FBFFFFBFFFE0000003333
  65.       333FBFFFFBFBF600000033333333FBBFFFFFF70000003333333444FBFFFBF600
  66.       000033333344834FBFFFF1000000333334847F84BFFFF6000000333334484F84
  67.       FBBFB00000003333348F74483FF3F6000000333344FFF7433333300000003344
  68.       8F8444333333300000003448F7433333333330000000348F7733333333333000
  69.       000034F77433333333333F000000344443333333333330000000333333333333
  70.       333337000000}
  71.     ParentShowHint = False
  72.     ShowHint = True
  73.     OnClick = NearestButClick
  74.   end
  75.   object DBGrid1: TDBGrid
  76.     Left = 8
  77.     Top = 66
  78.     Width = 335
  79.     Height = 177
  80.     DataSource = DataSource
  81.     Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgRowSelect]
  82.     TabOrder = 0
  83.     TitleFont.Color = clBlack
  84.     TitleFont.Height = -11
  85.     TitleFont.Name = 'MS Sans Serif'
  86.     TitleFont.Style = [fsBold]
  87.     OnDblClick = DBGrid1DblClick
  88.   end
  89.   object OKBtn: TButton
  90.     Left = 184
  91.     Top = 257
  92.     Width = 75
  93.     Height = 25
  94.     Caption = '&OK'
  95.     Default = True
  96.     Font.Color = clBlack
  97.     Font.Height = -11
  98.     Font.Name = 'MS Sans Serif'
  99.     Font.Style = [fsBold]
  100.     ModalResult = 1
  101.     ParentFont = False
  102.     TabOrder = 1
  103.   end
  104.   object CancelBtn: TButton
  105.     Left = 268
  106.     Top = 257
  107.     Width = 75
  108.     Height = 25
  109.     Cancel = True
  110.     Caption = '&Cancel'
  111.     Font.Color = clBlack
  112.     Font.Height = -11
  113.     Font.Name = 'MS Sans Serif'
  114.     Font.Style = [fsBold]
  115.     ModalResult = 2
  116.     ParentFont = False
  117.     TabOrder = 2
  118.   end
  119.   object SearchEd: TEdit
  120.     Left = 79
  121.     Top = 36
  122.     Width = 202
  123.     Height = 20
  124.     TabOrder = 3
  125.   end
  126.   object OrderCombo: TComboBox
  127.     Left = 80
  128.     Top = 8
  129.     Width = 257
  130.     Height = 20
  131.     Style = csDropDownList
  132.     ItemHeight = 13
  133.     TabOrder = 4
  134.     OnChange = OrderComboChange
  135.   end
  136.   object DataSource: TDataSource
  137.     DataSet = Cust
  138.     Left = 47
  139.     Top = 253
  140.   end
  141.   object Parts: TTable
  142.     Active = True
  143.     AutoCalcFields = False
  144.     DatabaseName = 'MAST'
  145.     ReadOnly = True
  146.     TableName = 'PARTS'
  147.     Left = 75
  148.     Top = 253
  149.     object PartsPartNo: TFloatField
  150.       Alignment = taLeftJustify
  151.       DisplayWidth = 7
  152.       FieldName = 'PartNo'
  153.     end
  154.     object PartsDescription: TStringField
  155.       FieldName = 'Description'
  156.       Size = 30
  157.     end
  158.   end
  159.   object Cust: TTable
  160.     Active = True
  161.     AutoCalcFields = False
  162.     DatabaseName = 'MAST'
  163.     ReadOnly = True
  164.     TableName = 'CUSTOMER'
  165.     Left = 20
  166.     Top = 253
  167.     object CustCustNo: TFloatField
  168.       Alignment = taLeftJustify
  169.       DisplayWidth = 7
  170.       FieldName = 'CustNo'
  171.     end
  172.     object CustCompany: TStringField
  173.       FieldName = 'Company'
  174.       Size = 30
  175.     end
  176.   end
  177. end
  178.