home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd2.bin / Supreme / _SETUP.1 / Contact.exe / 0 / RCDATA / TFORMFIRMYNOMEN / TFORMFIRMYNOMEN.txt
Text File  |  1999-09-06  |  2KB  |  96 lines
  1. inherited FormFirmyNomen: TFormFirmyNomen
  2.   Left = 302
  3.   Top = 235
  4.   Caption = 'FormFirmyNomen'
  5.   ClientHeight = 165
  6.   ClientWidth = 364
  7.   PixelsPerInch = 96
  8.   TextHeight = 13
  9.   object Frame1: TFrame [0]
  10.     Left = 8
  11.     Top = 4
  12.     Width = 349
  13.     Height = 125
  14.   end
  15.   object BrowserDataGrabber1: TBrowserDataGrabber [1]
  16.     Left = 44
  17.     Top = 136
  18.     Width = 20
  19.     Height = 19
  20.     FieldNames.Strings = (
  21.       'ico')
  22.     GroupIndex = 0
  23.   end
  24.   object LabelPlus1: TLabelPlus [2]
  25.     Left = 28
  26.     Top = 24
  27.     Width = 101
  28.     Height = 13
  29.     Caption = 'Typ nomenklatury'
  30.     FocusControl = EditTyp
  31.     Attached = True
  32.     Font.Charset = DEFAULT_CHARSET
  33.     Font.Color = clWindowText
  34.     Font.Height = -11
  35.     Font.Name = 'MS Sans Serif'
  36.     Font.Style = [fsBold]
  37.     ParentFont = False
  38.   end
  39.   object Label1: TLabel [3]
  40.     Left = 28
  41.     Top = 72
  42.     Width = 26
  43.     Height = 13
  44.     Caption = 'Popis'
  45.   end
  46.   object StaticPopis: TStatic [4]
  47.     Left = 28
  48.     Top = 88
  49.     Width = 309
  50.     Height = 21
  51.   end
  52.   inherited BtnOk: TButton
  53.     Left = 200
  54.     Top = 136
  55.     TabOrder = 1
  56.   end
  57.   inherited BtnCancel: TButton
  58.     Left = 280
  59.     Top = 136
  60.     TabOrder = 2
  61.   end
  62.   object EditTyp: TBrowserLookupEdit [7]
  63.     Left = 28
  64.     Top = 40
  65.     Width = 245
  66.     Height = 21
  67.     Separator = #0
  68.     AllowNull = False
  69.     AllVisible = False
  70.     BrowserOnly = False
  71.     ButtonHint = 'Vybrat z ∩┐╜∩┐╜seln∩┐╜ku'
  72.     FieldName = 'id_nomen'
  73.     Font.Charset = DEFAULT_CHARSET
  74.     Font.Color = clWindowText
  75.     Font.Height = -11
  76.     Font.Name = 'MS Sans Serif'
  77.     Font.Style = [fsBold]
  78.     InputFilter = ifAlphaNumeric
  79.     LookupBrowser = DMmain.BrNomen
  80.     LookupDatabase = 'BRAIN_'
  81.     LookupField = 'id'
  82.     LookupSQL.Strings = (
  83.       'SELECT id, popis'
  84.       'FROM nomenklatura'
  85.       'ORDER BY id')
  86.     MaxLength = 50
  87.     Params = <>
  88.     ParentFont = False
  89.     TabOrder = 0
  90.     OnSetData = EditTypSetData
  91.   end
  92.   inherited FormPos: TFormPos
  93.     Top = 132
  94.   end
  95. end
  96.