home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 1999 February
/
PCWorld_1999-02_cd.bin
/
temacd
/
HotKeys
/
AniBmpEd.dfm
/
AniBmpEd.txt
Wrap
Text File
|
1998-06-19
|
16KB
|
440 lines
object AnimatedBitmapsPropertyEditDlg: TAnimatedBitmapsPropertyEditDlg
Left = 184
Top = 80
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'TAnimatedBitmaps Property Editor'
ClientHeight = 422
ClientWidth = 357
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
ShowHint = True
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object pnlFrames: TPanel
Left = 8
Top = 52
Width = 341
Height = 261
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object lblBitmaps: TLabel
Left = 8
Top = 8
Width = 37
Height = 13
Caption = 'Frames:'
FocusControl = lstBitmaps
end
object btnUp: TSpeedButton
Left = 142
Top = 24
Width = 17
Height = 115
Hint = 'Move Selected Items Up'
Enabled = False
Glyph.Data = {
FE000000424DFE0000000000000076000000280000000E000000110000000100
04000000000088000000CE0E0000C40E00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
770077777777777F770077707777778F770077707777778F770077707777778F
770077707777778F770077707777778F770077707777778F7700777077777F8F
7F00707070778F8F8F0070707077878F8700770007777888F700770007777888
770077707777778F770077707777778777007777777777777700777777777777
7700}
Layout = blGlyphRight
NumGlyphs = 2
Spacing = 0
OnClick = btnUpClick
end
object btnDown: TSpeedButton
Left = 142
Top = 140
Width = 17
Height = 115
Hint = 'Move Selected Items Down'
Enabled = False
Glyph.Data = {
FE000000424DFE0000000000000076000000280000000E000000110000000100
04000000000088000000CE0E0000C40E00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
770077777777777F770077707777778F770077707777778FF700770007777888
F7007700077778887F00707070778F8F8F0070707077878F870077707777778F
770077707777778F770077707777778F770077707777778F770077707777778F
770077707777778F770077707777778777007777777777777700777777777777
7700}
Layout = blGlyphRight
NumGlyphs = 2
Spacing = 0
OnClick = btnDownClick
end
object grpPreview: TGroupBox
Left = 168
Top = 110
Width = 121
Height = 143
Caption = 'Preview'
TabOrder = 2
object btnStop: TSpeedButton
Left = 12
Top = 112
Width = 25
Height = 25
Hint = 'Stop Playing Animation'
Enabled = False
Glyph.Data = {
CA010000424DCA01000000000000760000002800000028000000110000000100
04000000000054010000CE0E0000D80E00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777777777777777777777777777777777777777777
7777777777777777777777777777777777777777777777777777777777777777
777777FFFFFFFFFF777777777000000000077777777778888888888F77777777
7000000000077777777778888888888F77777777700000000007777777777888
8888888F777777777000000000077777777778888888888F7777777770000000
00077777777778888888888F777777777000000000077777777778888888888F
777777777000000000077777777778888888888F777777777000000000077777
777778888888888F777777777000000000077777777778888888888777777777
7777777777777777777777777777777777777777777777777777777777777777
7777777777777777777777777777777777777777777777777777777777777777
7777777777777777777777777777}
NumGlyphs = 2
OnClick = btnStopClick
end
object btnPlay: TSpeedButton
Left = 40
Top = 112
Width = 25
Height = 25
Hint = 'Play Animation'
Enabled = False
Glyph.Data = {
CA010000424DCA01000000000000760000002800000028000000110000000100
04000000000054010000CE0E0000D80E00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777777777777777777777777777777777777777777
7777777777777777777777777777777777777777777777777777777777777777
777777FF777777777777777770077777777777777777788FFF77777777777777
7000077777777777777778888FFF777777777777700000077777777777777888
888FFF777777777770000000077777777777788888888FFF7777777770000000
0007777777777888888888877777777770000000077777777777788888888777
7777777770000007777777777777788888877777777777777000077777777777
7777788887777777777777777007777777777777777778877777777777777777
7777777777777777777777777777777777777777777777777777777777777777
7777777777777777777777777777777777777777777777777777777777777777
7777777777777777777777777777}
NumGlyphs = 2
OnClick = btnPlayClick
end
object pnlPreview: TPanel
Left = 12
Top = 16
Width = 90
Height = 90
BevelOuter = bvLowered
TabOrder = 0
object pbxIcon: TPaintBox
Left = 1
Top = 1
Width = 88
Height = 88
Align = alClient
OnPaint = pbxIconPaint
end
end
end
object lstBitmaps: TListBox
Left = 8
Top = 24
Width = 133
Height = 230
IntegralHeight = True
ItemHeight = 13
MultiSelect = True
Style = lbOwnerDrawVariable
TabOrder = 0
OnClick = lstBitmapsClick
OnDrawItem = lstBitmapsDrawItem
OnMeasureItem = lstBitmapsMeasureItem
end
object grpSpiffies: TGroupBox
Left = 168
Top = 19
Width = 165
Height = 89
Caption = 'No frames selected'
TabOrder = 1
object lblSpiffies: TLabel
Left = 8
Top = 28
Width = 45
Height = 13
Caption = '&Show for:'
FocusControl = edtSpiffies
end
object lblSpiffies2: TLabel
Left = 120
Top = 28
Width = 34
Height = 13
Caption = 'Spiffies'
end
object lblExplainSpiffies: TLabel
Left = 8
Top = 60
Width = 144
Height = 13
Caption = '1 Spiffy = 1/100th of a second'
end
object edtSpiffies: TEdit
Left = 60
Top = 24
Width = 41
Height = 21
Enabled = False
TabOrder = 0
Text = '10'
OnChange = edtSpiffiesChange
OnKeyPress = edtSpiffiesKeyPress
end
object udSpiffies: TUpDown
Left = 101
Top = 24
Width = 15
Height = 21
Associate = edtSpiffies
Enabled = False
Min = 1
Position = 10
TabOrder = 1
Thousands = False
Wrap = False
end
end
end
object btnOk: TButton
Left = 185
Top = 391
Width = 80
Height = 25
Caption = 'OK'
TabOrder = 1
OnClick = btnOkClick
end
object btnCancel: TButton
Left = 269
Top = 391
Width = 80
Height = 25
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 2
OnClick = btnCancelClick
end
object pnlInformation: TPanel
Left = 8
Top = 316
Width = 341
Height = 69
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 3
object lblTitle: TLabel
Left = 12
Top = 16
Width = 23
Height = 13
Caption = '&Title:'
FocusControl = edtTitle
end
object lblAuthor: TLabel
Left = 12
Top = 44
Width = 34
Height = 13
Caption = '&Author:'
FocusControl = edtAuthor
end
object edtTitle: TEdit
Left = 60
Top = 12
Width = 273
Height = 21
TabOrder = 0
OnChange = edtTitleChange
end
object edtAuthor: TEdit
Left = 60
Top = 40
Width = 273
Height = 21
TabOrder = 1
OnChange = edtAuthorChange
end
end
object pnlButtons: TPanel
Left = 8
Top = 8
Width = 341
Height = 41
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 4
object btnLoadFrame: TSpeedButton
Left = 8
Top = 8
Width = 27
Height = 27
Hint = 'Insert Frame'
Glyph.Data = {
3E020000424D3E0200000000000076000000280000002C000000130000000100
040000000000C8010000CE0E0000D80E00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777777777700007777777777777777777777777777
7777777777777777000077777777777777777777777777777777777777777777
00007777777777777777777777777777777FFFFFFFFFF7770000777777770000
0000007777777777778888888888F77700007777777700077770007777777777
77888F777888F77700007777777707077770707777777777778F8F7778F8F777
0000777777770007777000777777777777888FFFF888F7770000777777770000
0000007777777777778888888888F77700007777777700077770007777777777
77888F777888F77700007777777007077770707777777777F88F8F7778F8F777
00007777707007077770007777777778788F8FFFF888F7770000777777070000
000000777777777F878888888888F77700007777007777077770007777777788
7F7F87777888F777000077777707077777707077777777778787FF7778F8F777
0000777770707007777000777777777878F88FFFF888F7770000777707700000
0000007777777787788888888888777700007777777777777777777777777777
7777777777777777000077777777777777777777777777777777777777777777
0000}
NumGlyphs = 2
OnClick = btnLoadFrameClick
end
object btnDeleteFrame: TSpeedButton
Left = 36
Top = 8
Width = 27
Height = 27
Hint = 'Delete Selected Frames'
Enabled = False
Glyph.Data = {
3E020000424D3E0200000000000076000000280000002C000000130000000100
040000000000C8010000CE0E0000D80E00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777777777700007777777777777777777777777777
7777777777777777000077777777777777777777777777777777777777777777
0000777777777777777777777777777777777777777F77770000777777777777
77770777777777777F7777777787777700007777770777777777777777777777
8FF7777777F777770000777770007777777077777777777888F7777778777777
0000777770007777770777777777777888FF77778F7777770000777777000777
7007777777777777888FF7788777777700007777777000770077777777777777
7888FF8877777777000077777777000007777777777777777788888777777777
00007777777770007777777777777777777888FF777777770000777777770000
07777777777777777788888F7777777700007777777000770777777777777777
F8887787FF77777700007777700007777007777777777778888777788FF77777
000077770000777777007777777777888877777788FF77770000777700777777
7770077777777788777777777887777700007777777777777777777777777777
7777777777777777000077777777777777777777777777777777777777777777
0000}
Layout = blGlyphRight
NumGlyphs = 2
OnClick = btnDeleteFrameClick
end
object btnSaveFrames: TSpeedButton
Left = 96
Top = 8
Width = 27
Height = 27
Hint = 'Save Animated Icons'
Enabled = False
Glyph.Data = {
3E020000424D3E0200000000000076000000280000002C000000130000000100
040000000000C8010000CE0E0000D80E00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777777777700007777777777777777777777777777
7777777777777777000077777777777777777777777777777777777777777777
00007777777777777777777777777777FFFFFFFFFFFFF7770000777770000000
0000007777777778888888888888F7770000777707700000077070777777778F
7888888F78F8F7770000777707700000077070777777778F7888888F78F8F777
0000777707700000077070777777778F7888888FF8F8F7770000777707700000
000070777777778F788888888878F7770000777707777777777770777777778F
77FFFFFFFF78F7770000777707700000000770777777778F7888888887F8F777
0000777707077777777070777777778F8F77777778F8F7770000777707077777
777070777777778F8F77777778F8F7770000777707077777777070777777778F
8F77777778F8F7770000777707077777777000777777778F8F7777777888F777
0000777707077777777070777777778F8FFFFFFFF8F8F7770000777700000000
0000007777777788888888888888777700007777777777777777777777777777
7777777777777777000077777777777777777777777777777777777777777777
0000}
Layout = blGlyphRight
NumGlyphs = 2
OnClick = btnSaveFramesClick
end
object btnLoadFrames: TSpeedButton
Left = 68
Top = 8
Width = 27
Height = 27
Hint = 'Load Animated Icons'
Glyph.Data = {
3E020000424D3E0200000000000076000000280000002C000000130000000100
040000000000C8010000CE0E0000D80E00001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
7777777777777777777777777777777700007777777777777777777777777777
7777777777777777000077777777777777777777777777777777777777777777
0000777777777777777777777777777777777777777777770000777777777777
777777777777777FFFFFFFFFF777777700007777000000000077777777777788
888888887F777777000077770077777777077777777777887F77777787F77777
0000777707077777777077777777778F87F77777787F77770000777707707777
777707777777778F787F77777787F7770000777707770777777770777777778F
7787FFFFFFF8FF770000777707777000000000077777778F7778888888888777
0000777707777777707777777777778F77777778F77777770000777707777777
707777777777778F777FFFF8F77FFF7700007777077700000077000777777787
FF88888877888F77000077777000777777777007777777788877777F77788F77
0000777777777777077707077777777777777787FF8787770000777777777777
7000777777777777777777788877777700007777777777777777777777777777
7777777777777777000077777777777777777777777777777777777777777777
0000}
NumGlyphs = 2
OnClick = btnLoadFramesClick
end
end
object dlgOpenFrame: TOpenDialog
DefaultExt = 'bmp'
Filter = 'Bitmap Files (*.bmp)|*.bmp|All files (*.*)|*.*'
Options = [ofReadOnly, ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofNoReadOnlyReturn]
Title = 'Add Frame'
Left = 256
Top = 12
end
object dlgSaveFrames: TSaveDialog
DefaultExt = 'abm'
Filter = 'Animated Bitmap Files (*.abm)|*.abm|All files (*.*)|*.*'
Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn]
Title = 'Save Frames As'
Left = 312
Top = 12
end
object dlgOpenFrames: TOpenDialog
DefaultExt = 'abm'
Filter = 'Animated Bitmap Files (.abm)|*.abm|All files (*.*)|*.*'
Options = [ofReadOnly, ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofNoReadOnlyReturn]
Title = 'Load Animated Bitmaps File'
Left = 284
Top = 12
end
end