home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd2.bin / Supreme / _SETUP.1 / Contact.exe / 0 / RCDATA / TFORMCHECKCREATE / TFORMCHECKCREATE.txt
Text File  |  1999-09-06  |  4KB  |  155 lines
  1. object FormCheckCreate: TFormCheckCreate
  2.   Left = 275
  3.   Top = 194
  4.   BorderStyle = bsDialog
  5.   Caption = 'Vytvo∩┐╜it kontroln∩┐╜ soubor'
  6.   ClientHeight = 159
  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 = 113
  21.     Shape = bsFrame
  22.   end
  23.   object LabelPlus1: TLabelPlus
  24.     Left = 24
  25.     Top = 20
  26.     Width = 64
  27.     Height = 13
  28.     Caption = '&C∩┐╜lov∩┐╜ 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 = 128
  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 MemoHdr: TMemo
  98.     Left = 96
  99.     Top = 128
  100.     Width = 49
  101.     Height = 25
  102.     TabStop = False
  103.     Enabled = False
  104.     Lines.Strings = (
  105.       '%  ------------------------------------------------------'
  106.       '% |        Supreme Technologies spol. s r.o.             |'
  107.       '% |        Cejl 20, Brno, 60200                          |'
  108.       '% |                                                      |'
  109.       '% |                                                      |'
  110.       '% | Soubor pro p∩┐╜ed∩┐╜v∩┐╜n∩┐╜ informac∩┐╜ o p∩┐╜edplatitelech     |'
  111.       '% | ∩┐╜asopisu PC WORLD firm∩┐╜ Supreme Technologies.        |'
  112.       '% | Neprov∩┐╜d∩┐╜jte v tomto souboru ∩┐╜∩┐╜dn∩┐╜ ru∩┐╜n∩┐╜ ∩┐╜pravy.     |'
  113.       '% | Po proveden∩┐╜ kontroly programem VISOR za∩┐╜lete,       |'
  114.       '% | pros∩┐╜m, tento soubor na adresu supreme@supreme.cz    |'
  115.       '% | jako p∩┐╜edm∩┐╜t zpr∩┐╜vy uve∩┐╜te PCWORLD-CHECK             |'
  116.       '%  ------------------------------------------------------'
  117.       '%')
  118.     TabOrder = 3
  119.     WordWrap = False
  120.   end
  121.   object QrySel: TQuery
  122.     DatabaseName = 'BRAIN_'
  123.     SQL.Strings = (
  124.       'SELECT cislo'
  125.       'FROM f_promo'
  126.       
  127.         'WHERE (typ='#39'PC WORLD 99'#39') and (cislo is not null) and (check1 is' +
  128.         ' null)')
  129.     Left = 8
  130.     Top = 124
  131.   end
  132.   object QryUpd: TQuery
  133.     DatabaseName = 'BRAIN_'
  134.     SQL.Strings = (
  135.       'UPDATE f_promo'
  136.       'SET check1=:datum'
  137.       
  138.         'WHERE (typ='#39'PC WORLD 99'#39') and (cislo is not null) and (check1 is' +
  139.         ' null)')
  140.     Left = 36
  141.     Top = 124
  142.     ParamData = <
  143.       item
  144.         DataType = ftUnknown
  145.         Name = 'datum'
  146.         ParamType = ptUnknown
  147.       end>
  148.   end
  149.   object Wallpaper1: TWallpaper
  150.     ResourceName = 'WALLPAPER'
  151.     Left = 64
  152.     Top = 124
  153.   end
  154. end
  155.