u_web_userm.dfm

以前写的一个利用P2P 技术的一个通讯的例子。里面用到了 DBISAM 、INDY 控件。

object F_WEB_USERM: TF_WEB_USERM
  Left = 235
  Top = 170
  BorderIcons = []
  BorderStyle = bsSingle
  Caption = 'F_WEB_USERM'
  ClientHeight = 452
  ClientWidth = 772
  Color = 15528178
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 14
  object PN_STAT: TPanel
    Left = 0
    Top = 411
    Width = 772
    Height = 41
    Align = alBottom
    Alignment = taLeftJustify
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 15528178
    Font.Charset = ANSI_CHARSET
    Font.Color = clMaroon
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object LB_HINT: TLabel
      Left = 16
      Top = 14
      Width = 48
      Height = 15
      Caption = 'LB_HINT'
      Visible = False
    end
    object BN_FH: TFlatButton
      Left = 640
      Top = 7
      Width = 83
      Height = 26
      Caption = #36820#22238'[Esc]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 0
      OnClick = BN_FHClick
    end
    object BN_SER: TFlatButton
      Left = 69
      Top = 7
      Width = 76
      Height = 26
      Caption = #23450#20301'[F3]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabStop = True
      TabOrder = 1
      Visible = False
      OnClick = BN_SERClick
    end
    object BN_ACCEPT: TFlatButton
      Left = 544
      Top = 7
      Width = 73
      Height = 26
      Color = 15528178
      Caption = #25509#25910'[F2]'
      ParentColor = False
      TabStop = True
      TabOrder = 2
      Visible = False
      OnClick = BN_ACCEPTClick
    end
  end
  object SG_JL: TAdvStringGrid
    Left = 0
    Top = 0
    Width = 772
    Height = 411
    Cursor = crDefault
    Align = alClient
    ColCount = 5
    DefaultColWidth = 54
    DefaultRowHeight = 20
    DefaultDrawing = False
    FixedColor = 15528178
    FixedCols = 2
    RowCount = 5
    FixedRows = 1
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    GridLineWidth = 1
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goRowSelect]
    ParentFont = False
    ParentShowHint = False
    ScrollBars = ssBoth
    ShowHint = True
    TabOrder = 1
    OnDblClick = SG_JLDblClick
    GridLineColor = clSilver
    ActiveCellShow = False
    ActiveCellFont.Charset = DEFAULT_CHARSET
    ActiveCellFont.Color = clWindowText
    ActiveCellFont.Height = -11
    ActiveCellFont.Name = 'MS Sans Serif'
    ActiveCellFont.Style = [fsBold]
    ActiveCellColor = clGray
    ActiveCellColorTo = clNone
    Bands.PrimaryColor = clInfoBk
    Bands.PrimaryLength = 1
    Bands.SecondaryColor = clWindow
    Bands.SecondaryLength = 1
    Bands.Print = False
    AutoNumAlign = False
    AutoSize = False
    VAlignment = vtaCenter
    EnhTextSize = False
    EnhRowColMove = False
    SizeWithForm = False
    Multilinecells = True
    OnGetCellColor = SG_JLGetCellColor
    OnGetAlignment = SG_JLGetAlignment
    OnGridHint = SG_JLGridHint
    OnClickSort = SG_JLClickSort
    OnCanSort = SG_JLCanSort
    OnClickCell = SG_JLClickCell
    OnRightClickCell = SG_JLRightClickCell
    DragDropSettings.OleAcceptFiles = True
    DragDropSettings.OleAcceptText = True
    SortSettings.AutoColumnMerge = False
    SortSettings.Column = 0
    SortSettings.Show = False
    SortSettings.IndexShow = False
    SortSettings.IndexColor = clYellow
    SortSettings.Full = True
    SortSettings.SingleColumn = False
    SortSettings.IgnoreBlanks = False
    SortSettings.BlankPos = blFirst
    SortSettings.AutoFormat = True
    SortSettings.Direction = sdAscending
    SortSettings.UpGlyph.Data = {
      9E010000424D9E010000000000003600000028000000080000000F0000000100
      1800000000006801000000000000000000000000000000000000FEFFFFFEFFFF
      FEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFF7779A37376A070739EFEFF
      FFFEFFFFFEFFFFFEFFFFFEFFFF6D6F9B696C99FEFFFFFEFFFFFEFFFFFEFFFFFE
      FFFFFEFFFF6165945E62925A5E8FFEFFFF54578BFEFFFFFEFFFFFEFFFFFEFFFF
      54568A5154884D5086494D84474A82FEFFFFFEFFFFFEFFFFFEFFFF4649814447
      7F40437D3E417BFEFFFFFEFFFFFEFFFF40447D3D417B3A3E79373B77343876FE
      FFFFFEFFFFFEFFFFFEFFFF3538753135732F33722C3170FEFFFFFEFFFFFEFFFF
      FEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFF
      FFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFE
      FFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFF
      FEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFF
      FFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFE
      FFFF}
    SortSettings.DownGlyph.Data = {
      9E010000424D9E010000000000003600000028000000080000000F0000000100
      18000000000068010000120B0000120B00000000000000000000FEFFFFFEFFFF
      FEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFF2C31702F33723135733538
      75FEFFFFFEFFFFFEFFFFFEFFFF343876373B773A3E793D417B40447DFEFFFFFE
      FFFFFEFFFF3E417B40437D44477F464981FEFFFFFEFFFFFEFFFFFEFFFF474A82
      494D844D508651548854568AFEFFFFFEFFFFFEFFFFFEFFFF54578BFEFFFF5A5E
      8F5E6292616594FEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFF696C996D6F9BFE
      FFFFFEFFFFFEFFFFFEFFFFFEFFFF70739E7376A07779A3FEFFFFFEFFFFFEFFFF
      FEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFF
      FFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFE
      FFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFF
      FEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFF
      FFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFEFFFFFE
      FFFF}
    SortSettings.InitSortDirection = sdAscending
    SortSettings.FixedCols = False
    SortSettings.NormalCellsOnly = False
    SortSettings.Row = 0
    SortSettings.UndoSort = False
    FloatingFooter.Color = clBtnFace
    FloatingFooter.Column = 0
    FloatingFooter.FooterStyle = fsFixedLastRow
    FloatingFooter.Visible = False
    ControlLook.Color = clBlack
    ControlLook.CommentColor = clRed
    ControlLook.CheckSize = 15
    ControlLook.RadioSize = 10
    ControlLook.ControlStyle = csClassic
    ControlLook.DropDownAlwaysVisible = False
    ControlLook.ProgressMarginX = 2
    ControlLook.ProgressMarginY = 2
    EnableBlink = False
    EnableHTML = True
    EnableWheel = True
    Flat = False
    Look = glSoft
    HintColor = clInfoBk
    SelectionColor = clInfoBk
    SelectionTextColor = clMaroon
    SelectionRectangle = False
    SelectionResizer = False
    SelectionRTFKeep = False