home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd2.bin / Supreme / _SETUP.1 / Contact.exe / 0 / RCDATA / TFORMNOTIFY / TFORMNOTIFY.txt < prev   
Text File  |  1999-09-06  |  5KB  |  166 lines
  1. object FormNotify: TFormNotify
  2.   Left = 306
  3.   Top = 226
  4.   BorderStyle = bsDialog
  5.   Caption = 'Upozorn∩┐╜n∩┐╜ na ud∩┐╜lost ∩┐╜. AAA-0015'
  6.   ClientHeight = 164
  7.   ClientWidth = 389
  8.   Color = clBtnFace
  9.   ParentFont = True
  10.   OldCreateOrder = True
  11.   Position = poScreenCenter
  12.   OnShow = BtnSoundClick
  13.   PixelsPerInch = 96
  14.   TextHeight = 13
  15.   object Bevel1: TBevel
  16.     Left = 4
  17.     Top = 4
  18.     Width = 381
  19.     Height = 157
  20.     Style = bsRaised
  21.   end
  22.   object Shape: TShape
  23.     Left = 12
  24.     Top = 12
  25.     Width = 365
  26.     Height = 109
  27.     Brush.Color = clInfoBk
  28.   end
  29.   object Image1: TImage
  30.     Left = 24
  31.     Top = 24
  32.     Width = 32
  33.     Height = 32
  34.     AutoSize = True
  35.     Picture.Data = {<image000.ico>}
  36.   end
  37.   object LabelNazev: TLabel
  38.     Left = 72
  39.     Top = 32
  40.     Width = 293
  41.     Height = 16
  42.     AutoSize = False
  43.     Caption = 'LabelNazev'
  44.     Font.Charset = DEFAULT_CHARSET
  45.     Font.Color = clWindowText
  46.     Font.Height = -13
  47.     Font.Name = 'MS Sans Serif'
  48.     Font.Style = [fsBold]
  49.     ParentFont = False
  50.     Transparent = True
  51.   end
  52.   object LabelMsg: TLabel
  53.     Left = 72
  54.     Top = 68
  55.     Width = 297
  56.     Height = 45
  57.     AutoSize = False
  58.     Caption = 'LabelMsg'
  59.     Transparent = True
  60.     WordWrap = True
  61.   end
  62.   object BtnOk: TButton
  63.     Left = 299
  64.     Top = 128
  65.     Width = 75
  66.     Height = 25
  67.     Caption = 'OK'
  68.     Default = True
  69.     ModalResult = 1
  70.     TabOrder = 2
  71.   end
  72.   object ChBoxAccept: TCheckBox
  73.     Left = 12
  74.     Top = 132
  75.     Width = 253
  76.     Height = 17
  77.     Caption = '&Beru na v∩┐╜dom∩┐╜'
  78.     Checked = True
  79.     State = cbChecked
  80.     TabOrder = 0
  81.   end
  82.   object BtnSound: TBitBtn
  83.     Left = 268
  84.     Top = 128
  85.     Width = 25
  86.     Height = 25
  87.     Hint = 'P∩┐╜ehr∩┐╜t zvuk'
  88.     ParentShowHint = False
  89.     ShowHint = True
  90.     TabOrder = 1
  91.     Visible = False
  92.     OnClick = BtnSoundClick
  93.     Glyph.Data = {
  94.       42040000424D4204000000000000420000002800000020000000100000000100
  95.       1000030000000004000000000000000000000000000000000000007C0000E003
  96.       00001F000000FF03FF03FF03FF03FF03FF03FF0300000000FF03FF03FF03FF03
  97.       FF03FF03FF03FF03FF03FF03FF03FF03FF03FF7F10421042FF7FFF03FF03FF03
  98.       FF03FF03FF03FF03FF03FF03FF03FF03FF030000004200001042FF03FF03FF03
  99.       FF03FF03FF03FF03FF03FF03FF03FF03FF7F1042004218631042FF7FFF03FF03
  100.       FF03FF7FFF03FF03FF03FF03FF03FF03000000420000186318631042FF03FF03
  101.       FF031042FF03FF03FF03FF03FF03FF7F104218631863186318631042FF7FFF03
  102.       FF7F1042FF03FF03FF03FF03FF030000004210421042FF7FFF7F1042FF03FF03
  103.       1042FF03FF03FF03FF03FF03FF7F1042186318631042FF7F18631042FF7FFF7F
  104.       1042FF03FF03FF03FF03FF0300000042E07F00001863FF7FFF7F1042FF031042
  105.       FF03FF03FF03FF03FF03FF7F1042186318631042FF7F186318631042FF7F1042
  106.       FF03FF03FF03FF03000000000042E07FFF7F00001863FF7FFF7F1042FF03FF03
  107.       FF03FF03FF03FF03104210421863186318631042FF7F186318631042FF7FFF03
  108.       FF03FF03FF03000000421042E07FFF7FE07F00000000FF7FFF7F1042FF03FF03
  109.       FF03FF03FF0310421863186318631863186310421042FF7F18631042FF7FFF7F
  110.       FF7FFF7FFF7F0042E07F1863FF7FE07FFF7F000010420000FF7F1042FF031042
  111.       104210421042004218631863186318631863104218631042FF7F1042FF7F1042
  112.       1042104210420042E07F1863E07FFF7FE07F000018630000FF7F1042FF03FF03
  113.       FF03FF03FF03104218631863186318631863104218631042FF7F1042FF7FFF03
  114.       FF03FF03FF030042FF7F1863FF7FE07FFF7F00000000FF7FFF7F1042FF03FF03
  115.       FF03FF03FF031042FF7FFF7F18631863186310421042FF7F18631042FF7FFF7F
  116.       FF03FF03FF03FF0300420042E07FFF7FE07F00001863FF7FFF7F1042FF031042
  117.       FF03FF03FF03FF0310421042FF7F186318631042FF7F186318631042FF7F1042
  118.       FF7FFF03FF03FF03FF03FF030042E07FFF7F00001863FF7FFF7F1042FF03FF03
  119.       1042FF03FF03FF03FF03FF031042FF7F18631042FF7F186318631042FF7FFF03
  120.       1042FF7FFF03FF03FF03FF03FF030042E07F104210421863FF7F1042FF03FF03
  121.       FF031042FF03FF03FF03FF03FF031042FF7F18631042186318631042FF7FFF03
  122.       FF031042FF03FF03FF03FF03FF03FF030042E07F000018631863FF03FF03FF03
  123.       FF03FF03FF03FF03FF03FF03FF03FF031042FF7F186318631863FF7FFF03FF03
  124.       FF03FF03FF03FF03FF03FF03FF03FF03FF030042104200001042FF03FF03FF03
  125.       FF03FF03FF03FF03FF03FF03FF03FF03FF031042FF7F18631042FF7FFF03FF03
  126.       FF03FF03FF03FF03FF03FF03FF03FF03FF03FF0300000000FF03FF03FF03FF03
  127.       FF03FF03FF03FF03FF03FF03FF03FF03FF03FF0310421042FF7FFF03FF03FF03
  128.       FF03FF03FF03}
  129.     NumGlyphs = 2
  130.   end
  131.   object QryUpd: TQuery
  132.     DatabaseName = 'BRAIN_'
  133.     SQL.Strings = (
  134.       'UPDATE ukoly'
  135.       'SET akceptovano = :datum'
  136.       'WHERE id = :id')
  137.     Left = 344
  138.     Top = 88
  139.     ParamData = <
  140.       item
  141.         DataType = ftUnknown
  142.         Name = 'datum'
  143.         ParamType = ptUnknown
  144.       end
  145.       item
  146.         DataType = ftUnknown
  147.         Name = 'id'
  148.         ParamType = ptUnknown
  149.       end>
  150.   end
  151.   object QryDel: TQuery
  152.     DatabaseName = 'BRAIN_'
  153.     SQL.Strings = (
  154.       'DELETE FROM ukoly'
  155.       'WHERE id = :id')
  156.     Left = 316
  157.     Top = 88
  158.     ParamData = <
  159.       item
  160.         DataType = ftUnknown
  161.         Name = 'id'
  162.         ParamType = ptUnknown
  163.       end>
  164.   end
  165. end
  166.