object ImageForm: TImageForm Left = 201 Top = 98 ActiveControl = FileEdit BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Select Image' ClientHeight = 262 ClientWidth = 485 Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} PixelsPerInch = 96 Position = poScreenCenter OnCreate = FormCreate OnDestroy = FormDestroy TextHeight = 13 object PathLabel: TLabel Left = 158 Top = 27 Width = 146 Height = 15 AutoSize = False Caption = 'e:\work\rx' end object ImageName: TLabel Left = 319 Top = 13 Width = 57 Height = 13 Caption = 'ImageName' end object Label2: TLabel Left = 4 Top = 216 Width = 81 Height = 13 Caption = 'List files of &type: ' FocusControl = FilterCombo end object Label3: TLabel Left = 158 Top = 216 Width = 36 Height = 13 Caption = 'Dri&ves: ' FocusControl = DriveCombo end object Label4: TLabel Left = 4 Top = 8 Width = 54 Height = 13 Caption = 'File &name: ' FocusControl = FileEdit end object Label5: TLabel Left = 158 Top = 8 Width = 43 Height = 13 Caption = '&Folders: ' FocusControl = DirectoryList end object PreviewBtn: TRxSpeedButton Left = 455 Top = 4 Width = 24 Height = 23 Hint = 'Preview|' Enabled = False Flat = True Glyph.Data = { 66010000424D6601000000000000760000002800000014000000140000000100 040000000000F000000000000000000000000000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD DDDDDDDD0000DD00DDDDDDDDDDDDDDDD0000D0000DDDDDDDDDDDDDDD0000D0F0 00DDDDDDDDDDDDDD0000DD0F000DDDDDDDDDDDDD0000DDD0F000DDDDDDDDDDDD 0000DDDD0F00000008DDDDDD0000DDDDD0F008000800000D0000DDDDDD0080FF FE80FE0D0000DDDDDD08D0EF0FE88F0D0000DDDDDD08D0F000FE0E0D0000DDDD DD08D880E00F0F0D0000DDDDDD08DFFEFE000E0D0000DDDDDD888FFFEFE88F0D 0000DDDDDDD08DFEFE80FE0D0000DDDDDDDD0D6D6D00000D0000DDDDDDDDD800 08F0E0DD0000DDDDDDDDD0EFEFE00DDD0000DDDDDDDDD0000000DDDD0000DDDD DDDDDDDDDDDDDDDD0000} Layout = blGlyphLeft OnClick = PreviewBtnClick end object DirectoryList: TDirectoryListBox Left = 158 Top = 51 Width = 148 Height = 162 DirLabel = PathLabel FileList = FileListBox ItemHeight = 16 TabOrder = 2 OnChange = FileListBoxClick end object DriveCombo: TDriveComboBox Left = 158 Top = 233 Width = 148 Height = 21 DirList = DirectoryList TabOrder = 4 end object FileEdit: TEdit Left = 4 Top = 24 Width = 146 Height = 20 TabOrder = 0 Text = '*.bmp;*.ico;*.wmf' end object ImagePanel: TPanel Left = 315 Top = 32 Width = 164 Height = 160 BevelInner = bvLowered BevelOuter = bvNone TabOrder = 5 object Image: TImage Left = 1 Top = 1 Width = 162 Height = 158 Align = alClient Center = True end end object FileListBox: TFileListBox Left = 4 Top = 51 Width = 146 Height = 162 FileEdit = FileEdit FileType = [ftReadOnly, ftHidden, ftNormal] IntegralHeight = True ItemHeight = 16 Mask = '*.bmp;*.ico;*.wmf' ShowGlyphs = True TabOrder = 1 OnChange = FileListBoxChange OnClick = FileListBoxClick OnDblClick = FileListBoxDblClick end object FilterCombo: TFilterComboBox Left = 4 Top = 233 Width = 146 Height = 21 FileList = FileListBox Filter = 'Image Files (*.bmp, *.ico, *.wmf)|*.bmp;*.ico;*.wmf|Bitmap Files' + ' (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Metafiles (*.wmf)|*.wmf|All f' + 'iles (*.*)|*.*' TabOrder = 3 OnChange = FileListBoxClick end object StretchCheck: TCheckBox Left = 321 Top = 198 Width = 116 Height = 15 Caption = ' &Stretch ' TabOrder = 6 OnClick = StretchCheckClick end object OkBtn: TButton Left = 318 Top = 228 Width = 77 Height = 25 Caption = 'OK' Default = True TabOrder = 7 OnClick = OkBtnClick end object CancelBtn: TButton Left = 401 Top = 228 Width = 77 Height = 25 Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 8 end object FilePics: TPicClip Cols = 11 Picture.Data = {} Left = 244 Top = 6 end object FormStorage: TFormStorage IniFileName = 'DELPHI.INI' IniSection = 'RX.ImagePreview' StoredProps.Strings = ( 'StretchCheck.Checked') Left = 272 Top = 6 end end