main.dfm

jssm的delphi的源代码

object MainForm: TMainForm
  Left = 193
  Top = 108
  Width = 450
  Height = 340
  ActiveControl = Panel1
  Caption = 'BPV - StoneAge/CrossGate viewer'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 442
    Height = 313
    Align = alClient
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Color = clBlack
    FullRepaint = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object TheImage: TImage
      Left = 128
      Top = 56
      Width = 280
      Height = 200
      AutoSize = True
    end
    object Label1: TLabel
      Left = 16
      Top = 264
      Width = 282
      Height = 13
      Caption = 'BPV - StoneAge/CrossGate Game Picture Viewer.'
      Font.Charset = ANSI_CHARSET
      Font.Color = clLime
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ShowAccelChar = False
      Transparent = True
    end
    object Label2: TLabel
      Left = 16
      Top = 280
      Width = 87
      Height = 14
      Caption = 'Ver 1.0.6  2005-4'
      Transparent = True
    end
    object Label3: TLabel
      Left = 16
      Top = 248
      Width = 312
      Height = 14
      Caption = 'Tip: PgUp-Prior, PgDn-Next,  S-Save,  C-Copy, Enter-Jump.'
      Transparent = True
    end
    object AppInfo: TLabel
      Left = 16
      Top = 8
      Width = 289
      Height = 14
      Caption = 'Load Fail. Check install directory or get new version.'
    end
    object PicInfo: TLabel
      Left = 16
      Top = 48
      Width = 88
      Height = 14
      Caption = 'Current Picture:'
      Visible = False
    end
    object StaInfo: TLabel
      Left = 16
      Top = 216
      Width = 45
      Height = 14
      Caption = '> Ready.'
      Transparent = True
    end
  end
end