home *** CD-ROM | disk | FTP | other *** search
- object ImageForm: TImageForm
- Left = 193
- Top = 107
- ActiveControl = FileEdit
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'Image Viewer'
- ClientHeight = 315
- ClientWidth = 502
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- Position = poDefaultPosOnly
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 316
- Top = 5
- Width = 171
- Height = 121
- end
- object Bevel2: TBevel
- Left = 317
- Top = 132
- Width = 170
- Height = 177
- end
- object Label1: TLabel
- Left = 325
- Top = 11
- Width = 147
- Height = 13
- AutoSize = False
- Caption = 'Label1'
- end
- object Label2: TLabel
- Left = 324
- Top = 290
- Width = 117
- Height = 13
- Caption = 'Number of Glyphs - '
- end
- object DirectoryListBox1: TDirectoryListBox
- Left = 8
- Top = 12
- Width = 148
- Height = 260
- FileList = FileListBox1
- IntegralHeight = True
- ItemHeight = 16
- TabOrder = 1
- end
- object DriveComboBox1: TDriveComboBox
- Left = 9
- Top = 277
- Width = 148
- Height = 19
- DirList = DirectoryListBox1
- TabOrder = 3
- end
- object FileEdit: TEdit
- Left = 166
- Top = 13
- Width = 139
- Height = 21
- TabOrder = 0
- Text = '*.bmp;*.ico;*.wmf;*.emf'
- OnKeyPress = FileEditKeyPress
- end
- object UpDownGroup: TGroupBox
- Left = 323
- Top = 158
- Width = 154
- Height = 60
- Caption = 'Up / Down'
- TabOrder = 5
- object SpeedButton1: TSpeedButton
- Left = 116
- Top = 26
- Width = 25
- Height = 25
- AllowAllUp = True
- GroupIndex = 1
- end
- object BitBtn1: TBitBtn
- Left = 12
- Top = 18
- Width = 92
- Height = 33
- Caption = 'BitBtn1'
- TabOrder = 0
- end
- end
- object DisabledGrp: TGroupBox
- Left = 323
- Top = 220
- Width = 154
- Height = 60
- Caption = 'Disabled'
- TabOrder = 7
- object SpeedButton2: TSpeedButton
- Left = 116
- Top = 25
- Width = 25
- Height = 25
- Enabled = False
- end
- object BitBtn2: TBitBtn
- Left = 11
- Top = 18
- Width = 92
- Height = 33
- Caption = 'BitBtn2'
- Enabled = False
- TabOrder = 0
- end
- end
- object Panel1: TPanel
- Left = 324
- Top = 27
- Width = 153
- Height = 68
- BevelInner = bvLowered
- TabOrder = 8
- object Image1: TImage
- Left = 2
- Top = 2
- Width = 149
- Height = 64
- Align = alClient
- IncrementalDisplay = False
- end
- end
- object FileListBox1: TFileListBox
- Left = 166
- Top = 41
- Width = 139
- Height = 227
- FileEdit = FileEdit
- ItemHeight = 13
- Mask = '*.bmp;*.ico;*.wmf;*.emf'
- TabOrder = 2
- OnClick = FileListBox1Click
- end
- object ViewBtn: TBitBtn
- Left = 325
- Top = 98
- Width = 63
- Height = 24
- Caption = '&Full View'
- TabOrder = 6
- OnClick = ViewBtnClick
- end
- object FilterComboBox1: TFilterComboBox
- Left = 166
- Top = 275
- Width = 140
- Height = 21
- FileList = FileListBox1
- Filter =
- 'Image Files (*.bmp, *.ico, *.wmf, *.emf)|*.bmp;*.ico;*.wmf;*.emf' +
- '|Bitmap Files (*.bmp)|*.bmp|Icons (*.ico)|*.ico|Metafiles (*.wmf' +
- ', *.emf)|*.wmf;*.emf|All files (*.*)|*.*'
- TabOrder = 4
- end
- object GlyphCheck: TCheckBox
- Left = 327
- Top = 137
- Width = 104
- Height = 17
- Caption = 'View as Glyph'
- TabOrder = 9
- OnClick = GlyphCheckClick
- end
- object StretchCheck: TCheckBox
- Left = 413
- Top = 96
- Width = 64
- Height = 17
- Caption = 'Stretch'
- TabOrder = 11
- OnClick = StretchCheckClick
- end
- object UpDownEdit: TEdit
- Left = 439
- Top = 286
- Width = 24
- Height = 21
- TabOrder = 10
- Text = '1'
- OnChange = UpDownEditChange
- end
- object UpDown1: TUpDown
- Left = 463
- Top = 286
- Width = 11
- Height = 21
- Associate = UpDownEdit
- Min = 0
- Position = 1
- TabOrder = 12
- Wrap = False
- end
- end
-