home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd2.bin / Supreme / _SETUP.1 / Contact.exe / 0 / RCDATA / TFORMCHECKAPPLY / TFORMCHECKAPPLY.txt
Text File  |  1999-09-06  |  3KB  |  128 lines
  1. object FormCheckApply: TFormCheckApply
  2.   Left = 275
  3.   Top = 194
  4.   BorderStyle = bsDialog
  5.   Caption = 'Na∩┐╜∩┐╜st kontroln∩┐╜ soubor'
  6.   ClientHeight = 162
  7.   ClientWidth = 313
  8.   Color = clBtnFace
  9.   ParentFont = True
  10.   OldCreateOrder = True
  11.   Position = poScreenCenter
  12.   OnClose = FormClose
  13.   OnShow = FormShow
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object Bevel1: TBevel
  17.     Left = 8
  18.     Top = 8
  19.     Width = 297
  20.     Height = 117
  21.     Shape = bsFrame
  22.   end
  23.   object LabelPlus1: TLabelPlus
  24.     Left = 24
  25.     Top = 20
  26.     Width = 76
  27.     Height = 13
  28.     Caption = '&Zdrojov∩┐╜ soubor'
  29.     FocusControl = EditFile
  30.     Attached = True
  31.   end
  32.   object StaticInfo: TStatic
  33.     Left = 24
  34.     Top = 88
  35.     Width = 149
  36.     Height = 21
  37.     Font.Charset = DEFAULT_CHARSET
  38.     Font.Color = clWindowText
  39.     Font.Height = -11
  40.     Font.Name = 'MS Sans Serif'
  41.     Font.Style = [fsBold]
  42.     ParentFont = False
  43.   end
  44.   object Label1: TLabel
  45.     Left = 24
  46.     Top = 72
  47.     Width = 34
  48.     Height = 13
  49.     Caption = 'Pr∩┐╜b∩┐╜h'
  50.     Transparent = True
  51.   end
  52.   object BtnClose: TButton
  53.     Left = 231
  54.     Top = 132
  55.     Width = 75
  56.     Height = 25
  57.     Cancel = True
  58.     Caption = 'Zav∩┐╜∩┐╜t'
  59.     Default = True
  60.     ModalResult = 1
  61.     TabOrder = 2
  62.   end
  63.   object EditFile: TFilenameEdit
  64.     Left = 24
  65.     Top = 36
  66.     Width = 265
  67.     Height = 21
  68.     Separator = #0
  69.     DefaultExt = 'sup'
  70.     Filter = 'Kontroln∩┐╜ soubory (*.SUP)|*.sup|V∩┐╜echny soubory (*.*)|*.*'
  71.     DialogOptions = [ofHideReadOnly, ofEnableSizing]
  72.     ButtonHint = 'Proch∩┐╜zet'
  73.     ClickKey = 120
  74.     NumGlyphs = 1
  75.     TabOrder = 0
  76.     OnChange = EditFileChange
  77.   end
  78.   object BtnStart: TBitBtn
  79.     Left = 216
  80.     Top = 84
  81.     Width = 75
  82.     Height = 25
  83.     Caption = '&Start'
  84.     Enabled = False
  85.     TabOrder = 1
  86.     OnClick = BtnStartClick
  87.     Glyph.Data = {
  88.       F6000000424DF600000000000000760000002800000010000000100000000100
  89.       0400000000008000000000000000000000001000000010000000000000000000
  90.       80000080000000808000800000008000800080800000C0C0C000808080000000
  91.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  92.       77777707777770000777777077770EEEE077777007777FEE677777770077F000
  93.       067777770B070EEEE077777770B077777777777770FB077777777777770BB077
  94.       77777777770FBB0777777777000FBBB0777777770FBBB0000777777770FBBB07
  95.       7777777770FBBBB077777777770FBBBB07777777770FFFFFFF77}
  96.   end
  97.   object QryUpd: TQuery
  98.     DatabaseName = 'BRAIN_'
  99.     SQL.Strings = (
  100.       'UPDATE f_promo'
  101.       'SET check2=:datum, result=:result'
  102.       'WHERE cislo=:cislo')
  103.     Left = 8
  104.     Top = 128
  105.     ParamData = <
  106.       item
  107.         DataType = ftUnknown
  108.         Name = 'datum'
  109.         ParamType = ptUnknown
  110.       end
  111.       item
  112.         DataType = ftUnknown
  113.         Name = 'result'
  114.         ParamType = ptUnknown
  115.       end
  116.       item
  117.         DataType = ftUnknown
  118.         Name = 'cislo'
  119.         ParamType = ptUnknown
  120.       end>
  121.   end
  122.   object Wallpaper1: TWallpaper
  123.     ResourceName = 'WALLPAPER'
  124.     Left = 36
  125.     Top = 128
  126.   end
  127. end
  128.