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

Text File | 1999-09-06 | 6KB | 265 lines

inherited FormDokumenty: TFormDokumenty
  Left = 243
  Top = 159
  HelpContext = 147
  Caption = 'FormDokumenty'
  ClientHeight = 293
  ClientWidth = 366
  PixelsPerInch = 96
  TextHeight = 13
  object Frame1: TFrame [0]
    Left = 8
    Top = 8
    Width = 349
    Height = 249
  end
  object LabelPlus1: TLabelPlus [1]
    Left = 24
    Top = 68
    Width = 31
    Height = 13
    Caption = '&N�zev'
    FocusControl = BrowserEdit1
    Attached = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object LabelPlus2: TLabelPlus [2]
    Left = 248
    Top = 160
    Width = 31
    Height = 13
    Caption = '&Datum'
    FocusControl = BrowserDateEdit1
    Attached = True
  end
  object LabelPlus4: TLabelPlus [3]
    Left = 24
    Top = 208
    Width = 34
    Height = 13
    Caption = '&Soubor'
    FocusControl = BrowserFileEdit1
    Attached = True
  end
  object LabelPlus3: TLabelPlus [4]
    Left = 25
    Top = 161
    Width = 18
    Height = 13
    Caption = '&Typ'
    FocusControl = BrowserLookupEdit1
    Attached = True
  end
  object LabelPlus5: TLabelPlus [5]
    Left = 24
    Top = 116
    Width = 26
    Height = 13
    Caption = '&Popis'
    FocusControl = BrowserEdit2
    Attached = True
  end
  object LabelPlus6: TLabelPlus [6]
    Left = 24
    Top = 24
    Width = 29
    Height = 13
    Caption = '��&slo'
    FocusControl = BrowserCounterEdit1
    Attached = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelPlus11: TLabelPlus [7]
    Left = 160
    Top = 24
    Width = 31
    Height = 13
    Caption = '&Firma'
    FocusControl = EditFirma
    Attached = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object LabelPlus7: TLabelPlus [8]
    Left = 248
    Top = 208
    Width = 46
    Height = 13
    Caption = '&Rich Text'
    FocusControl = BrowserRTFEdit1
    Attached = True
  end
  inherited BtnOk: TButton
    Left = 204
    Top = 264
    TabOrder = 8
  end
  inherited BtnCancel: TButton
    Left = 284
    Top = 264
    TabOrder = 9
  end
  object BrowserEdit1: TBrowserEdit [11]
    Left = 24
    Top = 84
    Width = 317
    Height = 21
    DataType = dtString
    FieldName = 'nazev'
    FloatPrecision = 15
    FloatDigits = 2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    InputFilter = ifAlphaNumeric
    MaxLength = 50
    ParentFont = False
    TabOrder = 2
  end
  object BrowserDateEdit1: TBrowserDateEdit [12]
    Left = 248
    Top = 176
    Width = 93
    Height = 21
    Separator = #0
    Duration = False
    MaxLength = 0
    TabOrder = 5
    DefaultCurrent = False
    FieldName = 'datum'
    DataType = ttDateTime
  end
  object BrowserFileEdit1: TBrowserFileEdit [13]
    Left = 24
    Top = 224
    Width = 209
    Height = 21
    Separator = #0
    AdvanceFocus = True
    DialogOptions = [ofHideReadOnly, ofEnableSizing]
    ButtonHint = 'Proch�zet'
    ClickKey = 120
    NumGlyphs = 1
    TabOrder = 6
    FieldName = 'soubor'
  end
  object BrowserLookupEdit1: TBrowserLookupEdit [14]
    Left = 25
    Top = 177
    Width = 208
    Height = 21
    Separator = #0
    AllVisible = False
    BrowserOnly = False
    ButtonHint = 'Vybrat z ��seln�ku'
    FieldName = 'typ'
    InputFilter = ifAlphaNumeric
    ItemMustExist = False
    LookupDatabase = 'BRAIN_'
    LookupField = 'typ'
    LookupSQL.Strings = (
      'SELECT DISTINCT typ'
      'FROM f_dokumenty'
      'WHERE typ is not null'
      'ORDER BY typ')
    MaxLength = 20
    Params = <>
    TabOrder = 4
  end
  object BrowserEdit2: TBrowserEdit [15]
    Left = 24
    Top = 132
    Width = 317
    Height = 21
    DataType = dtString
    FieldName = 'popis'
    FloatPrecision = 15
    FloatDigits = 2
    InputFilter = ifAlphaNumeric
    MaxLength = 100
    TabOrder = 3
  end
  object BrowserCounterEdit1: TBrowserCounterEdit [16]
    Left = 24
    Top = 40
    Width = 121
    Height = 21
    Separator = #0
    AllowNull = False
    FieldName = 'cislo'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    InputFilter = ifAlphaNumeric
    LookupBrowser = DMmain.BrRady
    LookupDatabase = 'BRAIN_'
    MaxLength = 25
    ParentFont = False
    Purpose = 'Dokumenty'
    TabOrder = 0
  end
  object EditFirma: TBrowserLookupEdit [17]
    Left = 160
    Top = 40
    Width = 181
    Height = 21
    Separator = #0
    AllVisible = False
    BrowserOnly = False
    ButtonHint = 'Vybrat z ��seln�ku'
    FieldName = 'ico'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    InputFilter = ifAlphaNumeric
    LookupBrowser = DMmain.BrAllFirmy
    LookupDatabase = 'BRAIN_'
    LookupDispField = 'nazev'
    LookupField = 'ico'
    LookupSQL.Strings = (
      'SELECT nazev, ico'
      'FROM firmy'
      'ORDER BY nazev')
    MaxLength = 100
    Params = <>
    ParentFont = False
    TabOrder = 1
  end
  object BrowserRTFEdit1: TBrowserRTFEdit [18]
    Left = 248
    Top = 224
    Width = 93
    Height = 21
    Separator = #0
    FieldName = 'rtf'
    MaxLength = 0
    TabOrder = 7
  end
  inherited FormPos: TFormPos
    Top = 260
  end
  inherited Wallpaper: TWallpaper
    Top = 260
  end
end