main.dfm

来自「这是一套全面的网络组件」· DFM 代码 · 共 115 行

object MainForm: TMainForm
  Left = 299
  Top = 55
  Width = 486
  Height = 356
  Caption = 'Clever Web Update Demo'
  Color = clBtnFace
  ParentFont = True
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar: TStatusBar
    Left = 0
    Top = 283
    Width = 478
    Height = 19
    Panels = <
      item
        Alignment = taCenter
        Bevel = pbRaised
        Text = 'Cancel'
        Width = 80
      end
      item
        Text = 'Update Progress'
        Width = 50
      end>
    OnMouseDown = StatusBarMouseDown
    OnMouseUp = StatusBarMouseUp
  end
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 478
    Height = 283
    Align = alClient
    Lines.Strings = (
      
        'This demo retrieves the version information from the website and' +
        ' if there is a newer '
      
        'version of the application available it will download the update' +
        ' files and run the update.'
      ''
      
        'You should always run your application using the starter.cmd fil' +
        'e and not using the '
      'TestApplication.exe or Delphi/C++Builder IDE.'
      ''
      'Also you must have the pkzipc.exe utility installed on your PC.'
      'You can get the latest version of pkzipc.exe from www.pkware.com'
      ''
      
        'You can learn more about the Web Updater functionality from the ' +
        'article available at '
      
        'http://www.clevercomponents.com/articles/article023/webupdater2.' +
        'asp'
      ''
      
        'Press the "Start Update" button to begin the Web updating proces' +
        's.')
    TabOrder = 1
  end
  object clWebUpdate: TclWebUpdate
    ProductName = 'Updater Sample'
    UpdateURL = 
      'http://www.clevercomponents.com/demo/inetsuite/samples/webupdate' +
      '6/webupdate.xml'
    UpdateDir = '.\webupdate'
    ActualUpdateInfoFile = '.\webupdate\lastupdate.xml'
    VersionFormat = vfNumber
    ErrorWords.Strings = (
      'fatal'
      'failed'
      'error')
    OnRunUpdate = clWebUpdateRunUpdate
    OnTerminating = clWebUpdateTerminating
    OnDownloadProgress = clWebUpdateDownloadProgress
    OnError = clWebUpdateError
    OnNoUpdatesFound = clWebUpdateNoUpdatesFound
    Left = 346
    Top = 10
  end
  object MainMenu1: TMainMenu
    Left = 180
    Top = 98
    object File1: TMenuItem
      Caption = '&File'
      object StartUpdate1: TMenuItem
        Caption = '&Start Update'
        OnClick = StartUpdate1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object Abount1: TMenuItem
        Caption = '&Abount'
        OnClick = Abount1Click
      end
    end
  end
end