PC World 1999 October/PCWorld_1999-10_cd2.bin/Supreme/_SETUP.1/Contact.exe/0/RCDATA/TFORMINVESTORI/TFORMINVESTORI.txt

Text File | 1999-09-06 | 4KB | 179 lines

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