home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi 4 Bible
/
Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso
/
source
/
Animator
/
Animator.exe
/
0
/
RCDATA
/
TMAINFORM
/
TMAINFORM.txt
Wrap
Text File
|
1998-05-14
|
4KB
|
126 lines
object MainForm: TMainForm
Left = 203
Top = 126
Width = 590
Height = 275
Caption = 'Animator Demonstration'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 384
Top = 136
Width = 139
Height = 24
Caption = 'Animation Status'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Animate1: TAnimate
Left = 224
Top = 24
Width = 272
Height = 60
Active = False
StopFrame = 26
end
object RadioGroup1: TRadioGroup
Left = 16
Top = 16
Width = 185
Height = 209
Caption = 'Choose Animation '
ItemIndex = 0
Items.Strings = (
'aviCopyFile'
'aviCopyFiles'
'aviDeleteFile'
'aviEmptyRecycle'
'aviFindComputer'
'aviFindFile'
'aviFindFolder'
'aviRecycleFile')
TabOrder = 1
OnClick = GoBitBtnClick
end
object GoBitBtn: TBitBtn
Left = 240
Top = 120
Width = 75
Height = 25
Caption = 'Go '
TabOrder = 2
OnClick = GoBitBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333000003333333333F777773FF333333008877700
33333337733FFF773F33330887000777033333733F777FFF73F330880FAFAF07
703337F37733377FF7F33080F00000F07033373733777337F73F087F00A2200F
77037F3737333737FF7F080A0A2A220A07037F737F3333737F7F0F0F0AAAA20F
07037F737F3333737F7F0F0A0FAA2A0A08037F737FF33373737F0F7F00FFA00F
780373F737FFF737F3733080F00000F0803337F73377733737F330F80FAFAF08
8033373F773337733733330F8700078803333373FF77733F733333300FFF8800
3333333773FFFF77333333333000003333333333377777333333}
NumGlyphs = 2
end
object StopBitBtn: TBitBtn
Left = 240
Top = 152
Width = 75
Height = 25
Caption = 'Stop '
TabOrder = 3
OnClick = StopBitBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333000003333333333F777773FF333333008877700
33333337733FFF773F33330887000777033333733F777FFF73F330880F9F9F07
703337F37733377FF7F33080F00000F07033373733777337F73F087F0091100F
77037F3737333737FF7F08090919110907037F737F3333737F7F0F0F0999910F
07037F737F3333737F7F0F090F99190908037F737FF33373737F0F7F00FF900F
780373F737FFF737F3733080F00000F0803337F73377733737F330F80F9F9F08
8033373F773337733733330F8700078803333373FF77733F733333300FFF8800
3333333773FFFF77333333333000003333333333377777333333}
NumGlyphs = 2
end
object BitBtn1: TBitBtn
Left = 240
Top = 192
Width = 75
Height = 25
TabOrder = 4
Kind = bkClose
end
object StatusText: TStaticText
Left = 344
Top = 168
Width = 225
Height = 49
Alignment = taCenter
AutoSize = False
BorderStyle = sbsSunken
Caption = '(stopped)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clPurple
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
end
end