jvqimagepreviewform.xfm

East make Tray Icon in delphi

object ImageForm: TImageForm
  Left = 206
  Top = 124
  Width = 485
  Height = 262
  VertScrollBar.Range = 255
  HorzScrollBar.Range = 479
  ActiveControl = FileEdit
  BorderIcons = [biSystemMenu]
  Caption = 'Select Image'
  Color = clButton
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'Helvetica'
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 0
  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}
  ParentFont = False
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  object PreviewBtn: TSpeedButton
    Left = 455
    Top = 4
    Width = 24
    Height = 23
    Hint = 'Preview|'
    Enabled = False
    Flat = True
    Glyph.Data = {
      6A010000424D6601000000000000760000002800000014000000140000000100
      040000000000F000000000000000000000001000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
      DDDDDDDD0000DD00DDDDDDDDDDDDDDDD0000D0000DDDDDDDDDDDDDDD0000D0F0
      00DDDDDDDDDDDDDD0000DD0F000DDDDDDDDDDDDD0000DDD0F000DDDDDDDDDDDD
      0000DDDD0F00000008DDDDDD0000DDDDD0F008000800000D0000DDDDDD0080FF
      FE80FE0D0000DDDDDD08D0EF0FE88F0D0000DDDDDD08D0F000FE0E0D0000DDDD
      DD08D880E00F0F0D0000DDDDDD08DFFEFE000E0D0000DDDDDD888FFFEFE88F0D
      0000DDDDDDD08DFEFE80FE0D0000DDDDDDDD0D6D6D00000D0000DDDDDDDDD800
      08F0E0DD0000DDDDDDDDD0EFEFE00DDD0000DDDDDDDDD0000000DDDD0000DDDD
      DDDDDDDDDDDDDDDD0000}
    OnClick = PreviewBtnClick
  end
  object PathLabel: TLabel
    Left = 158
    Top = 27
    Width = 146
    Height = 15
    AutoSize = False
    Caption = 'E:\...\dev\JVCL3\design'
  end
  object ImageName: TLabel
    Left = 319
    Top = 13
    Width = 55
    Height = 14
    Caption = 'ImageName'
  end
  object Label2: TLabel
    Left = 4
    Top = 216
    Width = 86
    Height = 14
    Caption = 'List files of &type:  '
    FocusControl = FilterCombo
  end
  object Label3: TLabel
    Left = 158
    Top = 216
    Width = 37
    Height = 14
    Caption = 'Dri&ves: '
  end
  object Label4: TLabel
    Left = 4
    Top = 8
    Width = 54
    Height = 14
    Caption = 'File &name:  '
    FocusControl = FileEdit
  end
  object Label5: TLabel
    Left = 158
    Top = 8
    Width = 45
    Height = 14
    Caption = '&Folders:  '
  end
  object FileEdit: TEdit
    Left = 4
    Top = 24
    Width = 146
    Height = 22
    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 FilterCombo: TFilterComboBox
    Left = 4
    Top = 233
    Width = 146
    Height = 22
    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 FileListBox: TFileListView
    Left = 4
    Top = 53
    Width = 289
    Height = 160
    Directory.Location = 'G:\mnt\win_c\CVSCheckout\dev\jvcl3\qdesign\'
    Directory.FileMask = '*.xfm'
    TabOrder = 12
  end
  object FileEdit1: TFileEdit
    Left = 168
    Top = 232
    Width = 129
    Height = 22
    Directory.IncludeParentDir = False
    Directory.Location = 'G:\Program Files\Borland\Delphi7\Projects\'
    Directory.FileMask = '*.*'
    TabOrder = 13
    Text = 'FileEdit1'
  end
end