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