u_web_vno.dfm

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

object F_WEB_VNO: TF_WEB_VNO
  Left = 244
  Top = 171
  Width = 806
  Height = 476
  BorderIcons = []
  Caption = #29305#27530#26381#21153
  Color = clBtnFace
  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_BN: TPanel
    Left = 0
    Top = 408
    Width = 798
    Height = 41
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    Color = 15528178
    TabOrder = 0
    object BN_OK: TFlatButton
      Left = 512
      Top = 8
      Width = 105
      Height = 25
      Caption = #20445#23384#24182#36820#22238'[F2]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = BN_OKClick
    end
    object BN_BACK: TFlatButton
      Left = 636
      Top = 8
      Width = 141
      Height = 25
      Caption = #19981#20445#23384','#30452#25509#36820#22238'[Esc]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 1
      OnClick = BN_BACKClick
    end
    object BN_TSFW: TFlatButton
      Left = 32
      Top = 8
      Width = 121
      Height = 25
      Caption = #26597#30475#25152#26377#29305#26381'[F5]'
      Font.Charset = ANSI_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = BN_TSFWClick
    end
    object BN_1: TFlatButton
      Tag = 2
      Left = 232
      Top = 8
      Width = 25
      Height = 25
      Caption = '&1'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      Visible = False
      OnClick = BN_1Click
    end
    object BN_2: TFlatButton
      Tag = 2
      Left = 256
      Top = 8
      Width = 25
      Height = 25
      Caption = '&2'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      Visible = False
      OnClick = BN_1Click
    end
    object BN_3: TFlatButton
      Tag = 2
      Left = 280
      Top = 8
      Width = 25
      Height = 25
      Caption = '&3'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      Visible = False
      OnClick = BN_1Click
    end
    object BN_4: TFlatButton
      Tag = 2
      Left = 304
      Top = 8
      Width = 25
      Height = 25
      Caption = '&4'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      Visible = False
      OnClick = BN_1Click
    end
    object BN_5: TFlatButton
      Tag = 2
      Left = 328
      Top = 8
      Width = 25
      Height = 25
      Caption = '&5'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
      Visible = False
      OnClick = BN_1Click
    end
    object BN_6: TFlatButton
      Tag = 2
      Left = 352
      Top = 8
      Width = 25
      Height = 25
      Caption = '&6'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 8
      Visible = False
      OnClick = BN_1Click
    end
    object BN_7: TFlatButton
      Tag = 2
      Left = 376
      Top = 8
      Width = 25
      Height = 25
      Caption = '&7'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 9
      Visible = False
      OnClick = BN_1Click
    end
    object BN_8: TFlatButton
      Tag = 2
      Left = 400
      Top = 8
      Width = 25
      Height = 25
      Caption = '&8'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 10
      Visible = False
      OnClick = BN_1Click
    end
    object BN_9: TFlatButton
      Tag = 2
      Left = 424
      Top = 8
      Width = 25
      Height = 25
      Caption = '&9'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 11
      Visible = False
      OnClick = BN_1Click
    end
    object BN_0: TFlatButton
      Tag = 2
      Left = 208
      Top = 8
      Width = 25
      Height = 25
      Caption = '&0'
      Font.Charset = ANSI_CHARSET
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 12
      Visible = False
      OnClick = BN_1Click
    end
  end
  object SG_JL: TAdvStringGrid
    Tag = 1
    Left = 0
    Top = 0
    Width = 798
    Height = 408
    Cursor = crDefault
    Align = alClient
    Color = clWhite
    ColCount = 5
    DefaultRowHeight = 22
    DefaultDrawing = False
    FixedColor = 15528178
    FixedCols = 0
    RowCount = 5
    FixedRows = 1
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    GridLineWidth = 1
    Options = [goFixedHorzLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goColSizing, goEditing]
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 1
    OnDblClick = SG_JLDblClick
    OnKeyPress = SG_JLKeyPress
    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 = vtaTop
    EnhTextSize = False
    EnhRowColMove = False
    SizeWithForm = False
    Multilinecells = False
    OnGetCellColor = SG_JLGetCellColor
    OnGetAlignment = SG_JLGetAlignment
    OnCheckBoxClick = SG_JLCheckBoxClick
    DragDropSettings.OleAcceptFiles = True
    DragDropSettings.OleAcceptText = True
    SortSettings.AutoColumnMerge = False
    SortSettings.Column = 1
    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.CheckedGlyph.Data = {
      F6000000424DF600000000000000760000002800000010000000100000000100
      0400000000008000000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00DDDDDDDDDDDD
      DDDDDDD0000000000DDDDD0FFFFFFFFFF0DDDD0FFF88FFFFF0DDDD0FF8188FFF
      F0DDDD0F811188FFF0DDDD0F11F118FFF0DDDD0FFFFF178FF0DDDD0FFFFFF188
      F0DDDD0FFFFFFF18F0DDDD0FFFFFFFF1F0DDDD0FFFFFFFFFF0DDDD0FF000000F
      F0DDDDD000F888000DDDDDDDDD0000DDDDDDDDDDDDDDDDDDDDDD}
    ControlLook.CheckSize = 20
    ControlLook.RadioSize = 10
    ControlLook.ControlStyle = csGlyph
    ControlLook.DropDownAlwaysVisible = False
    ControlLook.ProgressMarginX = 2
    ControlLook.ProgressMarginY = 2
    EnableBlink = False
    EnableHTML = True
    EnableWheel = True
    Flat = False
    Look = glXP
    HintColor = clYellow
    SelectionColor = clWhite
    SelectionTextColor = clMaroon
    SelectionRectangle = False
    SelectionResizer = False
    SelectionRTFKeep = False
    HintShowCells = False
    HintShowLargeText = False
    HintShowSizing = False
    PrintSettings.FooterSize = 0
    PrintSettings.HeaderSize = 0
    PrintSettings.Time = ppNone
    PrintSettings.Date = ppNone
    PrintSettings.DateFormat = 'dd/mm/yyyy'
    PrintSettings.PageNr = ppNone
    PrintSettings.Title = ppNone
    PrintSettings.Font.Charset = DEFAULT_CHARSET
    PrintSettings.Font.Color = clWindowText
    PrintSettings.Font.Height = -11
    PrintSettings.Font.Name = 'MS Sans Serif'
    PrintSettings.Font.Style = []
    PrintSettings.FixedFont.Charset = DEFAULT_CHARSET
    PrintSettings.FixedFont.Color = clWindowText
    PrintSettings.FixedFont.Height = -11
    PrintSettings.FixedFont.Name = 'MS Sans Serif'
    PrintSettings.FixedFont.Style = []
    PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET
    PrintSettings.HeaderFont.Color = clWindowText
    PrintSettings.HeaderFont.Height = -11
    PrintSettings.HeaderFont.Name = 'MS Sans Serif'
    PrintSettings.HeaderFont.Style = []
    PrintSettings.FooterFont.Charset = DEFAULT_CHARSET
    PrintSettings.FooterFont.Color = clWindowText
    PrintSettings.FooterFont.Height = -11
    PrintSettings.FooterFont.Name = 'MS Sans Serif'
    PrintSettings.FooterFont.Style = []
    PrintSettings.Borders = pbNoborder
    PrintSettings.BorderStyle = psSolid
    PrintSettings.Centered = False
    PrintSettings.RepeatFixedRows = False
    PrintSettings.RepeatFixedCols = False
    PrintSettings.LeftSize = 0
    PrintSettings.RightSize = 0
    PrintSettings.ColumnSpacing = 0
    PrintSettings.RowSpacing = 0
    PrintSettings.TitleSpacing = 0
    PrintSettings.Orientation = poPortrait
    PrintSettings.PageNumberOffset = 0
    PrintSettings.MaxPagesOffset = 0
    PrintSettings.FixedWidth = 0
    PrintSettings.FixedHeight = 0
    PrintSettings.UseFixedHeight = False
    PrintSettings.UseFixedWidth = False
    PrintSettings.FitToPage = fpNever
    PrintSettings.PageNumSep = '/'
    PrintSettings.NoAutoSize = False
    PrintSettings.NoAutoSizeRow = False
    PrintSettings.PrintGraphics = False
    PrintSettings.UseDisplayFont = True
    HTMLSettings.Width = 100
    HTMLSettings.XHTML = False
    Navigation.AdvanceDirection = adLeftRight
    Navigation.InsertPosition = pInsertBefore
    Navigation.HomeEndKey = heFirstLastColumn
    Navigation.TabToNextAtEnd = False
    Navigation.TabAdvanceDirection = adLeftRight
    ColumnSize.Location = clRegistry
    CellNode.Color = clSilver
    CellNode.ExpandOne = False
    CellNode.NodeColor = clBlack
    CellNode.NodeIndent = 12
    CellNode.ShowTree = False
    CellNode.TreeColor = clSilver
    MaxEditLength = 0
    Grouping.HeaderColor = clNone
    Grouping.HeaderColorTo = clNone
    Grouping.HeaderTextColor = clNone
    Grouping.MergeHeader = False
    Grouping.MergeSummary = False
    Grouping.Summary = False
    Grouping.SummaryColor = clNone
    Grouping.SummaryColorTo = clNone
    Grouping.SummaryTextColor = clNone
    IntelliPan = ipVertical
    URLColor = clBlue
    URLShow = False
    URLFull = False
    URLEdit = False
    ScrollType = ssNormal
    ScrollColor = clNone
    ScrollWidth = 16
    ScrollSynch = False
    ScrollProportional = False
    ScrollHints = shNone
    OemConvert = False
    FixedFooters = 0
    FixedRightCols = 0
    FixedColWidth = 64
    FixedRowHeight = 22
    FixedFont.Charset = ANSI_CHARSET
    FixedFont.Color = clWindowText
    FixedFont.Height = -11
    FixedFont.Name = 'Arial'
    FixedFont.Style = []
    FixedAsButtons = False
    FloatFormat = '%.2f'
    IntegralHeight = False
    WordWrap = False
    Lookup = False
    LookupCaseSensitive = False
    LookupHistory = False
    BackGround.Top = 0
    BackGround.Left = 0
    BackGround.Display = bdTile
    BackGround.Cells = bcNormal
    Filter = <>
    Version = '2.8.7.2'
    ColWidths = (
      64
      64
      64
      64
      64)
  end
end