aboutdialog.dfm

来自「Last change: 2008-02-03 This is the sou」· DFM 代码 · 共 195 行

object AboutForm: TAboutForm
  Left = 504
  Top = 313
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '{AppName} - About'
  ClientHeight = 390
  ClientWidth = 459
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poMainFormCenter
  DesignSize = (
    459
    390)
  PixelsPerInch = 96
  TextHeight = 13
  object Panel: TPanel
    Left = 8
    Top = 8
    Width = 443
    Height = 217
    Anchors = [akLeft, akTop, akRight]
    BevelInner = bvRaised
    BevelOuter = bvLowered
    ParentColor = True
    TabOrder = 0
    DesignSize = (
      443
      217)
    object AppLogoImage: TImage
      Left = 8
      Top = 8
      Width = 48
      Height = 53
      Stretch = True
      Transparent = True
      IsControl = True
    end
    object NameLbl: TLabel
      Left = 64
      Top = 9
      Width = 55
      Height = 13
      Caption = '{AppName}'
      IsControl = True
    end
    object VersionLbl: TLabel
      Left = 64
      Top = 25
      Width = 51
      Height = 13
      Caption = 'Version %s'
      IsControl = True
    end
    object UrlLbl: TLabel
      Left = 184
      Top = 9
      Width = 249
      Height = 13
      Cursor = crHandPoint
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      AutoSize = False
      Caption = '123'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = UrlLblClick
      OnMouseEnter = UrlLblMouseEnter
      OnMouseLeave = UrlLblMouseLeave
      IsControl = True
    end
    object EmailLbl: TLabel
      Left = 184
      Top = 25
      Width = 249
      Height = 13
      Cursor = crHandPoint
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      AutoSize = False
      Caption = '123'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = EmailLblClick
      OnMouseEnter = EmailLblMouseEnter
      OnMouseLeave = EmailLblMouseLeave
      IsControl = True
    end
    object GplMemo: TMemo
      Left = 8
      Top = 72
      Width = 427
      Height = 137
      Anchors = [akLeft, akTop, akRight]
      BorderStyle = bsNone
      Color = clBtnFace
      Lines.Strings = (
        'Copyright (C) 2002 - 2005 Markus Kern <[e-mail]>'
        ''
        
          'This program is free software; you can redistribute it and/or mo' +
          'dify it under the terms'
        
          'of the GNU General Public License as published by the Free Softw' +
          'are Foundation;'
        
          'either version 2 of the License, or (at your option) any later v' +
          'ersion.'
        ''
        
          'This program is distributed in the hope that it will be useful, ' +
          'but WITHOUT ANY'
        
          'WARRANTY; without even the implied warranty of MERCHANTABILITY o' +
          'r'
        'FITNESS FOR A PARTICULAR PURPOSE.'
        'See the GNU General Public License for more details.')
      TabOrder = 0
    end
  end
  object OkBtn: TButton
    Left = 188
    Top = 357
    Width = 89
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 1
  end
  object CreditsGrp: TGroupBox
    Left = 8
    Top = 233
    Width = 443
    Height = 111
    Anchors = [akLeft, akRight, akBottom]
    Caption = 'Credits'
    TabOrder = 2
    DesignSize = (
      443
      111)
    object LischkeLbl: TLabel
      Left = 8
      Top = 20
      Width = 424
      Height = 26
      Anchors = [akLeft, akTop, akRight]
      AutoSize = False
      Caption = 
        'Thanks to Mike Lischke (www.lischke-online.de) for his Virtual T' +
        'reeview control which {AppName} uses.'
      WordWrap = True
    end
    object VLClbl: TLabel
      Left = 8
      Top = 52
      Width = 427
      Height = 26
      Anchors = [akLeft, akTop, akRight]
      AutoSize = False
      Caption = 
        'We would also like to thank the folks at www.videolan.org for cr' +
        'eating VLC, the best Open Source, cross platform media player av' +
        'ailable.'
      WordWrap = True
    end
    object XiRCLbl: TLabel
      Left = 8
      Top = 84
      Width = 427
      Height = 13
      Anchors = [akLeft, akTop, akRight]
      AutoSize = False
      Caption = 
        'Martin Bleakley has written XiRC which is used for the chat clie' +
        'nt. Many thanks to him.'
      WordWrap = True
    end
  end
end