Chip: Shareware for Win 95/Chip-Shareware-Win95.bin/ostatni/clipma/cm32.exe/CLIPMT42.EXE/0/RCDATA/TFRMPICKER/TFRMPICKER.txt

Text File | 1997-02-01 | 18.1 KB | 444 lines

object frmPicker: TfrmPicker
  Left = 403
  Top = 88
  Width = 388
  Height = 398
  HelpContext = 182
  Caption = 'Clip Item Selection'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  Scaled = False
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object TabbedNotebook1: TTabbedNotebook
    Left = 0
    Top = 0
    Width = 380
    Height = 343
    Align = alClient
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 0
    OnClick = TabbedNotebook1Click
    object TTabPage
      Left = 4
      Top = 27
      Caption = '&Multi-Select'
      object pnlMSLControls: TPanel
        Left = 0
        Top = 0
        Width = 372
        Height = 37
        Align = alTop
        BevelOuter = bvNone
        PopupMenu = mnuMSList
        TabOrder = 1
        object cmdMoveUp: TSpeedButton
          Tag = 27
          Left = 4
          Top = 4
          Width = 29
          Height = 29
          Hint = 'Re-Order Collection by moving Item(s) up toward the top.'
          AllowAllUp = True
          Glyph.Data = {
            06020000424D0602000000000000760000002800000019000000190000000100
            0400000000009001000000000000000000000000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333000000000000000000333333333333330000000000000000003
            3333333333333000000033333333333333333333333330000000000000000003
            3333333333333000000000000000000333333333333330000000333333333333
            33333333333330000000333CCCCCCCCCCC399999993330000000333CCCCCCCCC
            CC39999999333000000033333333333333333339993330000000000000000003
            3333333999333000000000000000000333333339993330000000333333333333
            3333333999333000000000000000000333333339993330000000000000000003
            3333333999333000000033333333333333333339993330000000000000000003
            3333333999333000000000000000000333333999999930000000333333333333
            3333339999933000000000000000000333333339993330000000000000000003
            3333333393333000000033333333333333333333333330000000000000000003
            3333333333333000000000000000000333333333333330000000333333333333
            33333333333330000000}
          OnClick = cmdMoveUpClick
          OnMouseDown = ToolBarMouseDown
          OnMouseMove = ToolbarMouseMove
        end
        object cmdMoveDown: TSpeedButton
          Tag = 28
          Left = 35
          Top = 4
          Width = 29
          Height = 29
          Hint = 'Re-Order Collection by moving Item(s) down toward the bottom.'
          AllowAllUp = True
          Glyph.Data = {
            06020000424D0602000000000000760000002800000019000000190000000100
            0400000000009001000000000000000000000000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333000000000000000000333333333333330000000000000000003
            3333333333333000000033333333333333333333333330000000000000000003
            3333333393333000000000000000000333333339993330000000333333333333
            3333339999933000000000000000000333333999999930000000000000000003
            3333333999333000000033333333333333333339993330000000000000000003
            3333333999333000000000000000000333333339993330000000333333333333
            3333333999333000000000000000000333333339993330000000000000000003
            3333333999333000000033333333333333333339993330000000333CCCCCCCCC
            CC399999993330000000333CCCCCCCCCCC399999993330000000333333333333
            3333333333333000000000000000000333333333333330000000000000000003
            3333333333333000000033333333333333333333333330000000000000000003
            3333333333333000000000000000000333333333333330000000333333333333
            33333333333330000000}
          OnClick = cmdMoveDownClick
          OnMouseDown = ToolBarMouseDown
          OnMouseMove = ToolbarMouseMove
        end
        object cmdErase: TSpeedButton
          Tag = 29
          Left = 70
          Top = 4
          Width = 29
          Height = 29
          Hint = 'Delete Selected Items'
          AllowAllUp = True
          Glyph.Data = {
            06020000424D0602000000000000760000002800000019000000190000000100
            0400000000009001000000000000000000000000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333000000033333333333333333333333330000000300000000000
            000000003333300000000BBBBBBBBBBBBBBBBBBB0333300000000B0000000000
            0000000B0333300000000B0FCFFFFFFFFF0F0F0B0333300000000B0FCFFFFFFF
            FF00000B0333300000000B0CCCCCCCCCCC00000B0333300000000B0FFFFFFF00
            0F07770B0333300000000B0FFFFFF0D99007770B0333300000000B0FFFFF0FDD
            D807770B0333300000000B0FFFFF0DFD8880770B0333300000000B0FFFFFF0D7
            7899070B0333300000000B0CCCCCCC077BB9900B0333300000000B0FCFFFFFF0
            FFBB990B0333300000000B0FCFFFFFFF0FFBB9900333300000000B0CCCCCCCCC
            C0FFBB990333300000000B0FCFFFFFFFFF0FFBB99033300000000B0FCFFFFFFF
            FF00FFBB9903300000000B000000000000000FFBB990300000000BBBBBB0FFF0
            BBBBB0FFBB9900000000300000000F000000000FFBB99000000033333330FFF0
            33333330FFBB90000000333333300000333333330FFBB0000000333333333333
            3333333330FFB0000000}
          OnClick = cmdEraseClick
          OnMouseDown = ToolBarMouseDown
          OnMouseMove = ToolbarMouseMove
        end
        object cmdPrint: TSpeedButton
          Tag = 30
          Left = 101
          Top = 4
          Width = 29
          Height = 29
          Hint = 'Print Selected Items'
          AllowAllUp = True
          Glyph.Data = {
            06020000424D0602000000000000760000002800000019000000190000000100
            0400000000009001000000000000000000000000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300000000
            00000000033330000000333088888888888888888033300000003330F7777777
            7777777778033000000033308888888888888888880330000000330000000000
            00000000000330000000308888888888888888888803300000000F7777777777
            777777777780300000000F7777777777777777777788000000000F7777777777
            777777777788000000000F7777777777777222227788000000000F7777777777
            777222227788000000000F7777777777777777777788000000000F7777777777
            777777777788000000000FFFFFFFFFFFFFFFFFFFFF8800000000307777777777
            7777777777F80000000033077000000000000000087F00000000333000FFFFFF
            FFFFFFFF000030000000333330FFFFFFFFFFFFFF0333300000003333388F8000
            0000008F8833300000003333330FFFFFFFFFFFFFF0333000000033333330FF00
            00000000FF0330000000333333330FFFFFFFFFFFFFF0300000003333333388F0
            000000000FF8800000003333333330FFFFFFFFFFFFFF00000000333333333800
            00000000000080000000}
          OnClick = cmdPrintClick
          OnMouseDown = ToolBarMouseDown
          OnMouseMove = ToolbarMouseMove
        end
        object cmdGlue: TSpeedButton
          Tag = 31
          Left = 132
          Top = 4
          Width = 29
          Height = 29
          Hint = 'Glue selected items together into one big item.'
          AllowAllUp = True
          GroupIndex = 6
          Glyph.Data = {
            8A050000424D8A05000000000000760000002800000064000000190000000100
            0400000000001405000000000000000000000000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            333333333333333333FFFFFFFFFFFFFFFFFF3333333333333333333333333333
            3333333333333333333333330000333300000000000000000033333338888888
            888888888887F330000000000000033333333333000000000000003333333333
            00003330EFE6E6E6E6E6E6E6760333338F333333333333333338F30BBBBBBBBB
            BBBBB03333333330B6E6E6E6EBBBBB033333333300003330FEFE6E6E6E6E6E67
            670333338F333FFFF3FFF3333338F30B000000000000000000000030B06E6E6E
            000000000000000300003330EFE000080006E6E6760333338F338888F8887FF3
            3338F30B0FCFFFFFFF07676767676700B0F6E6E6FFF076767676767000003330
            FEFE600800800E67670333338F333388F88F88F33338F30B0FCFFFFFF0767676
            76767600B0FE6E6EFF0767676767676000003330EFE6E008008006E676033333
            8F333388F88F88F33338F30B0CCCCC000767676767676700B0C6E6E000767676
            7676767000003330FFFFF00800800FF7780333338F333388F88F88F33338F30B
            0FCFFF00FFF6E6E6E6E6E600B0FC6E600E6E6E6E6E6E6E6000003330FFFFF008
            00800FF7780333338F333388F88F88F33338F30B0FCFFF88FFFF6E6E6E6E6E00
            B0FCE6E6E6E6E6E6E6E6E6E000003330FFFFF00800800FF7780333338F333388
            F88388F33338F30B0CCCCC88FFFFF6E6E6E6E600B0CCCE6E6E6E6E6E6E6E6E60
            00003330FFFFF00FFFF00FF7780333338F333388F33388F33338F30B0FCFFF88
            FFFFFF6E6E6E6E00B0FCFFE6E6E6E6E6E6E6E6E000003330FFFFF00FFFF00FF7
            780333338F3333887FFF88333338F30B0FCFFF88FFFFFFF6E6E6E600B0FCFFFE
            6E6E6E6E6E6E6E600000333077FFFFF0000FFF777803333387F3333388883333
            3338330B0CCCCC88FFFFFFFF6E6E6E00B0CCCCC88FFFFFFFFFE6E6E000003333
            077FFFF8008FF77780333333387F3333388F33333383330B0FCFFF88FFFFFFFF
            E6E6E600B0FCFFF88FFFFFFFFFFF6E6000003333307FFFF8008FF77803333333
            3387F333388F33333833330B0FCFFF88FFFFFFFF6E6E6E00B0FCFFF88FFFFFFF
            FFFFFFE000003333330FFFF8008777803333333333F8FFFFF88FFFFF8FFF330B
            000000887FFFFFFFF6E6E600B000000887FFFFFFFFFFFFF00000333300000000
            00000000003333333888888888888888888F330BBBBBBB8877FFFFFFFF6E6E00
            BBBBBBB8877FFFFFFFFFFFF0000033330FFFFFF7008778888033333338F33333
            388F3333338F333000000088777FFFFFFFF6E603000000088777FFFFFFFFFFF0
            000033330FFFFFF70087788880333333387FFFFFF88FFFFFFF83333333333300
            8777777777676703333333300877777777777770000033333000000000000000
            0333333333888888888888888833333333333300087777777776760333333330
            00877777777777700000333333333333003333333333333333333333388FF333
            3333333333333333308777777777670333333333330877777777777000003333
            333333300003333333333333333333338888F333333333333333333333088888
            8888880333333333333088888888888000003333333333300003333333333333
            3333333388883333333333333333333333300000000000333333333333330000
            0000000300003333333333333333333333333333333333333333333333333333
            3333333333333333333333333333333333333333333333330000333333333333
            3333333333333333333333333333333333333333333333333333333333333333
            3333333333333333333333330000}
          NumGlyphs = 4
          OnClick = cmdGlueClick
          OnMouseDown = ToolBarMouseDown
          OnMouseMove = ToolbarMouseMove
        end
        object cmdFile: TSpeedButton
          Tag = 32
          Left = 163
          Top = 4
          Width = 29
          Height = 29
          Hint = 'Move Items Into Another Collection.'
          Glyph.Data = {
            06020000424D0602000000000000760000002800000019000000190000000100
            0400000000009001000000000000000000000000000000000000000000000000
            80000080000000808000800000008000800080800000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777707
            77700000000000000000777770000090770BFBFBFBFB00000000777709999999
            070FBFBFBFBF00000000777099999999900BFBFBFBFB00000000770999999999
            070FBFBFBFBF00000000709999900090770BFBFBFBFB00000000709999077707
            770FBFBFBFBF0000000070999077777777000000000000000000700000000000
            7700FBFB0BFB000000000BBBBBBBBBBB070F0000BFBF000000000B000000000B
            070BFBFBFBFB000000000B0FCFFFFF0B070FBFBFBFBF000000000B0FCFFFFF0B
            070BFBFBFBFB000000000B0CCCCCCC0B070FBFBFBFBF000000000B0FCFFFFF0B
            070000000000000000000B0FCFFFFF0B0700FBFB0BFB000000000B0CCCCCCC0B
            070F0000BFBF000000000B0FCFFFFF0B070BFBFBFBFB000000000B0FCFFFFF0B
            070FBFBFBFBF000000000B000000000B070BFBFBFBFB000000000BBB0FFF0BBB
            070FBFBFBFBF00000000700000F000007700000000007000000077770FFF0777
            7770FBFB07777000000077770000077777770000777770000000777777777777
            77777777777770000000}
          Layout = blGlyphRight
          OnClick = cmdFileClick
          OnMouseDown = ToolBarMouseDown
          OnMouseMove = ToolbarMouseMove
        end
        object pnlHoldOk: TPanel
          Left = 319
          Top = 0
          Width = 53
          Height = 37
          Align = alRight
          BevelOuter = bvNone
          TabOrder = 0
          object cmdOk: TBitBtn
            Left = 2
            Top = 4
            Width = 48
            Height = 29
            Caption = '&Ok'
            Font.Color = clBlack
            Font.Height = -12
            Font.Name = 'MS Sans Serif'
            Font.Style = [fsBold]
            ParentFont = False
            TabOrder = 0
            OnClick = cmdOkClick
            Kind = bkOK
            Margin = 2
            Spacing = -1
            IsControl = True
          end
        end
      end
      object lbSelectItem: TPickList
        Left = 0
        Top = 37
        Width = 372
        Height = 275
        Hint = 'Select item(s)  Ctrl or Shift to extend selection.'
        HelpContext = 33
        Align = alClient
        Color = clBtnFace
        ItemHeight = 16
        MultiSelect = True
        PopupMenu = mnuMSList
        TabOrder = 0
        OnClick = lbSelectItemClick
        OnDrawItem = lbSelectItemDrawItem
        SelectedStyle = psOwnerDraw
        OnChange = lbSelectItemChange
      end
    end
    object TTabPage
      Left = 4
      Top = 27
      Caption = '&Thumbnail Grid'
      object pnlGridControls: TPanel
        Left = 0
        Top = 0
        Width = 372
        Height = 37
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        object SpinGridSize: TSpinEdit
          Left = 45
          Top = 4
          Width = 40
          Height = 26
          Hint =
            'Set the number of colums visible in grid.  The larger the number' +
            ', the smaller the size of each cell.'
          HelpContext = 35
          MaxValue = 16
          MinValue = 1
          PopupMenu = mnuMSList
          TabOrder = 0
          Value = 4
          OnChange = SpinGridSizeChange
        end
        object cmdFont: TBitBtn
          Left = 4
          Top = 4
          Width = 33
          Height = 29
          Hint = 'Change Font Of Display (Does NOT Affect Data)'
          HelpContext = 156
          PopupMenu = mnuMSList
          TabOrder = 1
          OnClick = cmdFontClick
          Glyph.Data = {
            B0010000424DB001000000000000760000002800000018000000180000000100
            0400000000002001000000000000000000000000000000000000000000000000
            BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333333333333333333333380088333333333333333338007700833333
            3333333333307700770333000333300003307033003333090833309903077033
            3333330990000999030770333333333099999990330770833033333090000903
            3330708807033330990309033330770077033333090090333333007707033333
            099090333333330030333333309990338000033333333333309903300CCCC003
            3333333333090330CC00CCC03333333333090330C0330CC03333333333303330
            CC000CC03333333333333330CCCCCCC03333333333333330C0330C0333333333
            33333300C000CC0333333333333330CCCCCCCC03333333333333300000000033
            3333333333333333333333333333333333333333333333333333000000000000
            0000000000000000000000000000000000000000}
          Layout = blGlyphTop
        end
      end
      object GridThumbNail: TDrawGrid
        Left = 0
        Top = 37
        Width = 372
        Height = 275
        Hint = 'Click on item to select.'
        Align = alClient
        ColCount = 4
        DefaultRowHeight = 64
        FixedCols = 0
        FixedRows = 0
        Font.Color = clBlack
        Font.Height = -12
        Font.Name = 'Courier New'
        Font.Style = []
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goThumbTracking]
        ParentColor = True
        ParentFont = False
        ScrollBars = ssVertical
        TabOrder = 0
        OnDrawCell = GridThumbNailDrawCell
        OnSelectCell = GridThumbNailSelectCell
      end
    end
  end
  object HeaderStatus: THeader
    Left = 0
    Top = 343
    Width = 380
    Height = 28
    HelpContext = 18
    Align = alBottom
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
  end
  object FontDialog1: TFontDialog
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Style = []
    MinFontSize = 1
    MaxFontSize = 14
    Left = 60
    Top = 80
  end
  object mnuMSList: TPopupMenu
    Left = 144
    Top = 104
    object mnuSelectAll: TMenuItem
      Caption = '&Select All'
      ShortCut = 0
      OnClick = mnuSelectAllClick
    end
    object mnuClearSelection: TMenuItem
      Caption = '&Clear Selection'
      ShortCut = 0
      OnClick = mnuClearSelectionClick
    end
    object N1: TMenuItem
      Caption = '-'
      ShortCut = 0
    end
    object PopMenuWhatsThis: TMenuItem
      Caption = 'What'#39's This?'
      ShortCut = 0
      OnClick = PopMenuWhatsThisClick
    end
  end
  object AdrockFormPosition1: TAdrockFormPosition
    Version = '1.40b'
    SectionName = 'SaveFrmPicker'
    IniFile = 'clipmt40.ini'
    WriteWhenLoaded = False
    SaveDefaultDetails = False
    Left = 53
    Top = 143
  end
end