loopscrunit.dfm

DELPHI 下远程控制源码

object LoopScrFm: TLoopScrFm
  Left = 12
  Top = 130
  Width = 743
  Height = 524
  Caption = #24490#29615#30417#25511
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001001010100001000400280100001600000028000000100000002000
    00000100040000000000C0000000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    00000000000088888888880000008F7777887800000008000000000000000877
    7777708888800808888870788780080EEEEE70000000080EEEEE70777700080F
    EEEE70888700080FEEEE700007000800000070000700008888888F0007000000
    00800F000700000000800000070000000008888888000000000000000000803F
    0000001F0000001F000080010000800000008000000080010000800100008001
    00008001000080010000C0010000FC010000FC010000FE030000FFFF0000}
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 432
    Top = 0
    Width = 4
    Height = 497
    Cursor = crHSplit
    Align = alRight
  end
  object Panel1: TPanel
    Left = 436
    Top = 0
    Width = 299
    Height = 497
    Align = alRight
    BevelInner = bvLowered
    BevelOuter = bvNone
    BorderWidth = 2
    TabOrder = 0
    object DBCtrlGrid1: TDBCtrlGrid
      Left = 3
      Top = 256
      Width = 293
      Height = 238
      Align = alClient
      AllowDelete = False
      ColCount = 3
      Color = clBtnFace
      Orientation = goHorizontal
      PanelHeight = 44
      PanelWidth = 97
      ParentColor = False
      ParentShowHint = False
      TabOrder = 0
      RowCount = 5
      ShowHint = False
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 97
        Height = 44
        Align = alClient
        BevelOuter = bvNone
        BorderWidth = 1
        BorderStyle = bsSingle
        Color = clWhite
        TabOrder = 0
        object DBImage1: TDBImage
          Left = 1
          Top = 1
          Width = 91
          Height = 38
          Align = alClient
          BorderStyle = bsNone
          Color = 8404992
          DataField = 'ScrPicture'
          Stretch = True
          TabOrder = 0
          OnDblClick = DBImage1DblClick
        end
      end
    end
    object Panel3: TPanel
      Left = 3
      Top = 3
      Width = 293
      Height = 28
      Align = alTop
      TabOrder = 1
      DesignSize = (
        293
        28)
      object Label1: TLabel
        Left = 274
        Top = 7
        Width = 12
        Height = 13
        Anchors = [akRight]
        AutoSize = False
        Caption = #34892
      end
      object Label2: TLabel
        Left = 215
        Top = 7
        Width = 12
        Height = 13
        Anchors = [akRight]
        AutoSize = False
        Caption = #21015
      end
      object Panel5: TPanel
        Left = 68
        Top = 1
        Width = 96
        Height = 26
        Align = alLeft
        BevelOuter = bvNone
        BorderWidth = 5
        BorderStyle = bsSingle
        Color = 12615680
        TabOrder = 0
        object DBText1: TDBText
          Left = 5
          Top = 5
          Width = 82
          Height = 12
          Align = alClient
          DataField = 'HostName'
          DataSource = DataSource2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clYellow
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
      end
      object Panel8: TPanel
        Left = 1
        Top = 1
        Width = 67
        Height = 26
        Align = alLeft
        BevelOuter = bvNone
        Caption = #20027#26426#21517#31216#65306
        TabOrder = 1
      end
      object SpinEdit1: TSpinEdit
        Left = 177
        Top = 3
        Width = 34
        Height = 22
        Anchors = [akRight]
        AutoSize = False
        MaxValue = 20
        MinValue = 1
        TabOrder = 2
        Value = 9
        OnChange = SpinEdit1Change
      end
      object SpinEdit2: TSpinEdit
        Left = 234
        Top = 3
        Width = 35
        Height = 22
        Anchors = [akRight]
        AutoSize = False
        MaxValue = 20
        MinValue = 1
        TabOrder = 3
        Value = 5
        OnChange = SpinEdit2Change
      end
    end
    object Panel12: TPanel
      Left = 3
      Top = 31
      Width = 293
      Height = 225
      Align = alTop
      BevelOuter = bvLowered
      BorderWidth = 1
      Color = clBlue
      TabOrder = 2
      object DBImage2: TDBImage
        Left = 2
        Top = 2
        Width = 289
        Height = 221
        Align = alClient
        DataField = 'ScrPicture'
        DataSource = DataSource1
        Stretch = True
        TabOrder = 0
        OnDblClick = DBImage2DblClick
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 432
    Height = 497
    Align = alClient
    BevelOuter = bvLowered
    TabOrder = 1
    object PageControl1: TPageControl
      Left = 1
      Top = 1
      Width = 430
      Height = 495
      ActivePage = TabSheet2
      Align = alClient
      TabIndex = 1
      TabOrder = 0
      OnChange = PageControl1Change
      object TabSheet1: TTabSheet
        Caption = #24403#21069#23631#24149#30417#25511
        object Splitter6: TSplitter
          Left = 0
          Top = 186
          Width = 422
          Height = 4
          Cursor = crVSplit
          Align = alBottom
        end
        object Panel13: TPanel
          Left = 0
          Top = 0
          Width = 422
          Height = 186
          Align = alClient
          Caption = 'Panel13'
          TabOrder = 0
          object DBGrid2: TDBGrid
            Left = 1
            Top = 30
            Width = 420
            Height = 155
            Align = alClient
            DataSource = DataSource2
            FixedColor = cl3DLight
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
            ParentFont = False
            TabOrder = 0
            TitleFont.Charset = DEFAULT_CHARSET
            TitleFont.Color = clBlack
            TitleFont.Height = -11
            TitleFont.Name = 'MS Sans Serif'
            TitleFont.Style = []
            OnDblClick = DBGrid2DblClick
            Columns = <
              item
                Expanded = False
                FieldName = 'HostName'
                Width = 124
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'HostIP'
                Width = 135
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'HostPort'
                Width = 64
                Visible = True
              end
              item
                Expanded = False
                FieldName = 'UserName'
                Visible = True
              end>
          end
          object Panel15: TPanel
            Left = 1
            Top = 1
            Width = 420
            Height = 29
            Align = alTop
            Alignment = taLeftJustify
            BevelOuter = bvLowered
            Caption = ' '#21475#20196#65306
            TabOrder = 1
            object SpeedButton5: TSpeedButton
              Left = 93
              Top = 3
              Width = 23
              Height = 22
              Hint = #35774#32622#26032#30340#21475#20196
              Flat = True
              Glyph.Data = {
                76010000424D7601000000000000760000002800000020000000100000000100
                04000000000000010000120B0000120B00001000000000000000000000000000
                800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
                555555555555555555555555555555555555555555FF55555555555559055555
                55555555577FF5555555555599905555555555557777F5555555555599905555
                555555557777FF5555555559999905555555555777777F555555559999990555
                5555557777777FF5555557990599905555555777757777F55555790555599055
                55557775555777FF5555555555599905555555555557777F5555555555559905
                555555555555777FF5555555555559905555555555555777FF55555555555579
                05555555555555777FF5555555555557905555555555555777FF555555555555
                5990555555555555577755555555555555555555555555555555}
              NumGlyphs = 2
              ParentShowHint = False
              ShowHint = True
              OnClick = SpeedButton5Click