home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd2.bin / Supreme / _SETUP.1 / Contact.exe / 0 / RCDATA / TFORMDODAVATELE / TFORMDODAVATELE.txt
Text File  |  1999-09-06  |  4KB  |  163 lines
  1. inherited FormDodavatele: TFormDodavatele
  2.   Left = 277
  3.   Top = 262
  4.   HelpContext = 141
  5.   Caption = 'FormDodavatele'
  6.   ClientHeight = 225
  7.   ClientWidth = 343
  8.   PixelsPerInch = 96
  9.   TextHeight = 13
  10.   object LabelPlus4: TLabelPlus [0]
  11.     Left = 33
  12.     Top = 121
  13.     Width = 24
  14.     Height = 13
  15.     Caption = '&Zdroj'
  16.     FocusControl = BrowserLookupEdit1
  17.     Attached = True
  18.   end
  19.   object Frame1: TFrame [1]
  20.     Left = 8
  21.     Top = 4
  22.     Width = 325
  23.     Height = 181
  24.   end
  25.   object LabelPlus1: TLabelPlus [2]
  26.     Left = 32
  27.     Top = 24
  28.     Width = 31
  29.     Height = 13
  30.     Caption = '&Firma'
  31.     FocusControl = BrowserLookupEdit2
  32.     Attached = True
  33.     Font.Charset = DEFAULT_CHARSET
  34.     Font.Color = clWindowText
  35.     Font.Height = -11
  36.     Font.Name = 'MS Sans Serif'
  37.     Font.Style = [fsBold]
  38.     ParentFont = False
  39.   end
  40.   object BrowserDataGrabber1: TBrowserDataGrabber [3]
  41.     Left = 49
  42.     Top = 185
  43.     Width = 20
  44.     Height = 19
  45.     FieldNames.Strings = (
  46.       'ico')
  47.     GroupIndex = 0
  48.   end
  49.   object LabelPlus2: TLabelPlus [4]
  50.     Left = 32
  51.     Top = 72
  52.     Width = 126
  53.     Height = 13
  54.     Caption = '&Obdob∩┐╜ spolupr∩┐╜ce od - do'
  55.     FocusControl = BrowserNumEdit1
  56.     Attached = True
  57.   end
  58.   inherited BtnOk: TButton
  59.     Left = 176
  60.     Top = 192
  61.     TabOrder = 5
  62.   end
  63.   inherited BtnCancel: TButton
  64.     Left = 256
  65.     Top = 192
  66.     TabOrder = 6
  67.   end
  68.   object BrowserLookupEdit1: TBrowserLookupEdit [7]
  69.     Left = 33
  70.     Top = 137
  71.     Width = 176
  72.     Height = 21
  73.     Separator = #0
  74.     AllVisible = False
  75.     BrowserOnly = False
  76.     ButtonHint = 'Vybrat z ∩┐╜∩┐╜seln∩┐╜ku'
  77.     FieldName = 'zdroj'
  78.     InputFilter = ifAlphaNumeric
  79.     ItemMustExist = False
  80.     LookupDatabase = 'BRAIN_'
  81.     LookupField = 'zdroj'
  82.     LookupSQL.Strings = (
  83.       'SELECT DISTINCT zdroj'
  84.       'FROM f_dodavatele'
  85.       'WHERE zdroj is not null'
  86.       'ORDER BY zdroj')
  87.     MaxLength = 50
  88.     Params = <>
  89.     TabOrder = 4
  90.   end
  91.   object BrowserLookupEdit2: TBrowserLookupEdit [8]
  92.     Left = 32
  93.     Top = 40
  94.     Width = 277
  95.     Height = 21
  96.     Separator = #0
  97.     AllowNull = False
  98.     AllVisible = False
  99.     BrowserOnly = False
  100.     ButtonHint = 'Vybrat z ∩┐╜∩┐╜seln∩┐╜ku'
  101.     FieldName = 'nazev'
  102.     Font.Charset = DEFAULT_CHARSET
  103.     Font.Color = clWindowText
  104.     Font.Height = -11
  105.     Font.Name = 'MS Sans Serif'
  106.     Font.Style = [fsBold]
  107.     InputFilter = ifAlphaNumeric
  108.     LookupBrowser = DMmain.BrAllFirmy
  109.     ItemMustExist = False
  110.     LookupDatabase = 'BRAIN_'
  111.     LookupField = 'nazev'
  112.     LookupSQL.Strings = (
  113.       'SELECT nazev, mesto, ico'
  114.       'FROM firmy'
  115.       'ORDER BY nazev')
  116.     MaxLength = 50
  117.     Params = <>
  118.     ParentFont = False
  119.     TabOrder = 0
  120.   end
  121.   object BrowserNumEdit1: TBrowserNumEdit [9]
  122.     Left = 32
  123.     Top = 88
  124.     Width = 61
  125.     Height = 21
  126.     FieldName = 'od'
  127.     FloatDigits = 2
  128.     FloatFormat = ffGeneral
  129.     FloatPrecision = 15
  130.     Increment = 1.000000000000000000
  131.     MaxValue = 3000.000000000000000000
  132.     MinValue = 1900.000000000000000000
  133.     TabOrder = 1
  134.   end
  135.   object BrowserNumEdit2: TBrowserNumEdit [10]
  136.     Left = 116
  137.     Top = 88
  138.     Width = 61
  139.     Height = 21
  140.     FieldName = 'do'
  141.     FloatDigits = 2
  142.     FloatFormat = ffGeneral
  143.     FloatPrecision = 15
  144.     Increment = 1.000000000000000000
  145.     MaxValue = 3000.000000000000000000
  146.     MinValue = 1900.000000000000000000
  147.     TabOrder = 2
  148.   end
  149.   object BrowserCheckBox1: TBrowserCheckBox [11]
  150.     Left = 216
  151.     Top = 88
  152.     Width = 97
  153.     Height = 17
  154.     Caption = 'O&bchoduje se'
  155.     TabOrder = 3
  156.     DefaultValue = False
  157.     FieldName = 'aktivni'
  158.   end
  159.   inherited FormPos: TFormPos
  160.     Top = 192
  161.   end
  162. end
  163.