observerrominfo.dfm

来自「一个不出名的GBA模拟器」· DFM 代码 · 共 207 行

object jdevROMInfo: TjdevROMInfo
  Left = 190
  Top = 117
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'ROM Info'
  ClientHeight = 167
  ClientWidth = 182
  Color = clBtnFace
  DragKind = dkDock
  DragMode = dmAutomatic
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object lgGameTitle: TLabel
    Left = 8
    Top = 8
    Width = 54
    Height = 13
    Caption = 'Game Title:'
  end
  object lGameTitle: TLabel
    Left = 80
    Top = 8
    Width = 24
    Height = 12
    Caption = '   '
    Font.Charset = OEM_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Terminal'
    Font.Style = []
    ParentFont = False
  end
  object lGameCode: TLabel
    Left = 80
    Top = 24
    Width = 24
    Height = 12
    Caption = '   '
    Font.Charset = OEM_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Terminal'
    Font.Style = []
    ParentFont = False
  end
  object lDeveloper: TLabel
    Left = 80
    Top = 40
    Width = 24
    Height = 12
    Caption = '   '
    Font.Charset = OEM_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Terminal'
    Font.Style = []
    ParentFont = False
  end
  object lGameVersion: TLabel
    Left = 80
    Top = 56
    Width = 24
    Height = 12
    Caption = '   '
    Font.Charset = OEM_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Terminal'
    Font.Style = []
    ParentFont = False
  end
  object lgGameVersion: TLabel
    Left = 8
    Top = 56
    Width = 38
    Height = 13
    Caption = 'Version:'
  end
  object lgDeveloper: TLabel
    Left = 8
    Top = 40
    Width = 52
    Height = 13
    Caption = 'Developer:'
  end
  object lgGameCode: TLabel
    Left = 8
    Top = 24
    Width = 59
    Height = 13
    Caption = 'Game Code:'
  end
  object lgUnitCode: TLabel
    Left = 8
    Top = 72
    Width = 50
    Height = 13
    Caption = 'Unit Code:'
  end
  object lUnitCode: TLabel
    Left = 80
    Top = 72
    Width = 24
    Height = 12
    Caption = '   '
    Font.Charset = OEM_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Terminal'
    Font.Style = []
    ParentFont = False
  end
  object lDeviceType: TLabel
    Left = 80
    Top = 88
    Width = 24
    Height = 12
    Caption = '   '
    Font.Charset = OEM_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Terminal'
    Font.Style = []
    ParentFont = False
  end
  object lCompliment: TLabel
    Left = 80
    Top = 104
    Width = 24
    Height = 12
    Caption = '   '
    Font.Charset = OEM_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Terminal'
    Font.Style = []
    ParentFont = False
  end
  object lChecksum: TLabel
    Left = 80
    Top = 120
    Width = 24
    Height = 12
    Caption = '   '
    Font.Charset = OEM_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Terminal'
    Font.Style = []
    ParentFont = False
  end
  object lgChecksum: TLabel
    Left = 8
    Top = 120
    Width = 53
    Height = 13
    Caption = 'Checksum:'
  end
  object lgCompliment: TLabel
    Left = 8
    Top = 104
    Width = 61
    Height = 13
    Caption = 'Complement:'
  end
  object lgDeviceType: TLabel
    Left = 8
    Top = 88
    Width = 64
    Height = 13
    Caption = 'Device Type:'
  end
  object lHeaderGood: TLabel
    Left = 8
    Top = 144
    Width = 169
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'Header OK'
  end
  object lHeaderBad: TLabel
    Left = 8
    Top = 144
    Width = 169
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'Invalid header!'
    Font.Charset = OEM_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Terminal'
    Font.Style = []
    ParentFont = False
  end
end