geticon.dfm

特别方便的工具程序

object IconForm3: TIconForm3
  Left = -4
  Top = 42
  Width = 808
  Height = 523
  Caption = #22270#26631#33539#20363#20043'3'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object List1: TListView
    Left = 0
    Top = 0
    Width = 800
    Height = 496
    Align = alClient
    Columns = <
      item
      end
      item
      end>
    OwnerData = True
    TabOrder = 0
    ViewStyle = vsReport
    OnData = List1Data
  end
  object Button1: TButton
    Left = 304
    Top = 88
    Width = 75
    Height = 25
    Caption = #20851#32852#22270#26631
    TabOrder = 1
    OnClick = LoadFileIcon
  end
  object Button2: TButton
    Left = 176
    Top = 88
    Width = 75
    Height = 25
    Caption = #26631#20934#22270#26631
    TabOrder = 2
    OnClick = FormCreate
  end
  object Button3: TButton
    Left = 176
    Top = 136
    Width = 75
    Height = 25
    Caption = #25351#23450#22270#26631
    TabOrder = 3
    OnClick = LoadDefIcon
  end
  object GroupBox1: TGroupBox
    Left = 416
    Top = 80
    Width = 185
    Height = 105
    Caption = 'GroupBox1'
    TabOrder = 4
    object Image1: TImage
      Left = 40
      Top = 0
      Width = 105
      Height = 105
    end
  end
  object Button4: TButton
    Left = 304
    Top = 136
    Width = 75
    Height = 25
    Caption = 'Button4'
    TabOrder = 5
  end
  object List2: TImageList
    Left = 96
    Top = 152
  end
end