unitmain.dfm

参照上兴、鸽子等源码编写编写出来的。 编译环境：Delphi7+SP+DP+indy9等控件

object FormMain: TFormMain
  Left = 208
  Top = 123
  AutoScroll = False
  BorderIcons = []
  Caption = 'NS'#36828#31243#31649#29702' New'#29256'  20070805(2)'
  ClientHeight = 501
  ClientWidth = 729
  Color = clBtnFace
  Constraints.MinHeight = 250
  Constraints.MinWidth = 523
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar: TStatusBar
    Left = 0
    Top = 482
    Width = 729
    Height = 19
    Panels = <
      item
        Width = 150
      end
      item
        Width = 250
      end>
  end
  object Gongjutool: TspSkinPanel
    Left = 0
    Top = 0
    Width = 729
    Height = 45
    TabOrder = 1
    DrawDefault = True
    SkinData = spSkinData1
    SkinDataName = 'bigtoolpanel'
    AlphaBlend = False
    AlphaBlendValue = 200
    UseSkinCursor = False
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clWindowText
    DefaultFont.Height = 14
    DefaultFont.Name = 'Arial'
    DefaultFont.Style = []
    UseSkinFont = True
    DefaultWidth = 0
    DefaultHeight = 0
    RealHeight = -1
    AutoEnabledControls = True
    CheckedMode = False
    Checked = False
    NumGlyphs = 1
    Spacing = 1
    DefaultAlignment = taLeftJustify
    DefaultCaptionHeight = 22
    BorderStyle = bvNone
    CaptionMode = False
    RollUpMode = False
    RollUpState = False
    Align = alTop
    ParentShowHint = False
    ShowHint = False
    object Image2: TImage
      Left = 544
      Top = 7
      Width = 89
      Height = 34
      Picture.Data = {
        0A544A504547496D61676544080000FFD8FFE000104A46494600010101006000
        600000FFE1006E45786966000049492A00080000000200005104001000000026
        00000001510300010000000000000000000000C80000000A0000000A0000000A
        0000000A0000000A000000280000000A000000280000000A000000280000000A
        000000280000000A000000280000000A000000FFDB0043000806060706050807
        07070909080A0C140D0C0B0B0C1912130F141D1A1F1E1D1A1C1C20242E272022
        2C231C1C2837292C30313434341F27393D38323C2E333432FFDB004301090909
        0C0B0C180D0D1832211C21323232323232323232323232323232323232323232
        3232323232323232323232323232323232323232323232323232323232FFC000
        1108001F005803012200021101031101FFC4001F000001050101010101010000
        0000000000000102030405060708090A0BFFC400B51000020103030204030505
        04040000017D01020300041105122131410613516107227114328191A1082342
        B1C11552D1F02433627282090A161718191A25262728292A3435363738393A43
        4445464748494A535455565758595A636465666768696A737475767778797A83
        8485868788898A92939495969798999AA2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8
        B9BAC2C3C4C5C6C7C8C9CAD2D3D4D5D6D7D8D9DAE1E2E3E4E5E6E7E8E9EAF1F2
        F3F4F5F6F7F8F9FAFFC4001F0100030101010101010101010000000000000102
        030405060708090A0BFFC400B511000201020404030407050404000102770001
        02031104052131061241510761711322328108144291A1B1C109233352F01562
        72D10A162434E125F11718191A262728292A35363738393A434445464748494A
        535455565758595A636465666768696A737475767778797A8283848586878889
        8A92939495969798999AA2A3A4A5A6A7A8A9AAB2B3B4B5B6B7B8B9BAC2C3C4C5
        C6C7C8C9CAD2D3D4D5D6D7D8D9DAE2E3E4E5E6E7E8E9EAF2F3F4F5F6F7F8F9FA
        FFDA000C03010002110311003F00F068ACEEA7F23C9B69A4F3E430C3B109F31F
        8F9571D5BE65E073F30F5A7C7A6DFCD3F911595CBCDB51FCB5898B6D72A10E31
        D18BA60F7DCB8EA2B7BC37E2CD4749FEC9B2D3E19A530EA46E8C3137CD705BCA
        511818255B11B2E464912B2F4241668FE25BC82EF48586D1EE6EA0BB84B7967F
        79771C6C8628090A4E0329C75CE5063F76804DD8CCEFF846B5EFB77D87FB1352
        FB5F97E7791F657F336671BB6E33B73C67A66989A06B32EA32E9D1E937EF7D12
        EF92D96D9CC88BC72571903E61CFB8F5AE92E7C6F2AE9ECB67A34305A4B1CB0C
        4D35BDBBA194BC0EE4AAC291BE1628C60AEE1BF3BBEE80CBAD7ADEF75BD5A49F
        C3F7E1751B45536B0DC24661B7510CB1ECC4380AAB0E73B79423D0B32BC83431
        13C29E2395E548F40D55DA26D922AD9C84A360360F1C1C3038F423D6A19740D6
        60D386A336937F1D89557172F6CE232AD8DA77118C1C8C1EF915D441F10A3B5B
        AB330E8E9F66B56DC8B2B452CAA45B430C6CB23C476329843E42E09C02302A0D
        475613E9C74893C31729AA5D416F6D1BCCA8CE1E2F2E1CC63C912027C929B779
        009618CD17906872D6F7D35B22AC7B70B27983233F36315D2F817C4967A2F896
        0BAD4E12F02C7E5028B92BEE07D4D7282195A079C46E61465469029DAAC41201
        3D890AD81EC7D29EA92DB3DBCD244EA8F89232CA40750C4647A8CA91F507D29C
        A29AB0D3699F59F846CACEFF007788AFEDE29351978B757507ECD0FF00085FF6
        8F527AE78E95D15DDF1C9F9CFE75E571F88AF2EBC1115CF879C4B780C69FBA01
        CA8E8C31F97E06BABB8D66DADED967BB9996323E690231407BFCC07233DEB939
        9DAC6D6D6E6678B6C22BE31DD6C54B98D83453EC05948E9F51EC68AC7B9D46FA
        EF5EBF0F2ABE92511AD9D48D98C0C907F3CD15251E41E10FB0C7E20F0F28FDF5
        FCDAB5AB971B80B745931B0E7866624374C2855C125982DDF055C69D1EB7693A
        7930BBD95EC57B0C91F988AA96CCC2505D1F6EEE7202B636B7055C20E46D2F2E
        B4FBA4BAB2B99ADAE133B2585CA3AE460E08E47048FC6A349A5892548E474595
        7648AAC4075C86C1F5195071EA07A576B8DCE6B9ECFAE3F99E19D692D5ECCC51
        EF12A4EFB625D9676884140F17CEAFF2A830B6D9368DB19AA506A966FE299C41
        65F69B83A4D94685AD6DE246492DC2B3616090A36264023190D8D997FDDC47CB
        1B52BF77676BDB9666691D98CAC496906D909E7AB0E18F71D69F77ACEA9A846F
        1DEEA579728F2099D669D9C3385DA1882796DA00CF5C0C54A8741DCE8A1D582D
        D5F6A5E559A68C6E5BC91369568669F00058D3F74555B6ED2C40DAB9DD82CCAA
        FD0EB4F26A9F10A2D3EE63B3BFD09F5F7824896D12078A592428C1DA3C3EE206
        E562C43EC04E4AB2AF9B5DDE5D6A174F757B7335CDC3E37CB339776C0C0C93C9
        E001F854734D2DCCF24F3C8F2CD2317791D8B3331392493D493DE9F28AE7796B
        15BDD6956D1DC179A7BED427B296D55D277BFB90B1112F9E48553BE46024DCC1
        432E15C34A5F4747493525F0B5AC773BE582CB332E89B12F2D13CD94995A58E2
        6F9446C018B707676191B8F3C0586BFACE950341A76AD7F670B36F31DBDCBC6A
        5B00670A4738039F6A4D1916E3538AD25BA92DEDEE488E764CF29B836081D465
        41C7A81E949C741A67A2E9726B767E26922B8FB7E9CB3C0935C7F6C4ED732105
        7872CA8A40DA02F23E52A4123040DABBF07F8B6E608AD1A7867B48942C59B818
        09D874CE29D0DAE97E16D26DAFAE20958C8ABF66B42E777988CE4E5812A233BC
        9DA00E49E339ADBD33C40CBA6DBDB59648BA56362F2F3E42AE7CC57FEF7978C8
        C7DE181EB5CD296B746F1565A9C37892C75DD374D5D1EC26B794AA31B85B62CC
        C08E4A924019C1CE076A2BA6D32E74AF114A6D2D04D15CC58C35C12E26883167
        90631B656C9E4FAD14E353974B09C6FD4FFFD9}
    end
    object toolbutton4: TspSkinButton
      Left = 270
      Top = 0
      Width = 90
      Height = 45
      Cursor = crHandPoint
      Hint = #31471#21475#30417#21548
      TabOrder = 0
      DrawDefault = True
      SkinData = spSkinData1
      SkinDataName = 'bigtoolbutton'
      AlphaBlend = False
      AlphaBlendValue = 200
      UseSkinCursor = False
      DefaultFont.Charset = GB2312_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = -12
      DefaultFont.Name = #23435#20307
      DefaultFont.Style = []
      UseSkinFont = True
      DefaultWidth = 0
      DefaultHeight = 0
      RepeatMode = False
      RepeatInterval = 100
      AllowAllUp = False
      ShowHint = True
      TabStop = True
      CanFocused = False
      Down = False
      GroupIndex = 0
      Caption = #30417#21548'(listen)'
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        18000000000000030000120B0000120B00000000000000000000D8E9ECD8E9EC
        D8E9ECB8BFC0C5D1D3D8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECB3BFC1B3C0
        C2D7E7EAD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECCBD7D9A9AAABBAC3C4D8E9ECD8
        E9ECD8E9ECD8E9ECA2AAAC818686B7C4C6D8E9ECD8E9ECD8E9ECD8E9ECD8E9EC
        D8E9ECD8E9ECB8BDBEA5A5A5B2B9BAD8E9ECD8E9EC9EA4A5797A7A8E9495D8E9
        ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD2DFE2ADADADA3A3A3A8
        ACADA1A5A5868686818282CAD8DBD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9EC
        D8E9ECD8E9ECD8E9ECC4CBCCAEAEAEE7E4E3E5E2E1919191ADB5B6D8E9ECD8E9
        ECD8E9ECD8E9ECD8E9ECDBC9B3DAC9B6D8E4E4D8E9ECD8E9ECD6E6E9B8B8B9AD
        ADADA3A3A3A0A2A2D5E5E8D8E9ECD8E9ECD8E9ECD7CEC0D7C4B0E1AF86E4AE84
        DEA06FD8E7E9D9D5C9D8E9ECC8CECFDAD9D8DBD9D8B6BDBED8E9ECD7D7CED8E7
        E8D5874BD98649D58D56E5AC83EDC5A7E2A475D8E6E8DF9D68DD9E6ED7DBD6BF
        C0C0B7B7B7D0D4D0D8925AD78443D8E5E6D57F3CE3A77AD58040E6B38BEECAAD
        E5AA7ED8E8EBE2A576E3A777D9D5CBD3DFE1D4E2E5D9D3C6DD955DD88C50D8E8
        EAD58240E3AA7DD58344E6BE9FEECBAEE5B189D8E7E8DFBDA0E7B58EDDB999D9
        D6CCD9D5CADBB28CE2A576D9AC85D8E6E6D98948E2A77AD5935BE2D0BDECC7A9
        EABD9BDCDBD3D9E3E1E3B38EE8B58FE4AB7FE3A77AE4AC80DCA275D9E0DDD9D2
        C5DD975FE0A06ED8B291DBE2DEEBBF9DEECCB0E8B995DAE3E1D9E6E7DFCAB6E2
        B897E1B692DDC4ADD8E6E6D9DFDCDD9861E5AC80DB9055D8DAD2D8E9ECE3D4C2
        EEC9AEEFCAADE9BC98DCDCD4D8E7E9D8E9ECD8E9ECD8E7E8DBD7CDE0A271E5B0
        86E2A87ADBBB9CD8E9ECD8E9ECD8E8EAE6CEB8EECAAEF0CDB4EBC2A2E8BA95E8
        B691E6B38BE5AF86E7B38BEABB99E6B188DEB491D8E7E9D8E9ECD8E9ECD8E9EC
        D8E9ECE1D8CCEBC4A5EFCDB1F1D0B8F1D3BBF0D0B9EDCBAEEBC0A0E5B087DECD
        BBD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECD8E9ECDBE3E1E3D5C5E8CBB1EB
        BFA0EBBF9BE6C4A8E1CDBADAE1DDD8E9ECD8E9ECD8E9ECD8E9EC}
      NumGlyphs = 1
      Align = alLeft
      Spacing = 3
      Layout = blGlyphTop
      OnClick = ToolButton4Click
    end
    object ToolButton9: TspSkinButton
      Left = 360
      Top = 0
      Width = 90
      Height = 45
      Cursor = crHandPoint
      Hint = #20851#20110
      TabOrder = 1
      DrawDefault = True
      SkinData = spSkinData1
      SkinDataName = 'bigtoolbutton'
      AlphaBlend = False
      AlphaBlendValue = 200
      UseSkinCursor = False
      DefaultFont.Charset = GB2312_CHARSET
      DefaultFont.Color = clWindowText
      DefaultFont.Height = -12
      DefaultFont.Name = #23435#20307
      DefaultFont.Style = []
      UseSkinFont = True
      DefaultWidth = 0
      DefaultHeight = 0
      RepeatMode = False
      RepeatInterval = 100
      AllowAllUp = False
      ShowHint = True
      TabStop = True
      CanFocused = False
      Down = False
      GroupIndex = 0
      Caption = #20851#20110
      Glyph.Data = {
        26040000424D2604000000000000360000002800000012000000120000000100
        180000000000F003000000000000000000000000000000000000DEEFEFDEEFEF
        DEEFEFDEEFEFE1F3F3DAF0F3C1D0CCB2B9B9BCCED4D6E9ECDFF1F4E0F2F3E0F1
        F0DEEFEFDEEFEFDEEFEFDEEFEFDEEFEF0000DEEFEFDEEFEFE0F3F4E0F5F7CBDB
        E1B1A693D5A971D8AD7EC9935BA6947FA7B2BABCD2DAD1E6EDE4F6F7E1F2F2DF
        F1F0DEEFEFDEEFEF0000DEEFEFDFF3F6CBD2D1A69887AF8D64D2B397E5F7F6FF
        E4C6FFD49AF9CA85E39F5ABA8D599A8570B1BDBEC3D5DBD1E5EFDAECECDEEFEF
        0000DEF0F1D4CDBDC19165CFB39DDEDCDDCBD8E2F2FAFAFFDAB5FFC58CFFCF97
        FFE2B0FFDDA2FFD08ACEA266B88F5FA88D71BDC7C4E1F3F40000DBEBEBDCAE7F
        ECDDCFC3C9CFE1EBEDD5D9D9EFF8F9FFDBB2FFC480FBB672FAB26FFFD1A7FFCF
        9DF7B465FFBC75EFAB65ACAC9EE2F6F80000DBEBEAE0B387E7DFD1E7E3E5E9FA
        FAD3D7D7F3FAF5FFDBAEFFC17CF9C496F7AA60FFD7A6FFC891EBB577FBAF63F7
        AA60B3AC97E2F6F90000DBEBEADEB282EFDFD0DEE1E4DEEAEBD1CECEFFFFF7FF
        DAAFFFBD7BF9D3B8F7B364FFCC94FFBA79EBC79BFBA35AF69F50B3AD99E2F6F9
        0000DDEBEAE2B282F3E5D7D4CFC6E2D9D1F4ECE0FFF8EFFFDCB1FFC989F9B76B
        FEB160FFBE80FFB065EBD1B2FAA658F6953BB4AF9CE3F7FA0000DCEEEFDCB085
        FFEED8FFF9EAFFF7E6FFF8EBFFFBE9F19956F2832BFA8839FA843AFD823CFD84
        3EFF7820FF7F2EF7812CB0B0A2DCF4FA0000A6BFCAB5936EFEE8D2FFF0D9FFEE
        D8FFF6E1F0C9AFD45C08F7A95BF2A96AF39558F18946ED722EEB500BF2450DEE
        530DA97E4D9F9D8E0000D97617E38933FEEBD1FFEFD7FFF0D7FAE3CAD6671DFA
        A351FFEAC1F8C07DF39F48E89635E58521D37103D57407CD6900E26600D4A570
        0000F5810AE3811EFDE5CCFFE7CCFFEAD4F5CDA5E0781BFFDCA9F9A658E97A0E
        E5750BE47508DD7509DF7307D87108D66600CF873BD7EBEF0000DD8C3FE26900
        FDE9C6FFEBCEFFF2D1F1AA72FEC981FAA85BEF7E0EE98214E67B17E87B0FDF7C
        11DE7207D96D07D55F00D8A569DEF8FF0000D7DAD2E48934EFA35CFCDEBBF0B4
        7DE27E36FDAE5BEF8214EF821EE98517E67B16E77A0FDF7C11DE7206D56700D1
        873BCDD9D0DFF2F40000DFF5F9D7E5E6E07206D87117E16E1DFFCB89F77F0CF0
        8C21EF821EE98517E67A16E87B0EDF7C10E06C00CB7E35D9EDF3E0F4F7DEEFEF
        0000DEEFEFDEFBFFD58428E56C00FEBE6CFCB76FF58213F68416F28114ED7C0D
        E67A0BE67207DF7200D1771AD7D4C8DEF4F7DEEFEFDEEFEF0000DEEFEFDEF3F6
        D8CEBCDEA86BE8B685E0AE72E1A970E1AA72DBAA72DCAB6FDDA66DDAA66ED8A3
        69D9CDB3DCF2F8DEEFEFDEEFEFDEEFEF0000DEEFEFDEEFEFDEF3F6DDF6FDDCF5
        FBDDF6FDDDF7FEDDF7FEDEF7FEDEF7FEDEF7FEDEF7FEDEF7FEDEF3F7DEEFEFDE
        EFEFDEEFEFDEEFEF0000}
      NumGlyphs = 1
      Align = alLeft
      Spacing = 3
      Layout = blGlyphTop
      OnClick = ToolButton9Click
    end
    object ToolButton3: TspSkinButton
      Left = 180
      Top = 0
      Width = 90
      Height = 45
      Cursor = crHandPoint
      Hint = #37197#32622#26381#21153#22120#31243#24207
      TabOrder = 2
      DrawDefault = True
      SkinData = spSkinData1
      SkinDataName = 'bigtoolbutton'
      AlphaBlend = False
      AlphaBlendValue = 200
      UseSkinCursor = False
      DefaultFont.Charset = GB2312_CHARSET
      DefaultFont.Color = clBlack
      DefaultFont.Height = -12
      DefaultFont.Name = #23435#20307
      DefaultFont.Style = []
      UseSkinFont = True
      DefaultWidth = 0
      DefaultHeight = 0
      RepeatMode = False
      RepeatInterval = 100
      AllowAllUp = False
      TabStop = True
      CanFocused = False
      Down = False
      GroupIndex = 0
      Caption = #37197#32622#26381#21153#31471
      Glyph.Data = {