home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd2.bin / Supreme / _SETUP.1 / Contact.exe / 0 / RCDATA / TFORMWUDALOSTI / TFORMWUDALOSTI.txt < prev   
Text File  |  1999-09-06  |  3KB  |  156 lines
  1. object FormWUdalosti: TFormWUdalosti
  2.   Left = 291
  3.   Top = 159
  4.   BorderStyle = bsDialog
  5.   Caption = 'Nov∩┐╜ ud∩┐╜lost'
  6.   ClientHeight = 212
  7.   ClientWidth = 331
  8.   Color = clBtnFace
  9.   ParentFont = True
  10.   OldCreateOrder = True
  11.   Position = poScreenCenter
  12.   PixelsPerInch = 96
  13.   TextHeight = 13
  14.   object Bevel1: TBevel
  15.     Left = 8
  16.     Top = 8
  17.     Width = 313
  18.     Height = 165
  19.     Shape = bsFrame
  20.   end
  21.   object LabelPlus8: TLabelPlus
  22.     Left = 76
  23.     Top = 68
  24.     Width = 29
  25.     Height = 13
  26.     Caption = '∩┐╜∩┐╜&slo'
  27.     FocusControl = EditCislo
  28.     Attached = True
  29.     Font.Charset = DEFAULT_CHARSET
  30.     Font.Color = clWindowText
  31.     Font.Height = -11
  32.     Font.Name = 'MS Sans Serif'
  33.     Font.Style = [fsBold]
  34.     ParentFont = False
  35.   end
  36.   object LabelPlus1: TLabelPlus
  37.     Left = 76
  38.     Top = 120
  39.     Width = 57
  40.     Height = 13
  41.     Caption = '&Typ ud∩┐╜losti'
  42.     FocusControl = EditTyp
  43.     Attached = True
  44.   end
  45.   object Image1: TImage
  46.     Left = 24
  47.     Top = 24
  48.     Width = 32
  49.     Height = 32
  50.     AutoSize = True
  51.     Picture.Data = {<image000.ico>}
  52.   end
  53.   object Label1: TLabel
  54.     Left = 76
  55.     Top = 24
  56.     Width = 237
  57.     Height = 41
  58.     AutoSize = False
  59.     Caption = 
  60.       'Zde p∩┐╜i∩┐╜a∩┐╜te nov∩┐╜ ∩┐╜d∩┐╜losti ∩┐╜∩┐╜slo. Pokud zvol∩┐╜te i typ, p∩┐╜ednasta' +
  61.       'v∩┐╜ se nov∩┐╜ ud∩┐╜lost podle n∩┐╜j.'
  62.     WordWrap = True
  63.   end
  64.   object Grabber: TBrowserDataGrabber
  65.     Left = 15
  66.     Top = 117
  67.     Width = 37
  68.     Height = 45
  69.     FieldNames.Strings = (
  70.       'priorita'
  71.       'timing'
  72.       'konfig')
  73.     GroupIndex = 0
  74.   end
  75.   object BtnOk: TButton
  76.     Left = 167
  77.     Top = 180
  78.     Width = 75
  79.     Height = 25
  80.     Caption = 'OK'
  81.     Default = True
  82.     Enabled = False
  83.     TabOrder = 2
  84.     OnClick = BtnOkClick
  85.   end
  86.   object BtnCancel: TButton
  87.     Left = 247
  88.     Top = 180
  89.     Width = 75
  90.     Height = 25
  91.     Cancel = True
  92.     Caption = 'Storno'
  93.     ModalResult = 2
  94.     TabOrder = 3
  95.   end
  96.   object EditCislo: TBrowserCounterEdit
  97.     Left = 76
  98.     Top = 84
  99.     Width = 121
  100.     Height = 21
  101.     Separator = #0
  102.     AllowNull = False
  103.     FieldName = 'id'
  104.     Font.Charset = DEFAULT_CHARSET
  105.     Font.Color = clWindowText
  106.     Font.Height = -11
  107.     Font.Name = 'MS Sans Serif'
  108.     Font.Style = [fsBold]
  109.     InputFilter = ifAlphaNumeric
  110.     LookupBrowser = DMmain.BrRady
  111.     LookupDatabase = 'BRAIN_'
  112.     MaxLength = 25
  113.     ParentFont = False
  114.     Purpose = 'Ud∩┐╜losti'
  115.     TabOrder = 0
  116.     OnChange = EditCisloChange
  117.   end
  118.   object EditTyp: TBrowserLookupEdit
  119.     Left = 76
  120.     Top = 136
  121.     Width = 121
  122.     Height = 21
  123.     Separator = #0
  124.     AllVisible = False
  125.     BrowserOnly = False
  126.     ButtonHint = 'Vybrat z ∩┐╜∩┐╜seln∩┐╜ku'
  127.     FieldName = 'typ'
  128.     InputFilter = ifAlphaNumeric
  129.     LookupBrowser = DMmain.BrEventsTypes
  130.     LookupDatabase = 'BRAIN_'
  131.     LookupField = 'id'
  132.     LookupSQL.Strings = (
  133.       'SELECT id, popis'
  134.       'FROM typy_ukolu'
  135.       'ORDER BY id')
  136.     MaxLength = 0
  137.     Params = <>
  138.     TabOrder = 1
  139.   end
  140.   object Qry: TQuery
  141.     DatabaseName = 'BRAIN_'
  142.     SQL.Strings = (
  143.       'SELECT priorita, timing, konfig'
  144.       'FROM typy_ukolu'
  145.       'WHERE id = :id')
  146.     Left = 12
  147.     Top = 180
  148.     ParamData = <
  149.       item
  150.         DataType = ftUnknown
  151.         Name = 'id'
  152.         ParamType = ptUnknown
  153.       end>
  154.   end
  155. end
  156.