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