object BitmapDlg: TBitmapDlg Left = 158 Top = 199 ActiveControl = OKBtn BorderStyle = bsDialog Caption = 'Select the name of the bitmap you wish to use!' ClientHeight = 317 ClientWidth = 560 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Icon.Data = {} PixelsPerInch = 96 Position = poScreenCenter OnActivate = FormActivate OnClose = FormClose TextHeight = 13 object Bevel1: TBevel Left = 8 Top = 8 Width = 369 Height = 105 Shape = bsFrame IsControl = True end object FileBtn: TSpeedButton Left = 168 Top = 24 Width = 137 Height = 25 Caption = 'Select A File' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333 333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000 0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF 07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF 07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF 0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333 3BB33773333773333773B333333B3333333B7333333733333337} NumGlyphs = 2 OnClick = FileBtnClick end object PrevBtn: TSpeedButton Left = 232 Top = 120 Width = 137 Height = 25 Caption = 'Preview Bitmap' Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033BBBBBBBBBB BB33337777777777777F33BB00BBBBBBBB33337F77333333F37F33BB0BBBBBB0 BB33337F73F33337FF7F33BBB0BBBB000B33337F37FF3377737F33BBB00BB00B BB33337F377F3773337F33BBBB0B00BBBB33337F337F7733337F33BBBB000BBB BB33337F33777F33337F33EEEE000EEEEE33337F3F777FFF337F33EE0E80000E EE33337F73F77773337F33EEE0800EEEEE33337F37377F33337F33EEEE000EEE EE33337F33777F33337F33EEEEE00EEEEE33337F33377FF3337F33EEEEEE00EE EE33337F333377F3337F33EEEEEE00EEEE33337F33337733337F33EEEEEEEEEE EE33337FFFFFFFFFFF7F33EEEEEEEEEEEE3333777777777777730000} NumGlyphs = 2 OnClick = PrevBtnClick end object OKBtn: TBitBtn Left = 412 Top = 8 Width = 77 Height = 27 TabOrder = 0 OnClick = OKBtnClick Kind = bkOK Margin = 2 Spacing = -1 IsControl = True end object EditFile: TEdit Left = 16 Top = 64 Width = 353 Height = 20 TabOrder = 1 end object Panel1: TPanel Left = 384 Top = 80 Width = 175 Height = 175 TabOrder = 2 object Image: TImage Left = 1 Top = 1 Width = 173 Height = 173 Align = alClient Center = True Stretch = True end end object Memo1: TMemo Left = 16 Top = 152 Width = 361 Height = 65 Lines.Strings = ( 'Note: The bitmap preview function automatically resizes the' ' bitmap to the size of the preview box! This is to get' ' a rough idea of the bitmap only! Depending on the' ' bitmap'#39's real size the image may be distorted!') ReadOnly = True TabOrder = 3 end object GroupBox1: TGroupBox Left = 12 Top = 223 Width = 213 Height = 72 Caption = ' Speed ' TabOrder = 4 object Label1: TLabel Left = 182 Top = 20 Width = 28 Height = 13 Caption = 'Slow' end object Label2: TLabel Left = 7 Top = 20 Width = 25 Height = 13 Caption = 'Fast' end object Spd: TScrollBar Left = 7 Top = 39 Width = 195 Height = 20 Min = 1 Position = 50 TabOrder = 0 OnChange = SpdChange end end object OpenDialog: TOpenDialog Filter = 'Bitmap|*.bmp' InitialDir = 'c:\windows' Left = 32 Top = 24 end end