modginfunit.dfm

很好地delphi书籍源码

object FrmModGInf: TFrmModGInf
  Left = 203
  Top = 73
  Width = 635
  Height = 424
  Caption = #26597#35810'/'#20462#25913#23458#25143#22522#26412#20449#24687
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 411
    Top = 47
    Height = 350
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 627
    Height = 47
    Align = alTop
    Color = clSkyBlue
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 146
      Top = 20
      Width = 56
      Height = 14
      Caption = #23458#25143#32534#21495
    end
    object OkSB: TSpeedButton
      Left = 354
      Top = 16
      Width = 55
      Height = 22
      Caption = #25552#20132
      Flat = True
      OnClick = OkSBClick
    end
    object CloseSB: TSpeedButton
      Left = 466
      Top = 16
      Width = 55
      Height = 22
      Caption = #20851#38381
      Flat = True
      OnClick = CloseSBClick
    end
    object RefreshSB: TSpeedButton
      Left = 410
      Top = 16
      Width = 55
      Height = 22
      Caption = #21047#26032
      Enabled = False
      Flat = True
      OnClick = GuestIDCBChange
    end
    object LookUpIDSB: TSpeedButton
      Left = 12
      Top = 14
      Width = 109
      Height = 25
      Hint = #26681#25454#29992#25143#22995#21517#26597#25214#23458#25143#32534#21495
      Caption = #23458#25143#22995#21517
      Flat = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      Glyph.Data = {
        F6000000424DF600000000000000760000002800000010000000100000000100
        0400000000008000000000000000000000001000000000000000000000000000
        8000008000000080800080000000800080008080000080808000C0C0C0000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
        FFFFFFFFFFF000FFFFFFFFFFFF0BB00FFFFFFFFFFF0BB00FFFFFFFFFFFF00FFF
        FFFFFFFFFF0B00FFFFFFFFFFFF0B00FFFFFFFFFFFF0B00FFFFFFFFFFFF0BB00F
        FFFFFFFF00F0BB00FFFFFFF0B00F0BB00FFFFFF0B00FF0B00FFFFFF0BB000BB0
        0FFFFFFF0BBBBB00FFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFF}
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      OnClick = LookUpIDSBClick
    end
    object GuestIDCB: TComboBox
      Left = 206
      Top = 14
      Width = 115
      Height = 22
      ItemHeight = 14
      TabOrder = 0
      OnChange = GuestIDCBChange
    end
  end
  object OldSG: TStringGrid
    Left = 0
    Top = 47
    Width = 411
    Height = 350
    Align = alLeft
    ColCount = 2
    DefaultRowHeight = 22
    FixedCols = 0
    RowCount = 13
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
    ParentFont = False
    TabOrder = 1
    ColWidths = (
      64
      103)
  end
  object NewSG: TStringGrid
    Left = 414
    Top = 47
    Width = 213
    Height = 350
    Align = alClient
    ColCount = 1
    DefaultRowHeight = 22
    FixedCols = 0
    RowCount = 13
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
    TabOrder = 2
  end
end