home *** CD-ROM | disk | FTP | other *** search
- object frmCollPal: TfrmCollPal
- Left = 255
- Top = 53
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- BorderIcons = []
- BorderStyle = bsNone
- ClientHeight = 283
- ClientWidth = 340
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- Position = poDefault
- OnResize = FormResize
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 340
- Height = 283
- Align = alClient
- BevelInner = bvLowered
- BorderWidth = 1
- BorderStyle = bsSingle
- Ctl3D = False
- ParentCtl3D = False
- PopupMenu = PopupMenu1
- TabOrder = 0
- object lbPalette: TListBox
- Left = 3
- Top = 34
- Width = 332
- Height = 244
- HelpContext = 250
- Align = alClient
- Color = clBtnFace
- ExtendedSelect = False
- ItemHeight = 27
- Items.Strings = (
- 'AA'
- 'BB'
- 'CCC')
- PopupMenu = PopupMenu1
- Style = lbOwnerDrawFixed
- TabOrder = 0
- OnClick = lbPaletteClick
- OnDrawItem = lbPaletteDrawItem
- end
- object Notebook1: TNotebook
- Left = 3
- Top = 3
- Width = 332
- Height = 31
- Align = alTop
- Color = clActiveCaption
- ParentColor = False
- TabOrder = 1
- object TPage
- Left = 0
- Top = 0
- Caption = 'FileTo'
- object Label2: TLabel
- Left = 32
- Top = 0
- Width = 228
- Height = 31
- Caption = ' Move Item(s) To:'
- Color = clBtnFace
- Font.Color = clWhite
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- object Image1: TImage
- Left = 2
- Top = 2
- Width = 25
- Height = 25
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- end
- end
- object TPage
- Left = 0
- Top = 0
- Caption = 'SetCurrColl'
- object Label1: TLabel
- Left = 0
- Top = 0
- Width = 332
- Height = 20
- Align = alTop
- Caption = ' Activate Collection:'
- Color = clActiveCaption
- Font.Color = clWhite
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- Transparent = True
- end
- end
- end
- object cmdCancel: TBitBtn
- Left = 256
- Top = 4
- Width = 73
- Height = 29
- Caption = '&Cancel'
- TabOrder = 2
- OnClick = cmdCancelClick
- Kind = bkCancel
- end
- end
- object PopupMenu1: TPopupMenu
- Left = 168
- Top = 40
- object mnuCollMan: TMenuItem
- Caption = 'Collection Management ...'
- ShortCut = 0
- OnClick = mnuCollManClick
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object WhatsThis: TMenuItem
- Caption = 'What'#39's This?'
- ShortCut = 0
- OnClick = WhatsThisClick
- end
- end
- end
-