Delphi控件源码

开发平台：
Delphi

Xt_ghjms.~dfm：源码内容
							object Xt_ghjm: TXt_ghjm
  Left = 233
  Top = 142
  Width = 401
  Height = 332
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #26356#25442#30028#38754#22270#24418
  Color = clActiveBorder
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020040000000000E80200001600000028000000200000004000
    0000010004000000000000020000000000000000000000000000000000000000
    000000008000008000000080800080000000800080008080000080808000C0C0
    C0000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0EBEBEBEB0000000000000000000000BEBEB00000B00000000000000000000BE
    BE00B7B7700000000000000000000BEBE07B7B7B77000000000000000000BEBE
    07B7B0B077000000000000000000EBE08B807ECE07070000000000000000BEB0
    B80BEBEC07077000000000000000EB0B80FEFEBE07077700000000000000BE08
    0CEFEFEC07087700000000000000EB0B0ECEFEF0870787000000000000000E08
    0CEFEFE080887700000000000000000B0CCECE08808887000000000000000008
    0CCCC0880F888700000000000000000880000880F88887000000000000000000
    8888800F88888070000000000000000000000FF8888880770000000000000000
    00FFF88F888807877000000000000000000FFF88F88088787700000000000000
    0000FFFFFF0F888787700000000000000000000000F88F887877000000000000
    0000000000F000F88787700000000000000000000000AA0F8878770000000000
    0000000000000008F8878770000000000000000000000F888F88787700000000
    00000000000000F888F8878770000000000000000000000F888F887877000000
    0000000000000000F888F8878700000000000000000000000F888F8877000000
    000000000000000000F888F8870000000000000000000000000F888FF0000000
    00000000000000000000FFFF000000000000000000000000000000000000F807
    FFFFE003FFFFC003FFFF8001FFFF0000FFFF00007FFF00003FFF00001FFF0000
    1FFF00001FFF80001FFFC0001FFFC0001FFFC0001FFFE0000FFFF00007FFF800
    03FFFC0001FFFE0000FFFF00007FFFF8003FFFFC001FFFFE000FFFFF0007FFFF
    8003FFFFC001FFFFE001FFFFF001FFFFF801FFFFFC03FFFFFE07FFFFFF0F}
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object FlatPanel1: TFlatPanel
    Left = 0
    Top = 0
    Width = 393
    Height = 30
    ParentColor = True
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 10
      Width = 60
      Height = 12
      Caption = #25991#20214#21517#31216#65306
    end
    object FlatSpeedButton1: TFlatSpeedButton
      Left = 331
      Top = 7
      Width = 56
      Height = 20
      Caption = #27983#35272
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333333333333333333333333333333333FFFFFFFFF333333300000000
        0333333777777777F33333330888888803333337FFFFFFF7F333333307777777
        0333333777777777F33333330FFFFFFF03333337F3F3FFF7F33333330F9F000F
        03333337F7377737F33333330FFFFFFF03333337F3333337F33333330FFFFFFF
        03333337F3FFFFF7F33333330F40004F03333337F77777F7F33333330F00000F
        03333337F7F337F7F33333330F00000F03333337F7FFF7F7F33333330F40004F
        03333337F7777737F33333330FFFFFFF03333337FFFFFFF7F333333300000000
        0333333777777777333333333333333333333333333333333333}
      Layout = blGlyphLeft
      NumGlyphs = 2
      OnClick = FlatSpeedButton1Click
    end
    object Edit1: TEdit
      Left = 69
      Top = 7
      Width = 256
      Height = 20
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 0
      OnChange = Edit1Change
    end
  end
  object FlatPanel2: TFlatPanel
    Left = 0
    Top = 278
    Width = 393
    Height = 27
    ParentColor = True
    Align = alBottom
    TabOrder = 1
    object FlatSpeedButton2: TFlatSpeedButton
      Left = 77
      Top = 2
      Width = 73
      Height = 23
      Caption = #30830#23450
      OnClick = FlatSpeedButton2Click
    end
    object FlatSpeedButton3: TFlatSpeedButton
      Left = 230
      Top = 2
      Width = 73
      Height = 23
      Caption = #21462#28040
      OnClick = FlatSpeedButton3Click
    end
    object FlatButton1: TFlatButton
      Left = 153
      Top = 2
      Width = 74
      Height = 23
      Caption = #36824#21407#40664#35748
      TabOrder = 0
      OnClick = FlatButton1Click
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 30
    Width = 393
    Height = 248
    Align = alClient
    BevelInner = bvLowered
    BorderStyle = bsSingle
    Color = clGray
    TabOrder = 2
    object Image1: TImage
      Left = 2
      Top = 2
      Width = 385
      Height = 240
      Align = alClient
      Stretch = True
      Transparent = True
      OnDblClick = Image1DblClick
    end
  end
  object OpenPictureDialog1: TOpenPictureDialog
    Left = 344
    Top = 48
  end
end

						