inherited FormInvestori: TFormInvestori Caption = 'FormInvestori' ClientHeight = 267 ClientWidth = 341 PixelsPerInch = 96 TextHeight = 13 object LabelPlus1: TLabelPlus [0] Left = 32 Top = 24 Width = 31 Height = 13 Caption = '&Firma' FocusControl = BrowserLookupEdit2 Attached = True Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Frame1: TFrame [1] Left = 8 Top = 4 Width = 325 Height = 225 end object BrowserDataGrabber1: TBrowserDataGrabber [2] Left = 42 Top = 234 Width = 20 Height = 19 FieldNames.Strings = ( 'ico') GroupIndex = 0 end object LabelPlus2: TLabelPlus [3] Left = 33 Top = 173 Width = 24 Height = 13 Caption = '&Zdroj' FocusControl = BrowserLookupEdit1 Attached = True end object LabelPlus3: TLabelPlus [4] Left = 32 Top = 124 Width = 55 Height = 13 Caption = 'Rok vstupu' FocusControl = BrowserNumEdit1 Attached = True end object LabelPlus4: TLabelPlus [5] Left = 116 Top = 124 Width = 60 Height = 13 Caption = 'Rok v�stupu' FocusControl = BrowserNumEdit2 Attached = True end object LabelPlus5: TLabelPlus [6] Left = 32 Top = 72 Width = 24 Height = 13 Caption = 'Pod�l' FocusControl = BrowserNumEdit3 Attached = True end inherited BtnOk: TButton Left = 176 Top = 236 TabOrder = 5 end inherited BtnCancel: TButton Left = 256 Top = 236 TabOrder = 6 end object BrowserLookupEdit2: TBrowserLookupEdit [9] Left = 32 Top = 40 Width = 277 Height = 21 Separator = #0 AllowNull = False AllVisible = False BrowserOnly = False ButtonHint = 'Vybrat z ��seln�ku' FieldName = 'firma' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] InputFilter = ifAlphaNumeric LookupBrowser = DMmain.BrAllFirmy ItemMustExist = False LookupDatabase = 'BRAIN_' LookupField = 'nazev' LookupSQL.Strings = ( 'SELECT nazev, mesto, ico' 'FROM firmy' 'ORDER BY nazev') MaxLength = 50 Params = <> ParentFont = False TabOrder = 0 end object BrowserNumEdit1: TBrowserNumEdit [10] Left = 32 Top = 140 Width = 61 Height = 21 FieldName = 'od' FloatDigits = 2 FloatPrecision = 15 Increment = 1.000000000000000000 MaxValue = 3000.000000000000000000 MinValue = 1900.000000000000000000 TabOrder = 2 end object BrowserNumEdit2: TBrowserNumEdit [11] Left = 116 Top = 140 Width = 61 Height = 21 FieldName = 'do' FloatDigits = 2 FloatPrecision = 15 Increment = 1.000000000000000000 MaxValue = 3000.000000000000000000 MinValue = 1900.000000000000000000 TabOrder = 3 end object BrowserLookupEdit1: TBrowserLookupEdit [12] Left = 33 Top = 189 Width = 176 Height = 21 Separator = #0 AllVisible = False BrowserOnly = False ButtonHint = 'Vybrat z ��seln�ku' FieldName = 'zdroj' InputFilter = ifAlphaNumeric ItemMustExist = False LookupDatabase = 'BRAIN_' LookupField = 'zdroj' LookupSQL.Strings = ( 'SELECT DISTINCT zdroj' 'FROM f_investori' 'WHERE zdroj is not null' 'ORDER BY zdroj') MaxLength = 50 Params = <> TabOrder = 4 end object BrowserNumEdit3: TBrowserNumEdit [13] Left = 32 Top = 88 Width = 141 Height = 21 DataType = ntFloat FieldName = 'podil' FloatDigits = 2 FloatPrecision = 15 Increment = 1.000000000000000000 TabOrder = 1 end inherited FormPos: TFormPos Left = 12 Top = 236 end end