home *** CD-ROM | disk | FTP | other *** search
- object engine: Tengine
- Left = 239
- Top = 194
- BorderStyle = bsNone
- Caption = 'realtime - engine by Provaznik Petr'
- ClientHeight = 573
- ClientWidth = 792
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnActivate = FormActivate
- OnClose = FormClose
- OnKeyDown = FormKeyDown
- PixelsPerInch = 96
- TextHeight = 13
- object DXDraw1: TDXDraw
- Left = -8
- Top = -27
- Width = 800
- Height = 600
- AutoInitialize = True
- AutoSize = False
- Color = clBtnFace
- Display.BitCount = 16
- Display.FixedBitCount = True
- Display.FixedRatio = True
- Display.FixedSize = False
- Display.Height = 600
- Display.Width = 800
- Options = [doAllowReboot, doWaitVBlank, doCenter, doRetainedMode, doHardware, doSelectDriver]
- SurfaceHeight = 600
- SurfaceWidth = 800
- TabOrder = 3
- end
- object obrazovky: TNotebook
- Left = 0
- Top = 0
- Width = 792
- Height = 573
- Align = alClient
- TabOrder = 0
- object TPage
- Left = 0
- Top = 0
- Caption = 'start'
- object uvodImage: TImage
- Left = 0
- Top = 0
- Width = 792
- Height = 573
- Cursor = crHandPoint
- Align = alClient
- OnClick = uvodImageClick
- end
- object hudba_off: TButton
- Left = 360
- Top = 120
- Width = 75
- Height = 25
- Caption = 'hudba_off'
- TabOrder = 0
- Visible = False
- OnClick = hudba_offClick
- end
- object hudba_on: TButton
- Left = 384
- Top = 80
- Width = 75
- Height = 25
- Caption = 'hudba on'
- TabOrder = 1
- Visible = False
- OnClick = hudba_onClick
- end
- object nastaveni: TListBox
- Left = 120
- Top = 328
- Width = 121
- Height = 97
- ItemHeight = 13
- TabOrder = 2
- Visible = False
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'cteni'
- object webbrowser1: TEmbeddedWB
- Left = 0
- Top = 0
- Width = 792
- Height = 573
- Align = alClient
- TabOrder = 0
- OnStatusTextChange = webbrowser1StatusTextChange
- OnNavigateComplete2 = webbrowser1NavigateComplete2
- DownloadOptions = [DLCTL_DLIMAGES, DLCTL_VIDEOS, DLCTL_BGSOUNDS]
- UserInterfaceOptions = [NO3DBORDER]
- OnShowContextMenu = webbrowser1ShowContextMenu
- PrintOptions.Margins.Left = 19.050000000000000000
- PrintOptions.Margins.Right = 19.050000000000000000
- PrintOptions.Margins.Top = 19.050000000000000000
- PrintOptions.Margins.Bottom = 19.050000000000000000
- PrintOptions.Header = '&w&bStr'#225'nka '#269'. &p z &P'
- PrintOptions.HTMLHeader.Strings = (
- '<HTML></HTML>')
- PrintOptions.Footer = '&u&b&d'
- PrintOptions.Orientation = poPortrait
- ReplaceCaption = False
- EnableDDE = False
- fpExceptions = True
- ControlData = {
- 4C000000DB510000393B00000000000000000000000000000000000000000000
- 000000004C000000000000000000000001000000E0D057007335CF11AE690800
- 2B2E126208000000000000004C0000000114020000000000C000000000000046
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000010000000000000000000000000000000000000068154900}
- end
- end
- end
- object Panel1: TPanel
- Left = 250
- Top = 0
- Width = 300
- Height = 55
- BevelOuter = bvNone
- BorderWidth = 1
- Color = clBlack
- TabOrder = 1
- Visible = False
- object Image1: TImage
- Left = 0
- Top = 0
- Width = 300
- Height = 55
- AutoSize = True
- Picture.Data = {<image000.jpg>}
- end
- object Label1: TLabel
- Left = 8
- Top = 9
- Width = 75
- Height = 17
- Cursor = crHandPoint
- Hint = 'Hudba - nastaven'#237', volby'
- AutoSize = False
- ParentShowHint = False
- ShowHint = True
- Transparent = True
- OnClick = Label1Click
- end
- object Label2: TLabel
- Left = 88
- Top = 9
- Width = 60
- Height = 17
- Cursor = crHandPoint
- Hint = 'Zp'#283't o jednu str'#225'nku'
- AutoSize = False
- ParentShowHint = False
- ShowHint = True
- Transparent = True
- OnClick = Label2Click
- end
- object Label3: TLabel
- Left = 154
- Top = 9
- Width = 68
- Height = 17
- Cursor = crHandPoint
- Hint = 'Skok do hlavn'#237'ho menu'
- AutoSize = False
- ParentShowHint = False
- ShowHint = True
- Transparent = True
- OnClick = Label3Click
- end
- object Label4: TLabel
- Left = 248
- Top = 8
- Width = 49
- Height = 19
- Cursor = crHandPoint
- Hint = 'Ukon'#269'en'#237' REALTIME'
- AutoSize = False
- ParentShowHint = False
- ShowHint = True
- Transparent = True
- OnClick = Label4Click
- end
- end
- object Panel2: TPanel
- Left = 250
- Top = 56
- Width = 300
- Height = 200
- BevelOuter = bvNone
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- Visible = False
- object Image2: TImage
- Left = 0
- Top = 0
- Width = 300
- Height = 200
- AutoSize = True
- Picture.Data = {<image001.jpg>}
- end
- object Label5: TLabel
- Left = 267
- Top = 8
- Width = 25
- Height = 17
- Cursor = crHandPoint
- Hint = 'Zav'#345'i menu HUDBA'
- AutoSize = False
- ParentShowHint = False
- ShowHint = True
- Transparent = True
- OnClick = Label5Click
- end
- object Bevel1: TBevel
- Left = 8
- Top = 40
- Width = 281
- Height = 129
- Shape = bsFrame
- end
- object Label6: TLabel
- Left = 12
- Top = 35
- Width = 102
- Height = 13
- Caption = ' HRAJ SKLADBU '
- Color = clGreen
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- end
- object hu1: TLabel
- Left = 16
- Top = 53
- Width = 18
- Height = 13
- Cursor = crHandPoint
- Caption = 'hu1'
- Transparent = True
- OnClick = hu1Click
- end
- object hu2: TLabel
- Left = 16
- Top = 69
- Width = 18
- Height = 13
- Cursor = crHandPoint
- Caption = 'hu2'
- Transparent = True
- OnClick = hu2Click
- end
- object hu3: TLabel
- Left = 16
- Top = 85
- Width = 18
- Height = 13
- Cursor = crHandPoint
- Caption = 'hu3'
- Transparent = True
- OnClick = hu3Click
- end
- object hu4: TLabel
- Left = 16
- Top = 101
- Width = 18
- Height = 13
- Cursor = crHandPoint
- Caption = 'hu4'
- Transparent = True
- OnClick = hu4Click
- end
- object hu5: TLabel
- Left = 16
- Top = 117
- Width = 18
- Height = 13
- Cursor = crHandPoint
- Caption = 'hu5'
- Transparent = True
- OnClick = hu5Click
- end
- object hu6: TLabel
- Left = 16
- Top = 133
- Width = 18
- Height = 13
- Cursor = crHandPoint
- Caption = 'hu6'
- Transparent = True
- OnClick = hu6Click
- end
- object hu7: TLabel
- Left = 16
- Top = 149
- Width = 18
- Height = 13
- Cursor = crHandPoint
- Caption = 'hu7'
- Transparent = True
- OnClick = hu7Click
- end
- object Label7: TLabel
- Left = 24
- Top = 178
- Width = 58
- Height = 13
- Cursor = crHandPoint
- Caption = 'Hudba hraje'
- Transparent = True
- OnClick = Label7Click
- end
- object Label8: TLabel
- Left = 120
- Top = 178
- Width = 59
- Height = 13
- Cursor = crHandPoint
- Caption = 'M'#283'nit hudbu'
- Transparent = True
- OnClick = Label8Click
- end
- object Label9: TLabel
- Left = 216
- Top = 178
- Width = 70
- Height = 13
- Cursor = crHandPoint
- Caption = 'Hudba nehraje'
- Transparent = True
- OnClick = Label9Click
- end
- object hudbahraje1: TRadioButton
- Left = 8
- Top = 178
- Width = 14
- Height = 14
- Checked = True
- Color = clBlack
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- TabOrder = 0
- TabStop = True
- OnClick = hudbahraje1Click
- end
- object hudbahraje2: TRadioButton
- Left = 201
- Top = 178
- Width = 13
- Height = 13
- TabOrder = 1
- OnClick = hudbahraje2Click
- end
- object zmena: TCheckBox
- Left = 104
- Top = 178
- Width = 13
- Height = 14
- Checked = True
- State = cbChecked
- TabOrder = 2
- end
- end
- object Timer1: TTimer
- Interval = 500
- OnTimer = Timer1Timer
- Left = 672
- Top = 64
- end
- end
-