home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 141
- Top = 132
- Width = 386
- Height = 289
- Caption = 'Folder Icons for Win32'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poDefaultPosOnly
- Scaled = False
- OnClose = FormClose
- OnCreate = FormCreate
- OnResize = FormResize
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 224
- Width = 378
- Height = 38
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 1
- object Panel3: TPanel
- Left = 108
- Top = 0
- Width = 270
- Height = 38
- Align = alRight
- BevelOuter = bvNone
- TabOrder = 0
- object btnApply: TButton
- Left = 8
- Top = 8
- Width = 81
- Height = 25
- Caption = '&Apply'
- Enabled = False
- TabOrder = 0
- OnClick = btnApplyClick
- end
- object btnOK: TButton
- Left = 96
- Top = 8
- Width = 81
- Height = 25
- Caption = '&OK'
- Default = True
- TabOrder = 1
- OnClick = btnOKClick
- end
- object btnCancel: TButton
- Left = 184
- Top = 8
- Width = 81
- Height = 25
- Cancel = True
- Caption = '&Cancel'
- TabOrder = 2
- OnClick = btnCancelClick
- end
- end
- object btnSetup: TButton
- Left = 4
- Top = 8
- Width = 81
- Height = 25
- Caption = '&Setup'
- TabOrder = 1
- OnClick = btnSetupClick
- end
- end
- object IconListView: TListView
- Left = 0
- Top = 57
- Width = 378
- Height = 167
- Align = alClient
- ColumnClick = False
- Columns = <>
- ReadOnly = True
- HideSelection = False
- IconOptions.AutoArrange = True
- IconOptions.WrapText = False
- OnChange = IconListViewChange
- ShowColumnHeaders = False
- TabOrder = 0
- LargeImages = IconList
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 378
- Height = 57
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 2
- object Label1: TLabel
- Left = 80
- Top = 8
- Width = 79
- Height = 13
- Caption = 'Current icon file :'
- end
- object Image1: TImage
- Left = 8
- Top = 8
- Width = 32
- Height = 32
- end
- object btnBrowse: TButton
- Left = 248
- Top = 16
- Width = 25
- Height = 25
- Caption = '&...'
- TabOrder = 1
- OnClick = btnBrowseClick
- end
- object Edit1: TEdit
- Left = 80
- Top = 20
- Width = 97
- Height = 21
- TabStop = False
- ParentColor = True
- ReadOnly = True
- TabOrder = 0
- Text = 'Edit1'
- end
- object btnNoIcon: TButton
- Left = 280
- Top = 16
- Width = 81
- Height = 25
- Caption = 'Default Icon'
- TabOrder = 2
- OnClick = btnNoIconClick
- end
- end
- object OpenDialog1: TOpenDialog
- DefaultExt = '*.ico'
- Filter =
- 'Icon Files (*.ico)|*.ico|Libraries (*.exe; *.dll; *.icl)|*.exe;*' +
- '.dll;*.icl|All Files (*.*)|*.*'
- Options = [ofHideReadOnly, ofExtensionDifferent, ofFileMustExist]
- Left = 216
- Top = 16
- end
- object IconList: TImageList
- DrawingStyle = dsSelected
- Height = 32
- Width = 32
- Left = 8
- Top = 72
- end
- end
-