u_dwsserver1.xfm

一个开源软件

object AppLoaderFrm_Server: TAppLoaderFrm_Server
  Left = 385
  Top = 338
  Width = 770
  Height = 532
  VertScrollBar.Range = 209
  ActiveControl = cbActivated
  BorderStyle = fbsSingle
  Caption = 'DelphiWebStart V1.6'
  Color = clBackground
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 75
  TextHeight = 13
  TextWidth = 6
  object Splitter1: TSplitter
    Left = 0
    Top = 193
    Width = 770
    Height = 16
    Cursor = crVSplit
    Align = alTop
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 770
    Height = 49
    Align = alTop
    Alignment = taLeftJustify
    BevelOuter = bvNone
    TabOrder = 2
    object cbActivated: TCheckBox
      Left = 8
      Top = 4
      Width = 121
      Height = 30
      Caption = 'SocketServer on'
      TabOrder = 1
      OnClick = cbActivatedClick
    end
    object Label1: TLabel
      Left = 371
      Top = 36
      Width = 110
      Height = 13
      Caption = 'Application Loader List:'
      Layout = tlCenter
    end
    object Label2: TLabel
      Left = 11
      Top = 36
      Width = 60
      Height = 13
      Caption = 'App Monitor:'
      Layout = tlCenter
    end
    object pnlCF: TPanel
      Left = 544
      Top = 8
      Width = 201
      Height = 38
      TabOrder = 3
      object edtDrive: TEdit
        Left = 46
        Top = 8
        Width = 39
        Height = 21
        TabOrder = 0
        Text = 'D'
      end
      object Label3: TLabel
        Left = 13
        Top = 9
        Width = 28
        Height = 13
        Caption = 'Drive:'
      end
      object btnchfind: TButton
        Left = 94
        Top = 8
        Width = 87
        Height = 21
        Hint = 'shows all files with now date on disk'
        Caption = '&Change Finder'
        Color = clSilver
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        OnClick = btnchfindClick
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 49
    Width = 770
    Height = 144
    Align = alTop
    BevelOuter = bvNone
    BorderWidth = 6
    Caption = 'Panel2'
    TabOrder = 0
    object meData: TMemo
      Left = 6
      Top = 6
      Width = 355
      Height = 132
      Hint = 'will send to the client to start app'
      Align = alLeft
      Font.CharSet = fcsLatin1
      Font.Color = clBlack
      Font.Height = 11
      Font.Name = 'Arial'
      Font.Pitch = fpVariable
      Font.Style = []
      Font.Weight = 0
      ParentFont = False
      ParentShowHint = False
      ScrollBars = ssAutoVertical
      ShowHint = True
      TabOrder = 0
    end
    object strgrd: TStringGrid
      Left = 370
      Top = 6
      Width = 394
      Height = 132
      Hint = 'editor to manage and store available files'
      Align = alRight
      ColCount = 4
      DefaultColWidth = 91
      FixedCols = 0
      RowCount = 10
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowMoving, goEditing]
      ParentShowHint = False
      PopupMenu = PopupMn_LList
      ScrollBars = ssVertical
      ShowHint = True
      TabOrder = 1
      OnGetEditText = strgrdGetEditText
      OnSelectCell = strgrdSelectCell
      OnSetEditText = strgrdSetEditText
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 209
    Width = 770
    Height = 323
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 6
    Caption = 'Panel3'
    TabOrder = 1
    object lbStatus: TListBox
      Left = 6
      Top = 6
      Width = 758
      Height = 311
      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 IdTCPServer1: TIdTCPServer
    Bindings = <>
    CommandHandlers = <>
    DefaultPort = 9010
    Greeting.NumericCode = 0
    MaxConnectionReply.NumericCode = 0
    OnConnect = IdTCPServer1Connect
    OnExecute = IdTCPServer1Execute
    OnDisconnect = IdTCPServer1Disconnect
    ReplyExceptionCode = 0
    ReplyTexts = <>
    ReplyUnknownCommand.NumericCode = 0
    Left = 160
    Top = 8
  end
  object PopupMn_LList: TPopupMenu
    Left = 200
    Top = 8
    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