u_dwsserver1_old.xfm

一个开源软件

object Form1: TForm1
  Left = 203
  Top = 129
  Width = 789
  Height = 511
  VertScrollBar.Range = 205
  HorzScrollBar.Range = 36
  ActiveControl = cbActivated
  Caption = 'Delphi Web Start'
  Color = clBackground
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 75
  TextHeight = 13
  TextWidth = 6
  object Splitter1: TSplitter
    Left = 0
    Top = 57
    Width = 789
    Height = 24
    Cursor = crVSplit
    Align = alTop
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 789
    Height = 57
    Align = alTop
    Alignment = taLeftJustify
    BevelOuter = bvNone
    TabOrder = 3
    object cbActivated: TCheckBox
      Left = 8
      Top = 4
      Width = 121
      Height = 30
      Caption = 'Server is running'
      TabOrder = 1
      OnClick = cbActivatedClick
    end
    object Label1: TLabel
      Left = 8
      Top = 36
      Width = 72
      Height = 13
      Caption = 'Binaries to load'
      Layout = tlCenter
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 81
    Width = 789
    Height = 430
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 6
    Caption = 'Panel2'
    TabOrder = 0
    object meData: TMemo
      Left = 6
      Top = 6
      Width = 777
      Height = 418
      Align = alClient
      Font.CharSet = fcsLatin1
      Font.Color = clBlack
      Font.Height = 13
      Font.Name = 'adobe-courier'
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 0
      ParentFont = False
      PopupMenu = PopupMenu1
      TabOrder = 0
    end
    object strgrd: TStringGrid
      Left = 6
      Top = 6
      Width = 777
      Height = 418
      Align = alClient
      FixedCols = 0
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
      TabOrder = 1
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 81
    Width = 789
    Height = 430
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 6
    Caption = 'Panel3'
    TabOrder = 1
    object lbStatus: TListBox
      Left = 6
      Top = 6
      Width = 777
      Height = 418
      Align = alClient
      BorderStyle = bsEtched
      Color = clButton
      Font.CharSet = fcsLatin1
      Font.Color = clBlack
      Font.Height = 13
      Font.Name = 'adobe-courier'
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 0
      ParentFont = False
      TabOrder = 0
    end
  end
  object Label2: TLabel
    Left = 8
    Top = 192
    Width = 28
    Height = 13
    Caption = 'State:'
    Layout = tlCenter
  end
  object IdTCPServer1: TIdTCPServer
    Bindings = <>
    DefaultPort = 9010
    OnConnect = IdTCPServer1Connect
    OnExecute = IdTCPServer1Execute
    OnDisconnect = IdTCPServer1Disconnect
    Left = 216
    Top = 16
  end
  object OpenDialog1: TOpenDialog
    Title = 'Open'
    Left = 248
    Top = 16
  end
  object SaveDialog1: TSaveDialog
    Title = 'Save As'
    Left = 280
    Top = 16
  end
  object PopupMenu1: TPopupMenu
    Left = 320
    Top = 16
    object LoadlistFile: TMenuItem
      Caption = 'Load_Binaries_List'
      OnClick = LoadBinariesListClick
      HelpType = htContext
    end
    object SaveListFile: TMenuItem
      Caption = 'Save_Binaries_List'
      OnClick = SaveBinariesListClick
      HelpType = htContext
    end
  end
end