home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 305
- Top = 176
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'Rejst��k - ro�n�k Chip CD (32bit)'
- ClientHeight = 527
- ClientWidth = 632
- Color = clWhite
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clTeal
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- KeyPreview = True
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- OnCreate = FormCreate
- OnKeyDown = FormKeyDown
- OnKeyUp = FormKeyUp
- OnShow = FormShow
- PixelsPerInch = 120
- TextHeight = 16
- object Image1: TImage
- Left = 0
- Top = 0
- Width = 632
- Height = 545
- AutoSize = True
- Picture.Data = {<image000.jpg>}
- end
- object Label4: TLabel
- Left = 296
- Top = 384
- Width = 108
- Height = 16
- Caption = 'po�et z�znam�:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -12
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Label5: TLabel
- Left = 408
- Top = 384
- Width = 81
- Height = 13
- AutoSize = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object Label8: TLabel
- Left = 296
- Top = 288
- Width = 33
- Height = 21
- AutoSize = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- Transparent = True
- OnDblClick = Label8DblClick
- end
- object Label10: TLabel
- Left = 24
- Top = 264
- Width = 52
- Height = 16
- Caption = 'rubriky:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Label1: TLabel
- Left = 296
- Top = 304
- Width = 121
- Height = 16
- Caption = 'Adres�� na Chip CD:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label2: TLabel
- Left = 296
- Top = 320
- Width = 96
- Height = 16
- Caption = 'Spustiteln� pod:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label3: TLabel
- Left = 400
- Top = 320
- Width = 22
- Height = 16
- Caption = 'OS'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Label6: TLabel
- Left = 400
- Top = 288
- Width = 49
- Height = 16
- Caption = 'rubrika'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Label7: TLabel
- Left = 24
- Top = 441
- Width = 39
- Height = 16
- Caption = 'najdi:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label11: TLabel
- Left = 296
- Top = 288
- Width = 50
- Height = 16
- Caption = 'Rubrika:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label12: TLabel
- Left = 296
- Top = 336
- Width = 27
- Height = 16
- Caption = 'Typ:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label13: TLabel
- Left = 400
- Top = 336
- Width = 22
- Height = 16
- Caption = 'typ'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label14: TLabel
- Left = 88
- Top = 264
- Width = 33
- Height = 14
- Cursor = crUpArrow
- Alignment = taCenter
- AutoSize = False
- Caption = 'v�e'
- Color = clNavy
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- OnClick = Label14Click
- end
- object Label15: TLabel
- Left = 144
- Top = 264
- Width = 33
- Height = 14
- Cursor = crUpArrow
- Alignment = taCenter
- AutoSize = False
- Caption = 'nic'
- Color = clNavy
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- OnClick = Label15Click
- end
- object Image4: TImage
- Left = 556
- Top = 377
- Width = 55
- Height = 31
- Cursor = crUpArrow
- Hint = 'Chip CD'
- AutoSize = True
- ParentShowHint = False
- Picture.Data = {<image001.bmp>}
- ShowHint = True
- Transparent = True
- OnClick = Image4Click
- end
- object Label9: TLabel
- Left = 296
- Top = 16
- Width = 45
- Height = 16
- Caption = 'Nazev'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- ShowAccelChar = False
- Transparent = True
- end
- object Label17: TLabel
- Left = 296
- Top = 264
- Width = 73
- Height = 16
- Caption = 'informace:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Image2: TImage
- Left = 560
- Top = 430
- Width = 32
- Height = 32
- Cursor = crUpArrow
- Hint = 'N�pov�da'
- AutoSize = True
- ParentShowHint = False
- Picture.Data = {<image002.ico>}
- ShowHint = True
- OnClick = Image2Click
- end
- object Label18: TLabel
- Left = 24
- Top = 491
- Width = 61
- Height = 16
- Caption = 'Chip CD:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label19: TLabel
- Left = 512
- Top = 491
- Width = 33
- Height = 14
- Cursor = crUpArrow
- Alignment = taCenter
- AutoSize = False
- Caption = 'v�e'
- Color = clNavy
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- OnClick = Label19Click
- end
- object LabelN: TLabel
- Left = 560
- Top = 491
- Width = 33
- Height = 14
- Cursor = crUpArrow
- Alignment = taCenter
- AutoSize = False
- Caption = 'nic'
- Color = clNavy
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- OnClick = LabelNClick
- end
- object Label16: TLabel
- Left = 512
- Top = 264
- Width = 52
- Height = 16
- Caption = 'Chip CD:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object DBText2: TDBText
- Left = 568
- Top = 264
- Width = 60
- Height = 16
- AutoSize = True
- DataField = 'p'
- DataSource = DataSource1
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Image3: TImage
- Left = 584
- Top = 430
- Width = 32
- Height = 32
- Cursor = crUpArrow
- Hint = 'Datab�ze'
- AutoSize = True
- ParentShowHint = False
- Picture.Data = {<image003.ico>}
- ShowHint = True
- OnClick = Image3Click
- end
- object Label21: TLabel
- Left = 400
- Top = 304
- Width = 56
- Height = 16
- Caption = 'Label21'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Label22: TLabel
- Left = 296
- Top = 352
- Width = 46
- Height = 16
- Caption = 'Internet:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label20: TLabel
- Left = 400
- Top = 352
- Width = 5
- Height = 16
- Cursor = crUpArrow
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold, fsUnderline]
- ParentFont = False
- Transparent = True
- OnClick = Label20Click
- end
- object DBMemo1: TDBMemo
- Left = 296
- Top = 60
- Width = 313
- Height = 167
- TabStop = False
- BorderStyle = bsNone
- Color = clWhite
- Ctl3D = False
- DataField = 'popis'
- DataSource = DataSource1
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentCtl3D = False
- ParentFont = False
- ReadOnly = True
- TabOrder = 5
- end
- object Button1: TButton
- Left = 344
- Top = 439
- Width = 65
- Height = 17
- Cursor = crUpArrow
- Caption = 'naj�t'
- TabOrder = 4
- OnClick = Button1Click
- end
- object Edit1: TEdit
- Left = 64
- Top = 439
- Width = 145
- Height = 17
- AutoSize = False
- Color = clWhite
- Ctl3D = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentCtl3D = False
- ParentFont = False
- TabOrder = 1
- OnKeyDown = Edit1KeyDown
- end
- object CheckBox1: TCheckBox
- Left = 216
- Top = 439
- Width = 65
- Height = 17
- Caption = 'v n�zvu'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 2
- end
- object CheckBox2: TCheckBox
- Left = 280
- Top = 439
- Width = 65
- Height = 17
- Caption = 'v popisu'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 3
- end
- object CheckBox3: TCheckBox
- Tag = 1
- Left = 24
- Top = 288
- Width = 105
- Height = 17
- Caption = 'T�ma m�s�ce'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 6
- OnClick = Rubriky
- end
- object CheckBox4: TCheckBox
- Tag = 2
- Left = 24
- Top = 304
- Width = 121
- Height = 17
- Caption = 'Zkuste si sami'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 7
- OnClick = Rubriky
- end
- object CheckBox5: TCheckBox
- Tag = 3
- Left = 24
- Top = 320
- Width = 113
- Height = 17
- Caption = 'Shareware'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 8
- OnClick = Rubriky
- end
- object CheckBox6: TCheckBox
- Tag = 4
- Left = 24
- Top = 336
- Width = 137
- Height = 17
- Caption = 'Od na�ich �ten���'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 9
- OnClick = Rubriky
- end
- object CheckBox7: TCheckBox
- Tag = 5
- Left = 24
- Top = 352
- Width = 105
- Height = 17
- Caption = 'Prezentace firem'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 10
- OnClick = Rubriky
- end
- object CheckBox8: TCheckBox
- Tag = 6
- Left = 24
- Top = 368
- Width = 105
- Height = 17
- Caption = 'Ze sv�ta internetu'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 11
- OnClick = Rubriky
- end
- object CheckBox9: TCheckBox
- Tag = 7
- Left = 24
- Top = 384
- Width = 97
- Height = 17
- Caption = 'Chip Plus'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 12
- OnClick = Rubriky
- end
- object CheckBox10: TCheckBox
- Tag = 8
- Left = 144
- Top = 288
- Width = 105
- Height = 17
- Caption = 'Servis'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 13
- OnClick = Rubriky
- end
- object CheckBox11: TCheckBox
- Tag = 9
- Left = 144
- Top = 304
- Width = 113
- Height = 17
- Caption = 'Pro chv�le oddechu'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 14
- OnClick = Rubriky
- end
- object DBGrid1: TDBGrid
- Left = 24
- Top = 24
- Width = 235
- Height = 201
- BorderStyle = bsNone
- Color = clWhite
- DataSource = DataSource1
- Options = [dgConfirmDelete, dgCancelOnExit]
- ReadOnly = True
- TabOrder = 0
- TitleFont.Charset = DEFAULT_CHARSET
- TitleFont.Color = clTeal
- TitleFont.Height = -11
- TitleFont.Name = 'MS Sans Serif'
- TitleFont.Style = []
- Columns = <
- item
- Expanded = False
- FieldName = 'name'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- Width = 215
- Visible = True
- end>
- end
- object CheckBox12: TCheckBox
- Tag = 10
- Left = 144
- Top = 320
- Width = 105
- Height = 17
- Caption = 'St��brn� disky'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 15
- OnClick = Rubriky
- end
- object CheckBox13: TCheckBox
- Tag = 11
- Left = 144
- Top = 336
- Width = 121
- Height = 17
- Caption = 'Z redakce + Obsahy'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 16
- OnClick = Rubriky
- end
- object CheckBox14: TCheckBox
- Tag = 13
- Left = 144
- Top = 352
- Width = 97
- Height = 17
- Caption = 'Ostatn�'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 17
- OnClick = Rubriky
- end
- object Button2: TButton
- Left = 472
- Top = 439
- Width = 81
- Height = 17
- Cursor = crUpArrow
- Caption = 'zru�it hled�n�'
- TabOrder = 18
- OnClick = Button2Click
- end
- object CheckBox17: TCheckBox
- Tag = 1
- Left = 88
- Top = 489
- Width = 97
- Height = 17
- Hint = '1/'
- Caption = '1'
- TabOrder = 19
- OnClick = Rubriky
- end
- object CheckBox18: TCheckBox
- Tag = 2
- Left = 120
- Top = 489
- Width = 97
- Height = 17
- Hint = '2/'
- Caption = '2'
- TabOrder = 20
- OnClick = Rubriky
- end
- object CheckBox19: TCheckBox
- Tag = 3
- Left = 152
- Top = 489
- Width = 97
- Height = 17
- Hint = '3/'
- Caption = '3'
- TabOrder = 21
- OnClick = Rubriky
- end
- object CheckBox20: TCheckBox
- Tag = 4
- Left = 184
- Top = 489
- Width = 97
- Height = 17
- Hint = '4/'
- Caption = '4'
- TabOrder = 22
- OnClick = Rubriky
- end
- object CheckBox21: TCheckBox
- Tag = 5
- Left = 216
- Top = 489
- Width = 97
- Height = 17
- Hint = '5/'
- Caption = '5'
- TabOrder = 23
- OnClick = Rubriky
- end
- object CheckBox22: TCheckBox
- Tag = 6
- Left = 248
- Top = 489
- Width = 97
- Height = 17
- Hint = '6/'
- Caption = '6'
- TabOrder = 24
- OnClick = Rubriky
- end
- object CheckBox23: TCheckBox
- Tag = 7
- Left = 280
- Top = 489
- Width = 97
- Height = 17
- Hint = '7/'
- Caption = '7'
- Enabled = False
- TabOrder = 25
- OnClick = Rubriky
- end
- object CheckBox24: TCheckBox
- Tag = 8
- Left = 312
- Top = 489
- Width = 97
- Height = 17
- Hint = '8/'
- Caption = '8'
- Enabled = False
- TabOrder = 26
- OnClick = Rubriky
- end
- object CheckBox25: TCheckBox
- Tag = 9
- Left = 344
- Top = 489
- Width = 97
- Height = 17
- Hint = '9/'
- Caption = '9'
- Enabled = False
- TabOrder = 27
- OnClick = Rubriky
- end
- object CheckBox26: TCheckBox
- Tag = 10
- Left = 376
- Top = 489
- Width = 97
- Height = 17
- Hint = '10'
- Caption = '10'
- Enabled = False
- TabOrder = 28
- OnClick = Rubriky
- end
- object CheckBox27: TCheckBox
- Tag = 11
- Left = 416
- Top = 489
- Width = 41
- Height = 17
- Hint = '11'
- Caption = '11'
- Enabled = False
- TabOrder = 29
- OnClick = Rubriky
- end
- object CheckBox28: TCheckBox
- Tag = 12
- Left = 456
- Top = 489
- Width = 33
- Height = 17
- Hint = '12'
- Caption = '12'
- Enabled = False
- TabOrder = 30
- OnClick = Rubriky
- end
- object Button3: TButton
- Left = 419
- Top = 439
- Width = 43
- Height = 17
- Cursor = crUpArrow
- Caption = 'typ'
- TabOrder = 31
- OnClick = Button3Click
- end
- object CheckBox15: TCheckBox
- Tag = 14
- Left = 144
- Top = 368
- Width = 97
- Height = 17
- Caption = 'Ovlada�e'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 32
- OnClick = Rubriky
- end
- object CheckBox16: TCheckBox
- Tag = 15
- Left = 144
- Top = 384
- Width = 97
- Height = 17
- Caption = 'Bonus'
- Checked = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clNavy
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 33
- OnClick = Rubriky
- end
- object DataSource1: TDataSource
- DataSet = DBISAMQuery1
- OnDataChange = DataSource1DataChange
- Left = 560
- Top = 544
- end
- object DBISAMQuery1: TDBISAMQuery
- AutoDisplayLabels = False
- CopyOnAppend = False
- BeforeOpen = DBISAMQuery1BeforeOpen
- AfterOpen = DBISAMQuery1AfterOpen
- AfterScroll = DBISAMQuery1AfterScroll
- OnFilterRecord = DBISAMQuery1FilterRecord
- SessionName = 'DBCHIP'
- EngineVersion = '2.03'
- LanguageID = 1029
- SortID = 0
- MaxRowCount = -1
- ScriptLanguageID = 0
- ScriptSortID = 0
- OnQueryProgress = DBISAMQuery1QueryProgress
- Left = 528
- Top = 544
- end
- object DBISAMSession1: TDBISAMSession
- EngineVersion = '2.03'
- Active = True
- KeepConnections = False
- LockRetryCount = 15
- LockWaitTime = 100
- PrivateDir = 'C:\'
- SessionName = 'DBCHIP'
- Left = 496
- Top = 544
- end
- end
-