unit1.~dfm

《delphi 7.0_8.0课程设计与系统开发案例》随书代码

object Form1: TForm1
  Left = 140
  Top = 52
  Width = 544
  Height = 352
  Caption = #27665#33322#21806#31080'/'#35746#31080#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 104
    Top = 32
    Width = 341
    Height = 33
    Caption = #36890#29992#27665#33322#21806#31080'/'#35746#31080#31995#32479
    Font.Charset = GB2312_CHARSET
    Font.Color = clYellow
    Font.Height = -32
    Font.Name = #21326#25991#34892#26999
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 106
    Top = 33
    Width = 341
    Height = 33
    Caption = #36890#29992#27665#33322#21806#31080'/'#35746#31080#31995#32479
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -32
    Font.Name = #21326#25991#34892#26999
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object SpeedButton1: TSpeedButton
    Left = 40
    Top = 139
    Width = 105
    Height = 105
    Caption = #35746#31080#21806#31080#31995#32479
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
      000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F
      00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF
      F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B
      0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F
      FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF
      FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F
      0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF
      00333377737FFFFF773333303300000003333337337777777333}
    Layout = blGlyphTop
    NumGlyphs = 2
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 162
    Top = 139
    Width = 105
    Height = 105
    Caption = #33322#29677#20056#23458#20449#24687
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      333333333333333FF3FF3333333333CC30003333333333773777333333333C33
      3000333FF33337F33777339933333C3333333377F33337F3333F339933333C33
      33003377333337F33377333333333C333300333F333337F33377339333333C33
      3333337FF3333733333F33993333C33333003377FF33733333773339933C3333
      330033377FF73F33337733339933C33333333FF377F373F3333F993399333C33
      330077F377F337F33377993399333C33330077FF773337F33377399993333C33
      33333777733337F333FF333333333C33300033333333373FF7773333333333CC
      3000333333333377377733333333333333333333333333333333}
    Layout = blGlyphTop
    NumGlyphs = 2
    ParentFont = False
    OnClick = SpeedButton2Click
  end
  object SpeedButton3: TSpeedButton
    Left = 285
    Top = 139
    Width = 105
    Height = 105
    Caption = #33322#29677#26102#21051#34920
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
      5555000050000005555544F00BFBFBF0555544F0BFBF0000055544F0FBFBFBFB
      F05544F0BFBF0000000544F0F000FBFBF00544F0B0B000000F000000F0F000FB
      FB0F555500BFBFBFB0F455555500FBFB0F44555555550000F44455555555550F
      4444555555555550044455555555555550045555555555555550}
    Layout = blGlyphTop
    ParentFont = False
    OnClick = SpeedButton3Click
  end
  object SpeedButton4: TSpeedButton
    Left = 408
    Top = 139
    Width = 105
    Height = 105
    Caption = #36864#20986#31995#32479
    Flat = True
    Font.Charset = GB2312_CHARSET
    Font.Color = clRed
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    Glyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      04000000000080000000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555553555
      555555555555B57555555555553507075555555555B570007555555535070000
      07555555B57000000075553507000000080555B57000070085B3350700000008
      0555B57000070085B35507000070080555558000070085B35555580000080555
      555555800085B35555555558080555555555555585B355555555}
    Layout = blGlyphTop
    ParentFont = False
    OnClick = SpeedButton4Click
  end
  object Label3: TLabel
    Left = 176
    Top = 280
    Width = 300
    Height = 12
    Caption = #26412#20070#26696#20363#65292#26410#32463#35768#21487#12288#65292#20219#20309#20154#19981#24471#24341#29992#65281'  2003.06.09'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
end