updateform.dfm

Last change: 2008-02-03 This is the source code of KCeasy。

object AutoUpdate: TAutoUpdate
  Left = 723
  Top = 434
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '{AppName} Update Assistant'
  ClientHeight = 462
  ClientWidth = 501
  Color = clBtnFace
  DefaultMonitor = dmMainForm
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  DesignSize = (
    501
    462)
  PixelsPerInch = 96
  TextHeight = 13
  object HeadLbl: TLabel
    Left = 80
    Top = 16
    Width = 409
    Height = 16
    Anchors = [akLeft, akTop, akRight]
    AutoSize = False
    Caption = 'A new version of {AppName} is available'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object AppLogoImage: TImage
    Left = 8
    Top = 8
    Width = 48
    Height = 53
    Stretch = True
    IsControl = True
  end
  object HeadVersionLbl: TLabel
    Left = 80
    Top = 36
    Width = 409
    Height = 16
    Anchors = [akLeft, akTop, akRight]
    AutoSize = False
    Caption = 'Current version is %s'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object UpdateBtn: TButton
    Left = 88
    Top = 427
    Width = 89
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = 'Update'
    Default = True
    TabOrder = 0
    OnClick = UpdateBtnClick
  end
  object ManualGrp: TGroupBox
    Left = 8
    Top = 236
    Width = 485
    Height = 57
    Anchors = [akLeft, akTop, akRight]
    Caption = 'Manual Update'
    TabOrder = 2
    DesignSize = (
      485
      57)
    object ManualDescrLbl: TLabel
      Left = 8
      Top = 18
      Width = 469
      Height = 13
      Anchors = [akLeft, akTop, akRight]
      AutoSize = False
      Caption = 
        'You can manually update by closing {AppName} and installing the ' +
        'new version from:'
    end
    object ManualUrlLbl: TLabel
      Left = 8
      Top = 36
      Width = 423
      Height = 13
      Cursor = crHandPoint
      Anchors = [akLeft, 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 = ManualUrlLblClick
      OnMouseEnter = ManualUrlLblMouseEnter
      OnMouseLeave = ManualUrlLblMouseLeave
    end
    object ManualSizeLbl: TLabel
      Left = 430
      Top = 36
      Width = 45
      Height = 13
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      AutoSize = False
      Caption = '[123]'
    end
  end
  object AutoGrp: TGroupBox
    Left = 8
    Top = 304
    Width = 485
    Height = 113
    Anchors = [akLeft, akTop, akRight]
    Caption = 'Automatic Update'
    TabOrder = 3
    DesignSize = (
      485
      113)
    object AutoDescrLbl: TLabel
      Left = 8
      Top = 18
      Width = 469
      Height = 13
      Anchors = [akLeft, akTop, akRight]
      AutoSize = False
      Caption = 
        'Auto update will automatically download and install the new {App' +
        'Name} version for you.'
    end
    object AutoStep1Lbl: TLabel
      Left = 8
      Top = 40
      Width = 469
      Height = 13
      Anchors = [akLeft, akTop, akRight]
      AutoSize = False
      Caption = 'Step 1: Download the new version'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object AutoStep2Lbl: TLabel
      Left = 8
      Top = 58
      Width = 469
      Height = 13
      Anchors = [akLeft, akTop, akRight]
      AutoSize = False
      Caption = 'Step 2: Close {AppName} and install the downloaded version'
    end
    object AutoProgressBar: TProgressBar
      Left = 8
      Top = 82
      Width = 469
      Height = 21
      Anchors = [akLeft, akRight, akBottom]
      Min = 0
      Max = 100
      Step = 5
      TabOrder = 0
    end
  end
  object CancelBtn: TButton
    Left = 326
    Top = 427
    Width = 89
    Height = 25
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = 'Cancel'
    TabOrder = 1
    OnClick = CancelBtnClick
  end
  object NewVersionGrp: TGroupBox
    Left = 8
    Top = 72
    Width = 487
    Height = 153
    Caption = 'New version %d.%d'
    TabOrder = 4
    DesignSize = (
      487
      153)
    object DescrMemo: TMemo
      Left = 8
      Top = 16
      Width = 471
      Height = 129
      Anchors = [akLeft, akTop, akRight, akBottom]
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
end