camerafrm.dfm

delphi与JSP通过xml-rpc协议交换数据的例子

object CameraForm: TCameraForm
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = #29031#30456#31383#21475
  ClientHeight = 285
  ClientWidth = 445
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = True
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object pnlBase: TPanel
    Left = 9
    Top = 9
    Width = 341
    Height = 265
    BevelOuter = bvLowered
    TabOrder = 0
    object imgPicture: TImage
      Left = 1
      Top = 1
      Width = 339
      Height = 263
      Align = alClient
      OnMouseDown = imgPictureMouseDown
      OnMouseMove = imgPictureMouseMove
    end
    object pnlPicture: TPanel
      Left = 1
      Top = 1
      Width = 339
      Height = 263
      Align = alClient
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 0
      object pnlArea: TPanel
        Left = 2
        Top = 2
        Width = 335
        Height = 259
        Align = alClient
        TabOrder = 0
        ExplicitLeft = 4
        ExplicitTop = 18
      end
    end
  end
  object btnOk: TcxButton
    Left = 355
    Top = 195
    Width = 82
    Height = 30
    Caption = #30830' '#23450
    TabOrder = 1
    OnClick = btnOkClick
    LookAndFeel.Kind = lfOffice11
  end
  object btnCancel: TcxButton
    Left = 355
    Top = 241
    Width = 82
    Height = 30
    Cancel = True
    Caption = #21462' '#28040
    ModalResult = 2
    TabOrder = 2
    OnClick = btnCancelClick
    LookAndFeel.Kind = lfOffice11
  end
  object btnTake: TcxButton
    Left = 355
    Top = 56
    Width = 82
    Height = 31
    Caption = #25293' '#29031
    TabOrder = 3
    OnClick = btnTakeClick
    LookAndFeel.Kind = lfOffice11
  end
  object btnReLoad: TcxButton
    Left = 355
    Top = 12
    Width = 82
    Height = 30
    Caption = #37325#26032#21462#26448
    TabOrder = 4
    OnClick = btnReLoadClick
    LookAndFeel.Kind = lfOffice11
  end
  object SaveDialog: TSaveDialog
    DefaultExt = '.bmp'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 368
    Top = 104
  end
end