Chip 2002 November/Chip_2002-11_cd1.bin/zkuste/delphi/nastroje/DEBUGDEL.ZIP/debugdelphi.exe/0/RCDATA/TMAINFRAME/TMAINFRAME.txt

Text File | 2002-08-21 | 7.9 KB | 348 lines

object MainFrame: TMainFrame
  Left = 533
  Top = 130
  Width = 457
  Height = 532
  Caption = 'DebugDelphi - Freeware Mode'
  Color = clGray
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Courier New'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = True
  Scaled = False
  Visible = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 15
  object pnlDisplayArea: TPanel
    Left = 0
    Top = 0
    Width = 449
    Height = 486
    Align = alClient
    TabOrder = 0
    object dbDisplay: TListBox
      Left = 1
      Top = 26
      Width = 447
      Height = 454
      TabStop = False
      Align = alClient
      Color = clGray
      Ctl3D = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Courier New'
      Font.Style = []
      ImeMode = imDisable
      IntegralHeight = True
      ItemHeight = 15
      MultiSelect = True
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 0
    end
    object Panel1: TPanel
      Left = 1
      Top = 1
      Width = 447
      Height = 25
      Hint = 'Switch debug channels on and off'
      Align = alTop
      BevelOuter = bvLowered
      Color = clTeal
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      object Label1: TLabel
        Left = 330
        Top = 6
        Width = 53
        Height = 13
        AutoSize = False
        Caption = 'Max. Lines:'
      end
      object Bevel1: TBevel
        Left = 387
        Top = 4
        Width = 39
        Height = 17
        Shape = bsFrame
      end
      object CheckBox1: TCheckBox
        Left = 56
        Top = 4
        Width = 25
        Height = 17
        Caption = '1'
        Checked = True
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        State = cbChecked
        TabOrder = 0
        OnClick = ChannelOnOff
      end
      object CheckBox2: TCheckBox
        Left = 86
        Top = 4
        Width = 25
        Height = 17
        Caption = '2'
        Checked = True
        State = cbChecked
        TabOrder = 1
        OnClick = ChannelOnOff
      end
      object CheckBox3: TCheckBox
        Left = 116
        Top = 4
        Width = 25
        Height = 17
        Caption = '3'
        Enabled = False
        TabOrder = 2
        OnClick = ChannelOnOff
      end
      object CheckBox4: TCheckBox
        Left = 146
        Top = 4
        Width = 25
        Height = 17
        Caption = '4'
        Enabled = False
        TabOrder = 3
        OnClick = ChannelOnOff
      end
      object CheckBox5: TCheckBox
        Left = 176
        Top = 4
        Width = 25
        Height = 17
        Caption = '5'
        Enabled = False
        TabOrder = 4
        OnClick = ChannelOnOff
      end
      object CheckBox6: TCheckBox
        Left = 206
        Top = 4
        Width = 25
        Height = 17
        Caption = '6'
        Enabled = False
        TabOrder = 5
        OnClick = ChannelOnOff
      end
      object CheckBox7: TCheckBox
        Left = 236
        Top = 4
        Width = 25
        Height = 17
        Caption = '7'
        Enabled = False
        TabOrder = 6
        OnClick = ChannelOnOff
      end
      object CheckBox8: TCheckBox
        Left = 266
        Top = 4
        Width = 25
        Height = 17
        Caption = '8'
        Enabled = False
        TabOrder = 7
        OnClick = ChannelOnOff
      end
      object CheckBox9: TCheckBox
        Left = 296
        Top = 4
        Width = 25
        Height = 17
        Caption = '9'
        Enabled = False
        TabOrder = 8
        OnClick = ChannelOnOff
      end
      object CheckBox11: TCheckBox
        Left = 8
        Top = 4
        Width = 49
        Height = 17
        Hint = 'Standard output (main channel)'
        Caption = 'Main'
        Checked = True
        ParentShowHint = False
        ShowHint = True
        State = cbChecked
        TabOrder = 9
        OnClick = ChannelOnOff
      end
      object NoOfEdit: TEdit
        Left = 390
        Top = 6
        Width = 34
        Height = 14
        Hint = 'No of lines to be stored in memory'
        AutoSelect = False
        AutoSize = False
        BorderStyle = bsNone
        Color = clNavy
        Font.Charset = ANSI_CHARSET
        Font.Color = clYellow
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 10
        Text = '32000'
        OnKeyUp = NoOfLinesChange
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 120
    Top = 344
    object Datei1: TMenuItem
      Caption = ' File '
      object Print1: TMenuItem
        Caption = 'Print selected lines'
        OnClick = PrintSelected
      end
      object Saveas1: TMenuItem
        Caption = 'Save as ...'
        OnClick = SaveAs
      end
      object Exit1: TMenuItem
        Caption = 'Exit'
        OnClick = ExitClick
      end
    end
    object Edit2: TMenuItem
      Caption = ' Edit '
      object Edit1: TMenuItem
        Caption = 'Copy selected lines '
        OnClick = CopyToClipboardClick
      end
      object Deletealllines1: TMenuItem
        Caption = 'Delete all lines'
        ShortCut = 16452
        OnClick = ClearClick
      end
      object Copyselectedlines1: TMenuItem
        Caption = 'Delete selected lines'
        OnClick = DeleteSelected
      end
    end
    object Search1: TMenuItem
      Caption = ' Search '
      ShortCut = 16454
      OnClick = StartSearch
    end
    object Window: TMenuItem
      Caption = 'Options'
      Checked = True
      RadioItem = True
      object AutoScrollWin: TMenuItem
        Caption = 'AutoScroll'
        OnClick = ScrollOnOff
      end
      object AutoStartMen: TMenuItem
        Caption = 'AutoStart'
        OnClick = AutoStartEintrag
      end
      object DisplayChannel: TMenuItem
        Caption = 'Display Channel Number'
        Checked = True
        OnClick = AktChannel
      end
      object DisplayDate: TMenuItem
        Caption = 'Display Date'
        OnClick = DateAkt
      end
      object DisplayTime: TMenuItem
        Caption = 'Display Time'
        Checked = True
        OnClick = TimeAkt
      end
      object OnTop: TMenuItem
        Caption = 'On Top'
        OnClick = OnTopClick
      end
      object Startminimized: TMenuItem
        Caption = 'Start minimized'
        OnClick = MinimizeIt
      end
    end
    object Preferences1: TMenuItem
      Caption = 'Preferences'
      object Font1: TMenuItem
        Caption = 'Font'
        OnClick = FontDialog
      end
      object Windowcolor1: TMenuItem
        Caption = 'Window color'
        OnClick = SetWinColor
      end
    end
    object About1: TMenuItem
      Caption = ' About '
      OnClick = DisVersion
    end
    object Register1: TMenuItem
      Caption = 'Register'
      OnClick = DoRegister
    end
  end
  object PrintDialog1: TPrintDialog
    Left = 120
    Top = 304
  end
  object SaveFileDia: TSaveDialog
    Left = 176
    Top = 304
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Options = [fdEffects, fdForceFontExist, fdNoVectorFonts]
    Left = 176
    Top = 344
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Options = [cdPreventFullOpen, cdAnyColor]
    Left = 176
    Top = 384
  end
  object FindDialog1: TFindDialog
    Options = [frDown, frFindNext, frHideMatchCase, frHideWholeWord, frDisableWholeWord]
    OnFind = SeekIt
    Left = 120
    Top = 384
  end
end