statuspage.dfm

Last change: 2008-02-03 This is the source code of KCeasy。

object StatusForm: TStatusForm
  Left = 311
  Top = 352
  Align = alClient
  BorderIcons = []
  BorderStyle = bsNone
  Caption = 'StatusForm'
  ClientHeight = 562
  ClientWidth = 810
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object VSplitter1: TSplitter
    Left = 0
    Top = 97
    Width = 810
    Height = 3
    Cursor = crVSplit
    Align = alTop
    AutoSnap = False
    MinSize = 60
    ResizeStyle = rsUpdate
  end
  object VSplitter2: TSplitter
    Left = 0
    Top = 321
    Width = 810
    Height = 3
    Cursor = crVSplit
    Align = alTop
    AutoSnap = False
    ResizeStyle = rsUpdate
  end
  object TopPanel: TPanel
    Left = 0
    Top = 0
    Width = 810
    Height = 97
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object CtrlSplitter: TSplitter
      Left = 337
      Top = 0
      Width = 3
      Height = 97
      Cursor = crHSplit
      MinSize = 337
    end
    object NetworksTree: TVirtualStringTree
      Left = 340
      Top = 0
      Width = 470
      Height = 97
      Align = alClient
      Colors.FocusedSelectionColor = 15654092
      Colors.FocusedSelectionBorderColor = 5453598
      Colors.UnfocusedSelectionColor = 15654092
      Colors.UnfocusedSelectionBorderColor = 5453598
      DrawSelectionMode = smBlendedRectangle
      Header.AutoSizeIndex = 0
      Header.Font.Charset = DEFAULT_CHARSET
      Header.Font.Color = clWindowText
      Header.Font.Height = -11
      Header.Font.Name = 'MS Sans Serif'
      Header.Font.Style = []
      Header.Options = [hoColumnResize, hoDrag, hoVisible]
      Images = MainForm.FileImageList
      TabOrder = 0
      TreeOptions.MiscOptions = [toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
      TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toThemeAware, toUseBlendedImages, toUseBlendedSelection]
      TreeOptions.SelectionOptions = [toFullRowSelect, toRightClickSelect]
      OnGetText = NetworksTreeGetText
      OnPaintText = NetworksTreePaintText
      OnGetImageIndex = NetworksTreeGetImageIndex
      Columns = <
        item
          Position = 0
          Width = 170
          WideText = 'Network'
        end
        item
          Alignment = taRightJustify
          Position = 1
          Width = 90
          WideText = 'Users'
        end
        item
          Alignment = taRightJustify
          Position = 2
          Width = 90
          WideText = 'Files'
        end
        item
          Alignment = taRightJustify
          Position = 3
          Width = 100
          WideText = 'Size'
        end>
    end
    object CtrlPanel: TPanel
      Left = 0
      Top = 0
      Width = 337
      Height = 97
      Align = alLeft
      BevelOuter = bvNone
      BorderStyle = bsSingle
      TabOrder = 1
      object ClearGiftLogBtn: TSpeedButton
        Left = 6
        Top = 31
        Width = 83
        Height = 22
        Caption = 'Clear giFT Log'
        Flat = True
        OnClick = ClearGiftLogBtnClick
      end
      object ClearInterfaceLogBtn: TSpeedButton
        Left = 106
        Top = 31
        Width = 107
        Height = 22
        Caption = 'Clear Interface Log'
        Flat = True
        OnClick = ClearInterfaceLogBtnClick
      end
      object GiftLoggingBtn: TSpeedButton
        Left = 6
        Top = 5
        Width = 83
        Height = 22
        AllowAllUp = True
        GroupIndex = 1
        Caption = 'Log giFT'
        Flat = True
        OnClick = GiftLoggingBtnClick
      end
      object InterfaceLoggingBtn: TSpeedButton
        Left = 106
        Top = 5
        Width = 107
        Height = 22
        AllowAllUp = True
        GroupIndex = 2
        Caption = 'Log Interface'
        Flat = True
        OnClick = InterfaceLoggingBtnClick
      end
      object NetworksUpdateBtn: TSpeedButton
        Left = 229
        Top = 5
        Width = 97
        Height = 22
        Caption = 'Update Networks'
        Flat = True
        OnClick = NetworksUpdateBtnClick
      end
      object Bevel1: TBevel
        Left = 96
        Top = 4
        Width = 4
        Height = 50
        Shape = bsLeftLine
      end
      object Bevel2: TBevel
        Left = 220
        Top = 4
        Width = 4
        Height = 50
        Shape = bsLeftLine
      end
    end
  end
  object InterfaceMemo: TMemo
    Left = 0
    Top = 100
    Width = 810
    Height = 221
    Align = alTop
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 1
  end
  object LogMemo: TMemo
    Left = 0
    Top = 324
    Width = 810
    Height = 238
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Courier New'
    Font.Pitch = fpFixed
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 2
  end
end