Chip 2001 September/Chip_2001-09_cd1.bin/zkuste/delphi/kolekce/d6/RX275D6.ZIP/Units/IMAGPRVW.DFM/IMAGPRVW.txt

Text File | 1999-10-12 | 5KB | 208 lines

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 = {<image000.ico>}
  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 = {<image001.bmp>}
    Left = 244
    Top = 6
  end
  object FormStorage: TFormStorage
    IniFileName = 'DELPHI.INI'
    IniSection = 'RX.ImagePreview'
    StoredProps.Strings = (
      'StretchCheck.Checked')
    Left = 272
    Top = 6
  end
end