jvimagepreviewform.dfm

East make Tray Icon in delphi

object ImageForm: TImageForm
  Left = 201
  Top = 98
  ActiveControl = FileEdit
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Select Image'
  ClientHeight = 265
  ClientWidth = 485
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    00044444444400000000000000000000444F7777777744440000000000000044
    7F7F77777777787844000000000004777F7F7777777778788840000000000477
    7F7F97777777787888400000000004777F7F7977777778788840000000000477
    7F7F79117777787888400000000004777F7F7991177778788840000000000477
    7F7F77F91177787888400000000004777F7F779F917778788840000000000477
    7F7F77799907787888400000000004777F7F7777700078788840000000000477
    7F7F77777700087888400000000004777F7F7777777030788840000000000477
    7F7F77779977030988400000000004777F7F7777977770309840000000000477
    7F7E4444944477030840000000000477444E4444444444403040000000000444
    BB4E44444444444903000000000004B70B4E44444494444940300000000004B7
    0B4E44444994444998030000000004B704499999FFFF44499840300000000447
    011999999999FFF9984003000000048770119999999999998840003000000048
    7081111111999888844000030000000470088888888888444400000030000000
    0704444444444470000000000000000007000000000000000000000000000000
    0070000000000700000000000000000000070000000770000000000000000000
    000000777777000000000000000000000000000000000000000000000000FE00
    FFFFF0000FFFC00003FF800001FF800001FF800001FF800001FF800001FF8000
    01FF800001FF800001FF800001FF800001FF800001FF800001FF800001FF8000
    01FF800001FF800001FF800000FF8000007F8000003F8000011F8000018FC000
    01C7E00003E3F8000FF1F9FFDFFBFCFF9FFFFE7E3FFFFF007FFFFFC0FFFF0000}
  OldCreateOrder = True
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object PathLabel: TLabel
    Left = 158
    Top = 27
    Width = 146
    Height = 15
    AutoSize = False
    Caption = 'E:\...\JVCL3\packages\d6'
  end
  object ImageName: TLabel
    Left = 319
    Top = 13
    Width = 57
    Height = 13
    Caption = 'ImageName'
  end
  object Label2: TLabel
    Left = 4
    Top = 224
    Width = 81
    Height = 13
    Caption = 'List files of &type:  '
    FocusControl = FilterCombo
  end
  object Label3: TLabel
    Left = 158
    Top = 224
    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: TSpeedButton
    Left = 455
    Top = 4
    Width = 24
    Height = 23
    Hint = 'Preview|'
    Enabled = False
    Flat = True
    Glyph.Data = {
      66010000424D6601000000000000760000002800000014000000140000000100
      040000000000F000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
      DDDDDDDD0000DD00DDDDDDDDDDDDDDDD0000D0000DDDDDDDDDDDDDDD0000D0F0
      00DDDDDDDDDDDDDD0000DD0F000DDDDDDDDDDDDD0000DDD0F000DDDDDDDDDDDD
      0000DDDD0F00000008DDDDDD0000DDDDD0F008000800000D0000DDDDDD0080FF
      FE80FE0D0000DDDDDD08D0EF0FE88F0D0000DDDDDD08D0F000FE0E0D0000DDDD
      DD08D880E00F0F0D0000DDDDDD08DFFEFE000E0D0000DDDDDD888FFFEFE88F0D
      0000DDDDDDD08DFEFE80FE0D0000DDDDDDDD0D6D6D00000D0000DDDDDDDDD800
      08F0E0DD0000DDDDDDDDD0EFEFE00DDD0000DDDDDDDDD0000000DDDD0000DDDD
      DDDDDDDDDDDDDDDD0000}
    OnClick = PreviewBtnClick
  end
  object DirectoryList: TDirectoryListBox
    Left = 158
    Top = 51
    Width = 148
    Height = 164
    DirLabel = PathLabel
    FileList = FileListBox
    IntegralHeight = True
    ItemHeight = 16
    TabOrder = 2
    OnChange = FileListBoxClick
  end
  object DriveCombo: TDriveComboBox
    Left = 158
    Top = 241
    Width = 148
    Height = 19
    DirList = DirectoryList
    TabOrder = 4
  end
  object FileEdit: TEdit
    Left = 4
    Top = 24
    Width = 146
    Height = 21
    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 = 164
    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 = 241
    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 = 318
    Top = 198
    Width = 116
    Height = 15
    Caption = ' &Stretch '
    TabOrder = 6
    OnClick = StretchCheckClick
  end
  object OkBtn: TButton
    Left = 318
    Top = 236
    Width = 77
    Height = 25
    Caption = 'OK'
    Default = True
    TabOrder = 7
    OnClick = OkBtnClick
  end
  object CancelBtn: TButton
    Left = 401
    Top = 236
    Width = 77
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 8
  end
  object FilePics: TJvPicClip
    Cols = 11
    Picture.Data = {
      07544269746D61709E050000424D9E050000000000007600000028000000B000
      00000F0000000100040000000000280500000000000000000000100000000000
      000000000000000080000080000000808000800000008000800080800000C0C0
      C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFF
      FF00DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD00000000000
      00DDD0000000000000DDD00000000000000DDDDDDDDDDDDDDDDDDDDDDDDDDDDD
      DDDDDDDDDDDDDDDDDDDDDDDDDD0000DDDDDDDDDDDD0DDDDDDDDDDD0000000000
      0000DDD0000000000000DDD0000000000000D8777777777770DDD87777777777
      70DDD87777777777770DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD00000000000
      00DD000000BF30000000DDDDDD0D0DDDDDDDD888888888888880DD8888888888
      8800DD88888888888800D8FFFFFFFFFF70DDD8FFFFFFFFFF70DDD8F111FFFFFF
      F70DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD888888888888880D777777333077
      7777DDDD080D0D0DDDDDD8FB7B7B7B7B7B80DD8FB7B7B7B7B800DD87B8B8B8B8
      B800D8FFFFFFFFFF70DDD8FFFFFFFFFF70DDD8FF991110FFF70DD00000000000
      00DDD0000000000000DD8F77FFFFF777780DDDDDDDD70DDDDDDDDDD070080D0D
      0DDDD8F7B7B7B7B7B780D8FB7B7B7B7B7080D87B8B8B8B8B8080D8FFFFF00FFF
      70DDD8FF0087F70F70DDD8FFFF99870FF70D888888888888880D888888888888
      880D8FA200000000780DDDDDDDD00DDDDDDDDD08F880080D0D0DD8FB7B7B7B7B
      7B80D8F7B7B7B7B78080D878B8B8B8B88080D8FFFF0770FF70DDD8F0F700000F
      70DDD8FF000FF804F70D877777777777788087FFFFFFFFFF78808F7777788777
      000DD0000000000000DDD08F778880080D0DD8F7B7B7B7B7B7808F7B7B7B7B7B
      0880878B8B8B8B8B0880D8FFF8F0880F70DDD8FFCC0C0B0F70DDD8F2AA20FFEC
      470D87777FFFF777788087888888888878808FFFFF87F777AB0D87FFFFFFFFFF
      780D87F777778880080DD8FB7B7B7B7B7B808FFFFFFFFFF80780877777777778
      0780D8FF070F80FF70DDD8FCF700000F70DDD8F2AA2099FCC40D878880000888
      78808777777777777880D88888777F77BEE087888888888878808F7777777788
      8000D8F7B7B7B7B7B7808888888888888B808888888888888B80D8F3B0880FFF
      70DDD8FF9909020F70DDD8F2BA20991FCC4D8777788887797880877777777772
      7880DDDDD8777808E77087777777777778808777777777778880D8FB7B7B7B7B
      7B80D8F7B7B7B7B7B780D878B8B8B8B8B880D8FF0B30FFFF70DDD8F9FFF000FF
      70DDD8FF2209991FFCC48FFFFFFFFFFFF8808FFFFFFFFFFFF880DDDDD877A070
      77708777777777727880DD8F777777777780D8FFFFFFFFFFFF80D8FB7B7B7FFF
      FF80D87B8B8B87777780D8FF330FFFFF70DDD8FFFFFFFFFF70DDD8FFFF99991F
      F7CCD87777777777778DD87777777777778DDDDDD87AA808F7708FFFFFFFFFFF
      F880DDDD8F777777770DD87B7B7B7888888DD8F7B7B7F888888DD878B8B87888
      888DD8FFFFFFFF0000DDD8FFFFFFFF0000DDD8FFFF888810000CDD8888888888
      88DDDD888888888888DDDDDDD8AAEBB77F70D877777777777780DDDDDD8F7777
      70DDDD87B7B78DDDDDDDDD8FFFFF8DDDDDDDDD8777778DDDDDDDD8FFFFFFFF7F
      8DDDD8FFFFFFFF7F8DDDD8FFFFF11117F8DDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
      DDDDDDDDDD8EEBB7770DDD8888888888888DDDDDDDDD8F770DDDDDD88888DDDD
      DDDDDDD88888DDDDDDDDDDD88888DDDDDDDDD8FFFFFFFF78DDDDD8FFFFFFFF78
      DDDDD8FFFFFFFFF78DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD88BB7
      88DDDDDDDDDDDDDDDDDDDDDDDDDDDD80DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
      DDDDDDDDDDDDDDDDDDDDD8888888888DDDDDD8888888888DDDDDD88888888888
      DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD888DDDDDDDDDDDDDDDD
      DDDDDDDDDDDDDDDDDDDD}
    Left = 240
  end
  object FormStorage: TJvFormStorage
    AppStorage = AppStorage
    AppStoragePath = 'RX.ImagePreview\'
    StoredProps.Strings = (
      'StretchCheck.Checked')
    StoredValues = <>
    Left = 272
  end
  object AppStorage: TJvAppRegistryStorage
    StorageOptions.BooleanStringTrueValues = 'TRUE, YES, Y'
    StorageOptions.BooleanStringFalseValues = 'FALSE, NO, N'
    Root = '%NONE%'
    SubStorages = <>
    Left = 208
  end
end