ufrmpicturemanage.dfm

一个简单得医院图像管理系统

object frmPictureManage: TfrmPictureManage
  Left = 194
  Top = 122
  Width = 580
  Height = 383
  Caption = #22270#29255#31649#29702
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 572
    Height = 43
    ButtonHeight = 36
    ButtonWidth = 55
    Caption = 'ToolBar1'
    EdgeBorders = [ebTop, ebBottom]
    Flat = True
    Images = ImageList1
    ShowCaptions = True
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Caption = #28155#21152
      ImageIndex = 0
      OnClick = ToolButton1Click
    end
    object ToolButton2: TToolButton
      Left = 55
      Top = 0
      Caption = #21024#38500
      ImageIndex = 1
      OnClick = ToolButton2Click
    end
    object ToolButton3: TToolButton
      Left = 110
      Top = 0
      Caption = #36873#25321#25171#21360
      ImageIndex = 2
      OnClick = ToolButton3Click
    end
    object ToolButton4: TToolButton
      Left = 165
      Top = 0
      Caption = #20851#38381
      ImageIndex = 3
      OnClick = ToolButton4Click
    end
  end
  object dbcPicture: TDBCtrlGrid
    Left = 0
    Top = 43
    Width = 572
    Height = 294
    Align = alClient
    AllowDelete = False
    AllowInsert = False
    ColCount = 4
    Color = clWhite
    DataSource = dsPicture
    PanelHeight = 73
    PanelWidth = 139
    ParentColor = False
    TabOrder = 1
    RowCount = 4
    ShowFocus = False
    object dbiPicture: TcxDBImage
      Left = 0
      Top = 0
      Width = 139
      Height = 73
      Align = alClient
      DataBinding.DataSource = dsPicture
      Properties.GraphicClassName = 'TJPEGImage'
      Properties.PopupMenuLayout.MenuItems = []
      Properties.Stretch = True
      Style.BorderColor = clWindowFrame
      Style.BorderStyle = ebsUltraFlat
      Style.Edges = []
      Style.Font.Charset = GB2312_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -12
      Style.Font.Name = #23435#20307
      Style.Font.Style = []
      Style.Shadow = False
      StyleFocused.BorderColor = clHotLight
      StyleFocused.BorderStyle = ebsSingle
      StyleFocused.Color = clWhite
      TabOrder = 0
      OnDblClick = dbiPictureDblClick
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 337
    Width = 572
    Height = 19
    Panels = <
      item
        Width = 50
      end>
  end
  object dsPicture: TDataSource
    Left = 200
    Top = 104
  end
  object ImageList1: TImageList
    Left = 272
    Top = 72
  end
  object OpenDialog1: TOpenPictureDialog
    Filter = 
      'All (*.jpg;*.jpeg;*.bmp;*.ico;*.emf;*.wmf)|*.jpg;*.jpeg|JPEG Ima' +
      'ge File (*.jpg)|*.jpg|JPEG Image File (*.jpeg)|*.jpeg'
    Left = 280
    Top = 160
  end
end