sendurl.dfm

ICQ客户端源代码

object SendURLForm: TSendURLForm
  Left = 384
  Top = 278
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'SendURLForm'
  ClientHeight = 198
  ClientWidth = 321
  Color = clBtnFace
  Font.Charset = EASTEUROPE_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Icon.Data = {
    0000010001001010000001000800680500001600000028000000100000002000
    000001000800000000004001000000000000000000000000000000000000FFFF
    FF00FCFCFC00EBEBEB00CECECE00AFAFAF009B9B9B009A9A9A00ADADAD00CBCB
    CB00E9E9E900FAFAFA00DFDFDF009F9F93007D8E690075B27F0063BC840057B1
    750058955B005C764A00848C7A00D5D5D500F8F8F800FDFDFD00AB9B8A00C59B
    720071AE840072AF85007ACC9E005EBC870045AB6D00369D5E004D8046007379
    5D00EFEFEF00ADA69C00D1A37700FAD2AB00EED8BC00E8C9AB007DB58E006ABE
    8C0047A96E00359A5A002E904F0048773D00888A7A00EAEAEA00D8D8D800A985
    6300FEC38B00FEDDBD00FEE5CC00FAD8B700E4B88E00569F6C0042A266003194
    54002B8C4C0026864500616A3C00D1D1D100B8B8B800C38B5800F8BE8900FED6
    B100FEDAB800FDCEA300F6B88100D3975A006E8648003E8949002D8645007578
    3200B46E2D00BDBDBD009E9E9E00398E5300DAA16E00EAB98D00EFBD9000F7B8
    8000F9AB6900F3984C00E7853500DE843100DD8A2F00E8922C00E3882C00B0B0
    B000999999002E884A0044955D00559E6C00E79A5B00F99B4C00F88F3A00F593
    3800F29B3600EDA13100E59A2D00D8852900ACACAC004C8349003A9C5E00348B
    4F00328A4D00E2863C00F68D3900EF903600DD8E3100B1923600AA9030005489
    40004B7F3D00B5B5B500CACACA00547042002E90500092763600D77B3100EE88
    3500F2903500C28C35003D965400309352002C8D4D00298948005C723C00CCCC
    CC00E8E8E8007D897400487940006A803E00EA813100F68F3300EA933200838B
    3D002F915100298949004A7D3B008E8F7F00FBFBFB00D3D3D300707E5F00A565
    3000EB832E00F38E2F00E48F2C0079853700497D3B007A806000D6D6D600D9D9
    D9009A978800906E4300C2753000B8802E004B833F00477D3D005B713C00EDED
    ED00BEBEBE00ABABAB00A5A5A500000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000A4A4
    A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A414A1A2A35880A4A4A4A4A4A4A4
    A498999A9B9C9D9E9F8C97A4A4A4A4A48E8F9091929394397E959697A4A4A4A4
    82838485868788897D8A8B8CA4A4A4737475767778797A7B7C7D7E7F80A4A465
    666768696A6B6C6D6E6F707172A4A4595A5B5C365D5E5F606162636407A4A44B
    4C4D4E4F505152535455565758A4A43D3E3F404142434445464748494AA4A42F
    303132333435363738393A3B3CA4A4A422232425262728292A2B2C2DA4A4A4A4
    0B1718191A1B1C1D1E1F2014A4A4A4A4A40B0C0D0E0F1011121314A4A4A4A4A4
    A4A4A4030405060708A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4A4FFFF
    FFFFF81FFFFFE007FFFFC003FFFFC003FFFF8001FFFF8001FFFF8001FFFF8001
    FFFF8001FFFF8001FFFFC003FFFFC003FFFFE007FFFFF81FFFFFFFFFFFFF}
  KeyPreview = True
  OldCreateOrder = False
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object lblDescription: TLabel
    Left = 8
    Top = 80
    Width = 85
    Height = 13
    Caption = 'Enter description:'
    Font.Charset = EASTEUROPE_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel
    Left = 8
    Top = 32
    Width = 52
    Height = 13
    Caption = 'Enter URL:'
    Font.Charset = EASTEUROPE_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object Image1: TImage
    Left = 8
    Top = 8
    Width = 16
    Height = 16
    Center = True
    Stretch = True
  end
  object lblUIN: TLabel
    Left = 32
    Top = 8
    Width = 18
    Height = 13
    Caption = 'UIN'
  end
  object memoURLDscrb: TMemo
    Left = 8
    Top = 96
    Width = 305
    Height = 65
    Font.Charset = EASTEUROPE_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    MaxLength = 450
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object btnSend: TButton
    Left = 80
    Top = 168
    Width = 75
    Height = 23
    Caption = '&Send'
    Enabled = False
    Font.Charset = EASTEUROPE_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = btnSendClick
  end
  object btnCancel: TButton
    Left = 168
    Top = 168
    Width = 75
    Height = 23
    Caption = '&Cancel'
    Font.Charset = EASTEUROPE_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = btnCancelClick
  end
  object EditURL: TMemo
    Left = 8
    Top = 48
    Width = 305
    Height = 21
    MaxLength = 2083
    TabOrder = 0
    WantReturns = False
    WordWrap = False
    OnChange = EditURLChange
    OnKeyDown = EditURLKeyDown
    OnKeyUp = EditURLKeyUp
  end
end