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

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

inherited FormEkonomika: TFormEkonomika
  Left = 308
  Top = 250
  Caption = 'FormEkonomika'
  ClientHeight = 225
  ClientWidth = 351
  PixelsPerInch = 96
  TextHeight = 13
  object Frame1: TFrame [0]
    Left = 8
    Top = 4
    Width = 249
    Height = 213
  end
  object BrowserDataGrabber1: TBrowserDataGrabber [1]
    Left = 263
    Top = 115
    Width = 20
    Height = 19
    FieldNames.Strings = (
      'ico')
    GroupIndex = 0
  end
  object LabelPlus1: TLabelPlus [2]
    Left = 41
    Top = 36
    Width = 24
    Height = 13
    AttachType = atLeft
    Caption = '&Rok'
    FocusControl = BrowserNumEdit1
    Attached = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelPlus2: TLabelPlus [3]
    Left = 41
    Top = 184
    Width = 24
    Height = 13
    AttachType = atLeft
    Caption = 'Z&droj'
    FocusControl = BrowserLookupEdit1
    Attached = True
  end
  object LabelPlus3: TLabelPlus [4]
    Left = 39
    Top = 80
    Width = 26
    Height = 13
    AttachType = atLeft
    Caption = '&Obrat'
    FocusControl = BrowserNumEdit5
    Attached = True
  end
  object LabelPlus4: TLabelPlus [5]
    Left = 45
    Top = 112
    Width = 20
    Height = 13
    AttachType = atLeft
    Caption = '&Zisk'
    FocusControl = BrowserNumEdit4
    Attached = True
  end
  object LabelPlus5: TLabelPlus [6]
    Left = 22
    Top = 144
    Width = 43
    Height = 13
    AttachType = atLeft
    Caption = '&Investice'
    FocusControl = BrowserNumEdit3
    Attached = True
  end
  inherited BtnOk: TButton
    Left = 268
    Top = 12
    TabOrder = 5
  end
  inherited BtnCancel: TButton
    Left = 268
    Top = 44
    TabOrder = 6
  end
  object BrowserNumEdit1: TBrowserNumEdit [9]
    Left = 72
    Top = 32
    Width = 77
    Height = 21
    AllowNull = False
    FieldName = 'rok'
    FloatDigits = 2
    FloatFormat = ffGeneral
    FloatPrecision = 15
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    Increment = 1.000000000000000000
    MaxValue = 3000.000000000000000000
    MinValue = 1900.000000000000000000
    ParentFont = False
    TabOrder = 0
  end
  object BrowserNumEdit3: TBrowserNumEdit [10]
    Left = 72
    Top = 140
    Width = 105
    Height = 21
    DataType = ntFloat
    FieldName = 'investice'
    FloatDigits = 2
    FloatPrecision = 15
    Increment = 1.000000000000000000
    TabOrder = 3
  end
  object BrowserNumEdit4: TBrowserNumEdit [11]
    Left = 72
    Top = 108
    Width = 105
    Height = 21
    DataType = ntFloat
    FieldName = 'zisk'
    FloatDigits = 2
    FloatPrecision = 15
    Increment = 1.000000000000000000
    TabOrder = 2
  end
  object BrowserNumEdit5: TBrowserNumEdit [12]
    Left = 72
    Top = 76
    Width = 105
    Height = 21
    DataType = ntFloat
    FieldName = 'obrat'
    FloatDigits = 2
    FloatPrecision = 15
    Increment = 1.000000000000000000
    TabOrder = 1
  end
  object BrowserLookupEdit1: TBrowserLookupEdit [13]
    Left = 72
    Top = 180
    Width = 165
    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_ekonomika'
      'WHERE zdroj is not null'
      'ORDER BY zdroj')
    MaxLength = 50
    Params = <>
    TabOrder = 4
  end
  inherited FormPos: TFormPos
    Left = 264
    Top = 184
  end
end