Delphi/CppBuilder

开发平台：
C++ Builder

Unitmain.dfm：源码内容
							object FormControl: TFormControl
  Left = 199
  Top = 107
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '卡卡'
  ClientHeight = 259
  ClientWidth = 322
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Image1: TImage
    Left = 8
    Top = 8
    Width = 33
    Height = 33
    Picture.Data = {
      07544269746D61705A020000424D5A020000000000005A000000280000002000
      000020000000010004000000000000020000120B0000120B0000090000000900
      000014181E004649100059687900768AA30097B5D700BFE0FC00808000000004
      0600000000006666666624555544444336666666666666666666662554444442
      6666666666666666666666635555543266666666666666666666662455555542
      6666666666666666666664555555555431116666666666666071555555555555
      4307706666666666077455555545555544277777666666617725555522225555
      5440777776666667724555555555555554432077706666171545555555555555
      5444430777666677454555555225555554444330776666704355555552555555
      5444334277666171425555555255555554442243776661702255215554555502
      4444303377166177735500405455552035443722771660770550000555555000
      0444277777166177255422455555543224437777771661772444544555555444
      4427777777666677734333555555543332777777776666777233425555555253
      3077777777666677712140455555124017777777776666177720372555537307
      7777777770666667770721745551727777777777716666607777017155477077
      7777777776666666777777772537777777777777166666661777777772377777
      7777777766666666677777777707777777777770666666666677777777777777
      7777777666666666666077777777777777777766666666666666177777777777
      7777766666666666666666177777777777716666666666666666666661016611
      116666666666}
    Transparent = True
  end
  object Label1: TLabel
    Left = 64
    Top = 16
    Width = 132
    Height = 16
    Caption = '卡卡I missing you !'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWhite
    Font.Height = -13
    Font.Name = 'MS Serif'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    Transparent = True
  end
  object Label2: TLabel
    Left = 63
    Top = 15
    Width = 162
    Height = 16
    AutoSize = False
    Caption = '卡卡I missing you !'
    Font.Charset = ANSI_CHARSET
    Font.Color = clMaroon
    Font.Height = -13
    Font.Name = 'MS Serif'
    Font.Style = [fsBold, fsItalic]
    ParentFont = False
    Transparent = True
  end
  object Image2: TImage
    Left = 120
    Top = 64
    Width = 33
    Height = 33
    Picture.Data = {
      07544269746D617076040000424D760400000000000076000000280000002000
      000020000000010008000000000000040000C30E0000C30E0000100000001000
      00005450C0005C3F6300987F8100863A0B00D3690500AD682500DE962E00E6AF
      4F00C7B99F00EDC56C00E5D6A80080800000DFE3F100ABB3E500666DEE000000
      00000B0B0B080C0C0C0C0C0C0C0D0D0E00010101010103050B0B0B0B0B0B0B0B
      0B0B0B0B050D0C0C0C0C0C0C02000E00000002030B0B0B0B0B0B0B0B0B0B0B0B
      0B0B0B0B0802080C0C0C0C020400000E0D0C0C0D030B0B0B0B0B0B0B0B0B0B0B
      0B0B0B0B0B05050C0C0C020605000D0C0C0C0D0C0D010B0B0B0B0B0B0B0B0B0B
      0B0B0B0B0B0303080C020606050C0C0C0C0C0D0D0C0D000B0B0B0B0B0B0B0B0B
      0B0B0B0B0B0503020D020904080C0C0C0C0D01000D0C0D000B0B0B0B0B0B0B0B
      0B0B0B0B0B0504020E0808040C0C0C0C0C0D01010D0C0C0E010B0B0B0B0B0B0B
      0B0B0B0B03050401020904070C0C0C0C0C0D0D0C0C0D0C0D000B0B0B0B0B0B0B
      0B0B0B0B050405010206040C0C0C0C0C0C0C0C0C0C010D0C0E010B0B0B0B0B0B
      0B0B0B0B04050D080604080C0C0C0C0C0C0C0C0C0C0E0F0F0C0C0B0B0B0B0B0B
      0B0B0B05050D0E0206070C0C08020F0C0C0C0C0C0C020F080E0C030B0B0B0B0B
      0B0B0506020E0005040A0C0C030305080C0C0C0C0C0F0F0F010D01030B0B0B0B
      0B0B0506020E0004050C0D010F0F0F010D0C0C0C0D000D0D0C0D0103030B0B0B
      0B0B060605020504020D0E000D0D0C0C0C0C0C0D0D0D0E0D0D0E0003030B0B0B
      0B0B0706030303030000000D0D0D0D0D0C0D000000000D0D0D00000103040B0B
      030B0704040304040300010E0E0D0E0E0D0E0E0100010000000003010304050B
      030B07060403040404030305010001000E010000030003000101030303040403
      030B07060404040404040305040301040000030E040104010100030303040403
      030B070706040304060404050704010504000401050505030301050303040403
      030B070706060404060704040707050206010505050504040403050303040303
      0305090706070604040707040709060507050706050606060403040304040303
      0305070707070706060609060609070607050707060707060604040304040303
      04050707070709060706090706090A0709060909060707060606060304030304
      0405070707070907090A0A0A0A0A0C0A0C090A0A070707060607040406030404
      040507070707080A080C0C0C0C0C0C0A0C0A0C0C0A0A09070707040605030404
      0605070709090C0C0C0C0C0C0C0C0C0A0C0A0C0A0A0A0A090704040703040607
      06050609080A0C0C0C0C0C0C0C0C0C0A0A0A0A09080A0A0A0604070504060707
      070505070A0C0C0C0C0C0C0C0A0A09090606060607090C0A0607060407090707
      07050B05090C0C0C0C0C0C0C0706060605030406070A0C0A0706060709090907
      05050B0B05090C0C0C0C0C0A07060503030506070A0C0C090707090907060505
      05050B0B0B05070C0C0C0C0706040403040607090C0C0A060606060605040405
      0B0B0B0B0B0B050507080806050305040607080C0C0A0907060604040404050B
      0B0B}
    Visible = False
  end
  object Image3: TImage
    Left = 152
    Top = 56
    Width = 33
    Height = 33
    Picture.Data = {
      07544269746D61707A040000424D7A040000000000007A000000280000002000
      000020000000010008000000000000040000C30E0000C30E0000110000001100
      0000594060009A82840084380A00D2690400AB662400DC942D00C2B6A300E7AE
      4C00ECC36B00E4D5A70080800000EDEFEB00D5DBF500ACB6EC00020207005555
      CA00000000000A0A0A060C0C0C0C0C0C0C0D0D0F0F000000000002040A0A0A0A
      0A0A0A0A0A0A0A0A040D0C0C0C0C0C0C010F0F0F0F0F01020A0A0A0A0A0A0A0A
      0A0A0A0A0A0A0A0A0601060C0C0C0C01030F0F0F0D0C0C0D020A0A0A0A0A0A0A
      0A0A0A0A0A0A0A0A0A04040C0C0C0105040F0D0C0C0C0C0C0D000A0A0A0A0A0A
      0A0A0A0A0A0A0A0A0A0202060C010507040B0C0C0C0C0D0D0C0D0F0A0A0A0A0A
      0A0A0A0A0A0A0A0A0A0402010D010803060B0C0C0C0C000F0D0C0D0F0A0A0A0A
      0A0A0A0A0A0A0A0A0A0403010F0906030C0C0C0C0C00000F0D0C0C0D000A0A0A
      0A0A0A0A0A0A0A0A02040300010803080B0C0C0C0C0D0D0C0D0D0C0D0F0A0A0A
      0A0A0A0A0A0A0A0A040304000105030B0B0C0C0C0C0C0C0C0D000D0C0F000A0A
      0A0A0A0A0A0A0A0A03040D060503060B0C0C0C0C0C0C0C0C0C0F010D0D0F0A0A
      0A0A0A0A0A0A0A04040D0F0105070B0B0601010C0C0C0C0C0C0102060F0D020A
      0A0A0A0A0A0A0405010D0F0403090B0B020204060C0C0C0D0C000E0E0E0F0002
      0A0A0A0A0A0A0405010F0F03040C0D00020E0E0E0D0D0D0D0D0F000E0E0F0002
      020A0A0A0A0A050504010403010F0F0E01060E0E0F0D0D0D0D0F0C060E0F0F02
      020A0A0A0A0A0705020202020F0F0F0F0001060E0E0D0D0F0D0D0F0E0F000000
      02030A0A020A070303020303020F02000F0E0E0E0F0F0F000F00000F0F000200
      0203040A020A07050302030303020203020F00000F000F0F020F020000000202
      02030302020A07050303030303030204030200030F0F020F03000300000F0202
      02030302020A0707050302030503030407030004030003000404040202000402
      02030302020A0707050703030507030307070401050004040404030303020402
      0203020202040807070705030307070307080504080407050405050503020302
      0303020202040707070707050505080505080705080407070507070505030302
      0303020203040707070708070705080705080907080708080707070505050502
      0302020303040707070708070809090909090B090B0809090707070505070303
      050203030304070707070609090B0B0B0B0B0B090B090B0B0909080707070305
      040203030504070708080B0B0B0B0B0B0B0B0B090B090B090909090807030307
      020305070504050809090B0B0B0B0B0B0B0B0B09090909080609090905030704
      0305070707040407090C0B0C0B0B0B0B090908080705050507080B0905070503
      0708070807040A04080B0C0B0C0B0B0C080505050402030507090B0907050507
      0808080704040A0A04080B0B0C0C0B090705040202040708090C0B0807070808
      0805040404040A0A0A04070B0B0C0C0805030302030507080B0B090505050505
      040303040A0A0A0A0A0A040407060605040204030507060B0B09080705050303
      0303040A0A0A}
    Visible = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 48
    Width = 322
    Height = 211
    Align = alBottom
    BevelInner = bvLowered
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -10
    Font.Name = '宋体'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object v: TBevel
      Left = 16
      Top = 16
      Width = 289
      Height = 73
    end
    object Bevel2: TBevel
      Left = 16
      Top = 104
      Width = 289
      Height = 89
    end
    object Label3: TLabel
      Left = 25
      Top = 25
      Width = 96
      Height = 12
      Caption = '设置图片显示频率'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 24
      Top = 24
      Width = 96
      Height = 12
      Caption = '设置图片显示频率'
      Font.Charset = ANSI_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label5: TLabel
      Left = 24
      Top = 52
      Width = 18
      Height = 12
      Caption = '快 '
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 273
      Top = 52
      Width = 12
      Height = 12
      Caption = '慢'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 25
      Top = 113
      Width = 120
      Height = 12
      Caption = '使用此文件夹中的图片'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label8: TLabel
      Left = 24
      Top = 112
      Width = 120
      Height = 12
      Caption = '使用此文件夹中的图片'
      Font.Charset = ANSI_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -12
      Font.Name = '宋体'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label9: TLabel
      Left = 272
      Top = 53
      Width = 12
      Height = 12
      Caption = '慢'
      Font.Charset = GB2312_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -12
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object Label10: TLabel
      Left = 23
      Top = 53
      Width = 18
      Height = 12
      Caption = '快 '
      Font.Charset = GB2312_CHARSET
      Font.Color = clActiveCaption
      Font.Height = -12
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      Transparent = True
    end
    object TrackBar1: TTrackBar
      Left = 40
      Top = 48
      Width = 233
      Height = 25
      Max = 6
      Min = 1
      Orientation = trHorizontal
      Frequency = 1
      Position = 1
      SelEnd = 0
      SelStart = 0
      TabOrder = 0
      TickMarks = tmBottomRight
      TickStyle = tsAuto
    end
    object StaticText1: TStaticText
      Left = 24
      Top = 136
      Width = 273
      Height = 17
      AutoSize = False
      BorderStyle = sbsSunken
      TabOrder = 1
    end
    object Button2: TButton
      Left = 232
      Top = 160
      Width = 65
      Height = 25
      Caption = '浏览...'
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 24
      Top = 160
      Width = 65
      Height = 25
      Caption = '我爱你'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = '新宋体'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = Button3Click
    end
  end
  object Button1: TButton
    Left = 248
    Top = 16
    Width = 65
    Height = 25
    Caption = 'OK'
    Default = True
    TabOrder = 1
    OnClick = Button1Click
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 500
    OnTimer = Timer1Timer
    Left = 184
    Top = 208
  end
end

						