jvqpictureeditform.xfm

East make Tray Icon in delphi

object PictureEditDialog: TPictureEditDialog
  Left = 363
  Top = 193
  Width = 353
  Height = 327
  VertScrollBar.Range = 320
  HorzScrollBar.Range = 346
  ActiveControl = Load
  BorderIcons = [biSystemMenu]
  Caption = 'Picture Editor'
  Color = clButton
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Font.Style = []
  Font.Weight = 0
  Icon.Data = {
    0000010001001010100001001000280100001600000028000000100000002000
    00000100040000000000C0000000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    00000000000000000BBBB0000000000BB000BB000000000BB0000B000000000B
    BB000BB00000000BBB000BB00000000000000BB00000000000000BB000000000
    00000BB00000000000000BB00000000000000BB00000000000000BB000000000
    00000BB0000000000000BBBB00000000000BBBBBB0000000000000000000FFFF
    0000F87F0000E73F0000E7BF0000E39F0000E39F0000FF9F0000FF9F0000FF9F
    0000FF9F0000FF9F0000FF9F0000FF9F0000FF0F0000FE070000FFFF0000}
  ParentFont = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  TextWidth = 6
  object OKButton: TButton
    Left = 105
    Top = 295
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 2
  end
  object CancelButton: TButton
    Left = 188
    Top = 295
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 3
  end
  object HelpBtn: TButton
    Left = 271
    Top = 295
    Width = 75
    Height = 25
    Caption = '&Help'
    TabOrder = 4
    OnClick = HelpBtnClick
  end
  object GroupBox: TGroupBox
    Left = 7
    Top = 3
    Width = 339
    Height = 262
    TabOrder = 0
    object Bevel: TBevel
      Left = 9
      Top = 15
      Width = 237
      Height = 237
    end
    object PathsBtn: TSpeedButton
      Left = 307
      Top = 186
      Width = 22
      Height = 25
      Enabled = False
      Glyph.Data = {
        9A000000424D9600000000000000360000002800000007000000040000000100
        18000000000060000000C30E0000C30E00000000000000000000C6C6C6C6C6C6
        C6C6C6000000C6C6C6C6C6C6C6C6C6000000C6C6C6C6C6C60000000000000000
        00C6C6C6C6C6C6000000C6C6C6000000000000000000000000000000C6C6C600
        0000000000000000000000000000000000000000000000000000}
      OnClick = PathsBtnClick
    end
    object ImagePanel: TPanel
      Left = 10
      Top = 16
      Width = 235
      Height = 235
      BevelOuter = bvNone
      BorderWidth = 5
      BorderStyle = bsSingle
      Color = clBase
      TabOrder = 0
      object ImagePaintBox: TPaintBox
        Left = 5
        Top = 5
        Width = 225
        Height = 225
        Align = alClient
        OnPaint = ImagePaintBoxPaint
      end
    end
    object Load: TButton
      Left = 254
      Top = 16
      Width = 75
      Height = 25
      Caption = '&Load...'
      TabOrder = 1
      OnClick = LoadClick
    end
    object Save: TButton
      Left = 254
      Top = 49
      Width = 75
      Height = 25
      Caption = '&Save...'
      TabOrder = 2
      OnClick = SaveClick
    end
    object Clear: TButton
      Left = 254
      Top = 146
      Width = 75
      Height = 25
      Caption = 'Cl&ear'
      TabOrder = 5
      OnClick = ClearClick
    end
    object Copy: TButton
      Left = 254
      Top = 81
      Width = 75
      Height = 25
      Caption = '&Copy'
      TabOrder = 3
      OnClick = CopyClick
    end
    object Paste: TButton
      Left = 254
      Top = 114
      Width = 75
      Height = 25
      Caption = '&Paste'
      TabOrder = 4
      OnClick = PasteClick
    end
    object Paths: TButton
      Left = 254
      Top = 186
      Width = 53
      Height = 25
      Caption = 'P&aths'
      TabOrder = 6
      OnClick = PathsClick
    end
  end
  object DecreaseBox: TCheckBox
    Left = 7
    Top = 271
    Width = 339
    Height = 14
    Caption = ' &Decrease to 16 colors when paste '
    Checked = True
    State = cbChecked
    TabOrder = 1
  end
  object PathsMenu: TPopupMenu
    Alignment = paRight
    OnPopup = PathsMenuPopup
    Left = 96
    Top = 30
  end
end