inherited FormFirmyNomen: TFormFirmyNomen Left = 302 Top = 235 Caption = 'FormFirmyNomen' ClientHeight = 165 ClientWidth = 364 PixelsPerInch = 96 TextHeight = 13 object Frame1: TFrame [0] Left = 8 Top = 4 Width = 349 Height = 125 end object BrowserDataGrabber1: TBrowserDataGrabber [1] Left = 44 Top = 136 Width = 20 Height = 19 FieldNames.Strings = ( 'ico') GroupIndex = 0 end object LabelPlus1: TLabelPlus [2] Left = 28 Top = 24 Width = 101 Height = 13 Caption = 'Typ nomenklatury' FocusControl = EditTyp Attached = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label1: TLabel [3] Left = 28 Top = 72 Width = 26 Height = 13 Caption = 'Popis' end object StaticPopis: TStatic [4] Left = 28 Top = 88 Width = 309 Height = 21 end inherited BtnOk: TButton Left = 200 Top = 136 TabOrder = 1 end inherited BtnCancel: TButton Left = 280 Top = 136 TabOrder = 2 end object EditTyp: TBrowserLookupEdit [7] Left = 28 Top = 40 Width = 245 Height = 21 Separator = #0 AllowNull = False AllVisible = False BrowserOnly = False ButtonHint = 'Vybrat z ��seln�ku' FieldName = 'id_nomen' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] InputFilter = ifAlphaNumeric LookupBrowser = DMmain.BrNomen LookupDatabase = 'BRAIN_' LookupField = 'id' LookupSQL.Strings = ( 'SELECT id, popis' 'FROM nomenklatura' 'ORDER BY id') MaxLength = 50 Params = <> ParentFont = False TabOrder = 0 OnSetData = EditTypSetData end inherited FormPos: TFormPos Top = 132 end end