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

Text File | 1999-09-06 | 7KB | 314 lines

inherited FormReklama: TFormReklama
  Left = 307
  Top = 205
  Caption = 'FormReklama'
  ClientHeight = 387
  ClientWidth = 456
  PixelsPerInch = 96
  TextHeight = 13
  object Frame1: TFrame [0]
    Left = 8
    Top = 8
    Width = 357
    Height = 369
  end
  object BrowserDataGrabber1: TBrowserDataGrabber [1]
    Left = 360
    Top = 72
    Width = 20
    Height = 19
    FieldNames.Strings = (
      'ico')
    GroupIndex = 0
  end
  object LabelPlus1: TLabelPlus [2]
    Left = 32
    Top = 24
    Width = 60
    Height = 13
    Caption = 'Obdob� &od'
    FocusControl = BrowserDateEdit1
    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 = 172
    Top = 24
    Width = 60
    Height = 13
    Caption = 'Obdob� &do'
    FocusControl = BrowserDateEdit2
    Attached = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelPlus3: TLabelPlus [4]
    Left = 32
    Top = 272
    Width = 37
    Height = 13
    Caption = '&Zji�t�no'
    FocusControl = BrowserDateEdit3
    Attached = True
  end
  object LabelPlus4: TLabelPlus [5]
    Left = 32
    Top = 124
    Width = 39
    Height = 13
    Caption = '&V�robek'
    FocusControl = BrowserEdit1
    Attached = True
  end
  object LabelPlus5: TLabelPlus [6]
    Left = 32
    Top = 76
    Width = 41
    Height = 13
    Caption = '&Hodnota'
    FocusControl = BrowserNumEdit1
    Attached = True
  end
  object LabelPlus6: TLabelPlus [7]
    Left = 32
    Top = 224
    Width = 70
    Height = 13
    Caption = '&C�lov� skupina'
    FocusControl = BrowserEdit2
    Attached = True
  end
  object LabelPlus7: TLabelPlus [8]
    Left = 32
    Top = 176
    Width = 82
    Height = 13
    Caption = 'Reklamn� &sd�len�'
    FocusControl = BrowserEdit5
    Attached = True
  end
  object LabelPlus8: TLabelPlus [9]
    Left = 148
    Top = 76
    Width = 94
    Height = 13
    Caption = '&Realizuj�c� agentura'
    FocusControl = BrowserLookupEdit1
    Attached = True
  end
  object LabelPlus9: TLabelPlus [10]
    Left = 176
    Top = 272
    Width = 37
    Height = 13
    Caption = '&M�dium'
    FocusControl = BrowserLookupEdit2
    Attached = True
  end
  object LabelPlus10: TLabelPlus [11]
    Left = 32
    Top = 320
    Width = 24
    Height = 13
    Caption = 'Zdroj'
    FocusControl = BrowserLookupEdit3
    Attached = True
  end
  inherited BtnOk: TButton
    Left = 372
    Top = 16
    TabOrder = 10
  end
  inherited BtnCancel: TButton
    Left = 372
    Top = 48
    TabOrder = 11
  end
  object BrowserDateEdit1: TBrowserDateEdit [14]
    Left = 32
    Top = 40
    Width = 121
    Height = 21
    Separator = #0
    Duration = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    MaxLength = 0
    ParentFont = False
    TabOrder = 0
    DefaultCurrent = False
    AllowNull = False
    FieldName = 'obdobi_od'
    DataType = ttDateTime
  end
  object BrowserDateEdit2: TBrowserDateEdit [15]
    Left = 172
    Top = 40
    Width = 121
    Height = 21
    Separator = #0
    Duration = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    MaxLength = 0
    ParentFont = False
    TabOrder = 1
    DefaultCurrent = False
    AllowNull = False
    FieldName = 'obdobi_do'
    DataType = ttDateTime
  end
  object BrowserDateEdit3: TBrowserDateEdit [16]
    Left = 32
    Top = 288
    Width = 121
    Height = 21
    Separator = #0
    Duration = False
    MaxLength = 0
    TabOrder = 7
    DefaultCurrent = False
    FieldName = 'zjisteno'
    DataType = ttDateTime
  end
  object BrowserEdit1: TBrowserEdit [17]
    Left = 32
    Top = 140
    Width = 309
    Height = 21
    DataType = dtString
    FieldName = 'vyrobek'
    FloatPrecision = 15
    FloatDigits = 2
    InputFilter = ifAlphaNumeric
    MaxLength = 0
    TabOrder = 4
  end
  object BrowserNumEdit1: TBrowserNumEdit [18]
    Left = 32
    Top = 92
    Width = 101
    Height = 21
    DataType = ntFloat
    FieldName = 'hodnota'
    FloatDigits = 2
    FloatPrecision = 15
    Increment = 1.000000000000000000
    TabOrder = 2
  end
  object BrowserEdit2: TBrowserEdit [19]
    Left = 32
    Top = 240
    Width = 309
    Height = 21
    DataType = dtString
    FieldName = 'cilova_sk'
    FloatPrecision = 15
    FloatDigits = 2
    InputFilter = ifAlphaNumeric
    MaxLength = 0
    TabOrder = 6
  end
  object BrowserEdit5: TBrowserEdit [20]
    Left = 32
    Top = 192
    Width = 309
    Height = 21
    DataType = dtString
    FieldName = 'sdeleni'
    FloatPrecision = 15
    FloatDigits = 2
    InputFilter = ifAlphaNumeric
    MaxLength = 0
    TabOrder = 5
  end
  object BrowserLookupEdit1: TBrowserLookupEdit [21]
    Left = 148
    Top = 92
    Width = 189
    Height = 21
    Separator = #0
    AllVisible = False
    BrowserOnly = False
    ButtonHint = 'Vybrat z ��seln�ku'
    FieldName = 'agentura'
    InputFilter = ifAlphaNumeric
    ItemMustExist = False
    LookupDatabase = 'BRAIN_'
    LookupField = 'nazev'
    LookupSQL.Strings = (
      'SELECT DISTINCT nazev'
      'FROM firmy'
      'WHERE nazev is not null'
      'ORDER BY nazev')
    MaxLength = 0
    Params = <>
    TabOrder = 3
  end
  object BrowserLookupEdit2: TBrowserLookupEdit [22]
    Left = 176
    Top = 288
    Width = 165
    Height = 21
    Separator = #0
    AllVisible = False
    BrowserOnly = False
    ButtonHint = 'Vybrat z ��seln�ku'
    FieldName = 'medium'
    InputFilter = ifAlphaNumeric
    ItemMustExist = False
    LookupDatabase = 'BRAIN_'
    LookupField = 'medium'
    LookupSQL.Strings = (
      'SELECT DISTINCT medium'
      'FROM f_reklama'
      'WHERE medium is not null'
      'ORDER BY medium')
    MaxLength = 0
    Params = <>
    TabOrder = 8
  end
  object BrowserLookupEdit3: TBrowserLookupEdit [23]
    Left = 32
    Top = 336
    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_reklama'
      'WHERE zdroj is not null'
      'ORDER BY zdroj')
    MaxLength = 0
    Params = <>
    TabOrder = 9
  end
  inherited FormPos: TFormPos
    Left = 65464
    Top = 508
  end
end