ftp.notepager.com 2015/2015-02-04.ftp.notepager.com.tar/ftp.notepager.com/dev/snppserver.exe/0/RCDATA/TFRMMAIN/TFRMMAIN.txt

Text File | 2013-10-17 | 3KB | 141 lines

object frmMain: TfrmMain
  Left = 560
  Top = 242
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'PageGate SNPP Server'
  ClientHeight = 465
  ClientWidth = 514
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mnuMain
  OldCreateOrder = False
  Position = poDefaultPosOnly
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object btnStart: TButton
    Left = 344
    Top = 432
    Width = 65
    Height = 25
    Caption = 'Start'
    TabOrder = 0
    OnClick = btnStartClick
  end
  object btnStop: TButton
    Left = 440
    Top = 432
    Width = 65
    Height = 25
    Caption = 'Stop'
    Enabled = False
    TabOrder = 1
    OnClick = btnStopClick
  end
  object edtGood: TLabeledEdit
    Left = 40
    Top = 432
    Width = 41
    Height = 21
    EditLabel.Width = 29
    EditLabel.Height = 13
    EditLabel.Caption = ' Good'
    EditLabel.Color = clBtnFace
    EditLabel.Font.Charset = DEFAULT_CHARSET
    EditLabel.Font.Color = clGreen
    EditLabel.Font.Height = -11
    EditLabel.Font.Name = 'MS Sans Serif'
    EditLabel.Font.Style = []
    EditLabel.ParentColor = False
    EditLabel.ParentFont = False
    LabelPosition = lpLeft
    LabelSpacing = 6
    TabOrder = 2
    Text = '0'
  end
  object edtBad: TLabeledEdit
    Left = 144
    Top = 432
    Width = 41
    Height = 21
    EditLabel.Width = 25
    EditLabel.Height = 13
    EditLabel.Caption = '  Bad'
    EditLabel.Font.Charset = DEFAULT_CHARSET
    EditLabel.Font.Color = clMaroon
    EditLabel.Font.Height = -11
    EditLabel.Font.Name = 'MS Sans Serif'
    EditLabel.Font.Style = []
    EditLabel.ParentFont = False
    LabelPosition = lpLeft
    LabelSpacing = 12
    TabOrder = 3
    Text = '0'
  end
  object mmoLog: TMemo
    Left = 8
    Top = 16
    Width = 497
    Height = 409
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -9
    Font.Name = 'Small Fonts'
    Font.Style = []
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 4
  end
  object mnuMain: TMainMenu
    Left = 8
    object mnuFile: TMenuItem
      Caption = '&File'
      object mnuFileStart: TMenuItem
        Caption = 'Star&t'
        OnClick = mnuFileStartClick
      end
      object mnuFileStop: TMenuItem
        Caption = 'Sto&p'
        OnClick = mnuFileStopClick
      end
      object mnuFileExit: TMenuItem
        Caption = 'E&xit'
        OnClick = mnuFileExitClick
      end
    end
    object mnuEdit: TMenuItem
      Caption = '&Edit'
      object mnuEditPreferences: TMenuItem
        Caption = '&Preferences'
        OnClick = mnuEditPreferencesClick
      end
    end
    object mnuView: TMenuItem
      Caption = '&View'
      object mnuViewClearLog: TMenuItem
        Caption = '&Clear Log'
        OnClick = mnuViewClearLogClick
      end
      object mnuViewResetCounters: TMenuItem
        Caption = '&Reset Counters'
        OnClick = mnuViewResetCountersClick
      end
    end
    object mnuHelp: TMenuItem
      Caption = '&Help'
      object mnuHelpAbout: TMenuItem
        Caption = '&About'
        OnClick = mnuHelpAboutClick
      end
    end
  end
end