home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2001 February
/
Chip_2001-02_cd1.bin
/
sharewar
/
attract
/
attract.exe
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
< prev
Wrap
Text File
|
2000-09-20
|
9KB
|
244 lines
object Form1: TForm1
Left = 162
Top = 119
Width = 640
Height = 480
ActiveControl = StartTlako
Caption = 'Prezentace (shareware verze)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
PopupMenu = Pravyklik1
Position = poScreenCenter
OnActivate = FormActivate
OnClick = FormClick
OnClose = FormClose
OnCreate = FormCreate
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 13
object Aviplay: TMediaPlayer
Left = 347
Top = 43
Width = 29
Height = 28
EnabledButtons = [btPlay, btStop, btStep, btBack]
VisibleButtons = []
AutoEnable = False
DeviceType = dtAVIVideo
Display = Owner
Visible = False
TabOrder = 0
end
object StartTlako: TBitBtn
Left = 3
Top = 3
Width = 24
Height = 24
Hint = 'Spu�t�n� prezentace'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = StartTlakoClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
NumGlyphs = 2
end
object StopTlako: TBitBtn
Left = 59
Top = 3
Width = 24
Height = 24
Hint = 'Zastaven� prezentace'
Enabled = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
OnClick = StopTlakoClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
70E337F33333333337F3E0F33333333370E337F333FFFFF337F3E0F330000033
70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
70E337F33777773337F3E0F33333333370E337F33333333337F3E0F333333333
70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
NumGlyphs = 2
end
object KonfTlako: TBitBtn
Left = 3
Top = 31
Width = 24
Height = 24
Hint = 'Nastaven�'
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = KonfTlakoClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
00E338888888888888F3E0F88888888880E338F33333333338F3E0F333333333
80E338F3333FFF3338F3E0F33800083380E338F333888FF338F3E0F380000083
80E338F3388888FF38F3E0F30000000380E338F38888888F38F3E0F300000003
80E338F38888888F38F3E0F30000000380E338F38888888338F3E0F380000083
80E338F33888883338F3E0F33800083380E338F33388833338F3E0F333333333
80E338F33333333338F3E0FFFFFFFFFFF0E338FFFFFFFFFFF8F3E00000000000
00E33888888888888833EEEEEEEEEEEEEEE33333333333333333}
NumGlyphs = 2
end
object KonecTlako: TBitBtn
Left = 3
Top = 59
Width = 24
Height = 24
Hint = 'Ukon�en�'
Cancel = True
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = KonecTlakoClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
00E338888888888888F3E0F88888888880E338F33333333338F3E0F333333333
80E338F33FFFFFFF38F3E0F30000000380E338F38888888338F3E0F300000003
80E338F38888888338F3E0F33333333380E338F33FFFFFFF38F3E0F300000003
80E338F38888888338F3E0F33000003380E338F33888883338F3E0F333000333
80E338F33388833338F3E0F33330333380E338F33338333338F3E0F333333333
80E338F33333333338F3E0FFFFFFFFFFF0E338FFFFFFFFFFF8F3E00000000000
00E33888888888888833EEEEEEEEEEEEEEE33333333333333333}
NumGlyphs = 2
end
object Panel1: TPanel
Left = 88
Top = 3
Width = 163
Height = 24
Hint = 'Odehran� �as aktu�ln�ho videa'
BevelOuter = bvLowered
Caption = '�as'
ParentShowHint = False
ShowHint = True
TabOrder = 5
Visible = False
end
object NextTlako: TBitBtn
Left = 31
Top = 3
Width = 24
Height = 24
Hint = 'Dal�� video'
Enabled = False
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnClick = NextTlakoClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
70E337F33333333337F3E0F33333333370E337F333FF3F3337F3E0F330030333
70E337F3377F7FF337F3E0F33003003370E337F3377F77FF37F3E0F330030003
70E337F3377F777337F3E0F33003003370E337F3377F773337F3E0F330030333
70E337F33773733337F3E0F33333333370E337F33333333337F3E0F333333333
70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
NumGlyphs = 2
end
object HideTlako: TBitBtn
Left = 31
Top = 31
Width = 24
Height = 24
Hint = 'Schovat tla��tka'
Enabled = False
ParentShowHint = False
ShowHint = True
TabOrder = 7
OnClick = HideTlakoClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000CE0E0000D80E00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
70E337F33333333337F3E0F33333333370E337F333FFFFF337F3E0F330000033
70E337F3377777F337F3E0F33033303370E337F337F337F337F3E0F330333033
70E337F337F337F337F3E0F33033303370E337F337FFF7F337F3E0F330000033
70E337F33777773337F3E0F33333333370E337F33333333337F3E0F333333333
70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
NumGlyphs = 2
end
object Casovac: TTimer
Interval = 150
OnTimer = CasovacTimer
Left = 240
Top = 48
end
object Pravyklik1: TPopupMenu
Left = 290
Top = 45
object Start1: TMenuItem
Caption = 'Start'
Hint = 'Spust� prezentaci'
ShortCut = 116
OnClick = StartTlakoClick
end
object Stop1: TMenuItem
Caption = 'Stop'
Enabled = False
Hint = 'Zastavit prezentaci'
ShortCut = 117
OnClick = StopTlakoClick
end
object Fullscreen1: TMenuItem
Caption = 'Zv�t�it'
Hint = 'Rozt�hne okno'
ShortCut = 119
OnClick = Fullscreen1Click
end
object Info1: TMenuItem
Caption = 'Info'
Hint = 'Informace o programu'
ShortCut = 113
OnClick = Info1Click
end
object Npovda1: TMenuItem
Caption = 'N�pov�da'
ShortCut = 112
OnClick = Npovda1Click
end
end
end