unit_image_upload.~dfm

来自「美汇美容网网站管理系统」· ~DFM 代码 · 共 150 行

object Form_Image_Upload: TForm_Image_Upload
  Left = 221
  Top = 132
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = #22270#29255#19978#20256
  ClientHeight = 332
  ClientWidth = 580
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ControlBar1: TControlBar
    Left = 0
    Top = 0
    Width = 580
    Height = 29
    Align = alTop
    AutoSize = True
    TabOrder = 0
    object ToolBar1: TToolBar
      Left = 11
      Top = 2
      Width = 563
      Height = 21
      AutoSize = True
      ButtonHeight = 21
      ButtonWidth = 55
      Caption = 'ToolBar1'
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      ShowCaptions = True
      TabOrder = 0
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Caption = #19978#20256#22270#29255
        ImageIndex = 0
        OnClick = ToolButton1Click
      end
      object ToolButton3: TToolButton
        Left = 55
        Top = 0
        Width = 8
        Caption = 'ToolButton3'
        ImageIndex = 2
        Style = tbsSeparator
      end
      object ToolButton2: TToolButton
        Left = 63
        Top = 0
        Caption = #20851#38381
        ImageIndex = 1
        OnClick = ToolButton2Click
      end
    end
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 29
    Width = 580
    Height = 156
    Align = alTop
    Caption = ' '#22270#29255#21015#34920' '
    TabOrder = 1
    object sg_Image: TStringGrid
      Left = 2
      Top = 15
      Width = 576
      Height = 139
      Align = alClient
      ColCount = 4
      DefaultColWidth = 25
      DefaultRowHeight = 20
      FixedCols = 0
      RowCount = 2
      ScrollBars = ssVertical
      TabOrder = 0
      ColWidths = (
        41
        290
        226
        25)
    end
  end
  object GroupBox2: TGroupBox
    Left = 0
    Top = 185
    Width = 580
    Height = 147
    Align = alClient
    Caption = ' '#19978#20256#20449#24687' '
    TabOrder = 2
    object Memo1: TMemo
      Left = 2
      Top = 15
      Width = 576
      Height = 130
      Align = alClient
      Lines.Strings = (
        'Memo1')
      TabOrder = 0
    end
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = False
    Active = True
    Left = 464
    Top = 8
  end
  object IdFTP1: TIdFTP
    MaxLineAction = maException
    ReadTimeout = 0
    ProxySettings.ProxyType = fpcmNone
    ProxySettings.Port = 0
    Left = 427
    Top = 10
  end
end