resfixmain.dfm

Jedi Code Library JCL JVCL 组件包 JCL+JVCL超过300个组件的非可视/可视大型组件包。

object MainForm: TMainForm
  Left = 227
  Top = 112
  AutoScroll = False
  Caption = 'Resource fix utility for Windows 95'
  ClientHeight = 357
  ClientWidth = 425
  Color = clBtnFace
  Constraints.MinHeight = 200
  Constraints.MinWidth = 250
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 281
    Width = 425
    Height = 57
    Align = alBottom
  end
  object Label1: TLabel
    Left = 8
    Top = 287
    Width = 86
    Height = 13
    Anchors = [akLeft, akBottom]
    Caption = 'Smallest resource:'
  end
  object Label2: TLabel
    Left = 8
    Top = 303
    Width = 82
    Height = 13
    Anchors = [akLeft, akBottom]
    Caption = 'Largest resource:'
  end
  object Label3: TLabel
    Left = 8
    Top = 319
    Width = 68
    Height = 13
    Anchors = [akLeft, akBottom]
    Caption = 'Scaling factor:'
  end
  object MinResLabel: TLabel
    Left = 100
    Top = 287
    Width = 66
    Height = 13
    Alignment = taRightJustify
    Anchors = [akLeft, akBottom]
    AutoSize = False
    Caption = '0'
  end
  object MaxResLabel: TLabel
    Left = 100
    Top = 303
    Width = 66
    Height = 13
    Alignment = taRightJustify
    Anchors = [akLeft, akBottom]
    AutoSize = False
    Caption = '0'
  end
  object FactorLabel: TLabel
    Left = 100
    Top = 319
    Width = 66
    Height = 13
    Alignment = taRightJustify
    Anchors = [akLeft, akBottom]
    AutoSize = False
    Caption = '0'
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 425
    Height = 26
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 22
        Width = 421
      end>
    OnResize = CoolBar1Resize
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 408
      Height = 22
      AutoSize = True
      Caption = 'ToolBar1'
      EdgeBorders = []
      Flat = True
      Images = ImageList1
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Action = Open1
      end
      object ToolButton2: TToolButton
        Left = 23
        Top = 0
        Width = 8
        Caption = 'ToolButton2'
        ImageIndex = 2
        Style = tbsSeparator
      end
      object ToolButton3: TToolButton
        Left = 31
        Top = 0
        Action = Description1
      end
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 338
    Width = 425
    Height = 19
    Panels = <
      item
        Width = 90
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object ResListView: TListView
    Left = 0
    Top = 26
    Width = 425
    Height = 255
    Align = alClient
    Columns = <
      item
        Caption = 'Resource type'
        Width = 100
      end
      item
        Caption = 'Resource name'
        Width = 100
      end
      item
        Alignment = taRightJustify
        Caption = 'Size'
        Width = 60
      end
      item
        Alignment = taRightJustify
        Caption = 'Fixed size'
        Width = 70
      end>
    ColumnClick = False
    HotTrackStyles = []
    ReadOnly = True
    RowSelect = True
    TabOrder = 2
    ViewStyle = vsReport
    OnCustomDrawItem = ResListViewCustomDrawItem
  end
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 8
    Top = 248
    object File1: TMenuItem
      Caption = 'File'
      object Open2: TMenuItem
        Action = Open1
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit2: TMenuItem
        Action = Exit1
      end
    end
    object Help1: TMenuItem
      Caption = 'Help'
      object Descriptionofbug1: TMenuItem
        Action = Description1
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Support1: TMenuItem
        Action = SendMail1
      end
      object About11: TMenuItem
        Action = About1
      end
    end
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 40
    Top = 248