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

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

inherited FormSmlouvy: TFormSmlouvy
  Left = 265
  Top = 111
  HelpContext = 148
  Caption = 'FormSmlouvy'
  ClientHeight = 336
  ClientWidth = 380
  PixelsPerInch = 96
  TextHeight = 13
  object Frame1: TFrame [0]
    Left = 8
    Top = 8
    Width = 361
    Height = 289
  end
  object LabelPlus1: TLabelPlus [1]
    Left = 28
    Top = 64
    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 = 252
    Top = 108
    Width = 31
    Height = 13
    Caption = '&Datum'
    FocusControl = BrowserDateEdit1
    Attached = True
  end
  object LabelPlus3: TLabelPlus [3]
    Left = 28
    Top = 108
    Width = 18
    Height = 13
    Caption = '&Typ'
    FocusControl = BrowserLookupEdit1
    Attached = True
  end
  object LabelPlus4: TLabelPlus [4]
    Left = 28
    Top = 156
    Width = 43
    Height = 13
    Caption = 'Soubor &1'
    FocusControl = BrowserFileEdit1
    Attached = True
  end
  object LabelPlus5: TLabelPlus [5]
    Left = 28
    Top = 200
    Width = 43
    Height = 13
    Caption = 'Soubor &2'
    FocusControl = BrowserFileEdit2
    Attached = True
  end
  object LabelPlus6: TLabelPlus [6]
    Left = 28
    Top = 244
    Width = 43
    Height = 13
    Caption = 'Soubor &3'
    FocusControl = BrowserFileEdit3
    Attached = True
  end
  object LabelPlus7: TLabelPlus [7]
    Left = 28
    Top = 20
    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 [8]
    Left = 164
    Top = 20
    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 LabelPlus8: TLabelPlus [9]
    Left = 244
    Top = 244
    Width = 46
    Height = 13
    Caption = '&Rich Text'
    FocusControl = BrowserRTFEdit1
    Attached = True
  end
  inherited BtnOk: TButton
    Left = 212
    Top = 304
    TabOrder = 9
  end
  inherited BtnCancel: TButton
    Left = 292
    Top = 304
    TabOrder = 10
  end
  object BrowserEdit1: TBrowserEdit [12]
    Left = 28
    Top = 80
    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 = 0
    ParentFont = False
    TabOrder = 2
  end
  object BrowserDateEdit1: TBrowserDateEdit [13]
    Left = 252
    Top = 124
    Width = 93
    Height = 21
    Separator = #0
    Duration = False
    MaxLength = 0
    TabOrder = 4
    DefaultCurrent = False
    FieldName = 'datum'
    DataType = ttDateTime
  end
  object BrowserLookupEdit1: TBrowserLookupEdit [14]
    Left = 28
    Top = 124
    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_smlouvy'
      'WHERE typ is not null'
      'ORDER BY typ')
    MaxLength = 0
    Params = <>
    TabOrder = 3
  end
  object BrowserFileEdit1: TBrowserFileEdit [15]
    Left = 28
    Top = 172
    Width = 317
    Height = 21
    Separator = #0
    AdvanceFocus = True
    DialogOptions = [ofHideReadOnly, ofEnableSizing]
    ButtonHint = 'Proch�zet'
    ClickKey = 120
    NumGlyphs = 1
    TabOrder = 5
    FieldName = 'soubor1'
  end
  object BrowserFileEdit2: TBrowserFileEdit [16]
    Left = 28
    Top = 216
    Width = 317
    Height = 21
    Separator = #0
    AdvanceFocus = True
    DialogOptions = [ofHideReadOnly, ofEnableSizing]
    ButtonHint = 'Proch�zet'
    ClickKey = 120
    NumGlyphs = 1
    TabOrder = 6
    FieldName = 'soubor2'
  end
  object BrowserFileEdit3: TBrowserFileEdit [17]
    Left = 28
    Top = 260
    Width = 201
    Height = 21
    Separator = #0
    AdvanceFocus = True
    DialogOptions = [ofHideReadOnly, ofEnableSizing]
    ButtonHint = 'Proch�zet'
    ClickKey = 120
    NumGlyphs = 1
    TabOrder = 7
    FieldName = 'soubor3'
  end
  object BrowserCounterEdit1: TBrowserCounterEdit [18]
    Left = 28
    Top = 36
    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 = 'Smlouvy'
    TabOrder = 0
  end
  object EditFirma: TBrowserLookupEdit [19]
    Left = 164
    Top = 36
    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 [20]
    Left = 244
    Top = 260
    Width = 101
    Height = 21
    Separator = #0
    FieldName = 'rtf'
    MaxLength = 0
    TabOrder = 8
  end
  inherited FormPos: TFormPos
    Top = 308
  end
  inherited Wallpaper: TWallpaper
    Top = 308
  end
end