object BitmapDlg: TBitmapDlg Left = 52 Top = 95 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 OnClose = FormClose OnShow = FormShow 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 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 end end object MoveCheckBox: TCheckBox Left = 232 Top = 272 Width = 321 Height = 17 Caption = 'Move Picture Or Randomly Plot It (Check For Move)' State = cbChecked TabOrder = 5 end object OpenDialog: TOpenDialog Filter = 'Bitmap|*.bmp' InitialDir = 'c:\windows' Left = 32 Top = 24 end end