* Applied patch from javivf, bug #17629

git-svn-id: trunk@28839 -
2025-06-03 09:38:13 +02:00 · 2010-12-30 11:09:21 +00:00 · 2010-12-30 11:09:21 +00:00 · ac11c21dd6
commit ac11c21dd6
parent 07207f0562
4 changed files with 476 additions and 20 deletions
--- a/tools/debugserver/frmmain.lfm
+++ b/tools/debugserver/frmmain.lfm
@ -4,16 +4,16 @@ object MainForm: TMainForm
  Top = 281
  Width = 400
  Caption = 'Debug message viewer'
-  ClientHeight = 278
+  ClientHeight = 276
  ClientWidth = 400
  Menu = MMDebugServer
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
-  LCLVersion = '0.9.27'
+  LCLVersion = '0.9.29'
  object LVMessages: TListView
    Left = 0
-    Height = 252
+    Height = 250
    Top = 26
    Width = 400
    Align = alClient
@ -32,6 +32,7 @@ object MainForm: TMainForm
        Caption = 'Message'
        Width = 219
      end>
+    ItemIndex = -1
    MultiSelect = True
    ReadOnly = True
    RowSelect = True
@ -54,12 +55,12 @@ object MainForm: TMainForm
      Action = APause
    end
    object ToolButton2: TToolButton
-      Left = 93
+      Left = 78
      Top = 2
      Action = AClear
    end
    object TBCopyMessages: TToolButton
-      Left = 139
+      Left = 124
      Top = 2
      Action = ACopyLines
    end
@ -69,14 +70,14 @@ object MainForm: TMainForm
      Action = AQuit
    end
    object TBSave: TToolButton
-      Left = 116
+      Left = 101
      Top = 2
      Action = ASelectAll
    end
    object ToolButton3: TToolButton
      Left = 70
      Top = 2
-      Width = 23
+      Width = 8
      Caption = 'ToolButton3'
      Style = tbsSeparator
    end
@ -86,7 +87,7 @@ object MainForm: TMainForm
      Action = AHide
    end
    object ToolButton4: TToolButton
-      Left = 162
+      Left = 147
      Top = 2
      Action = ASave
    end
@ -99,10 +100,82 @@ object MainForm: TMainForm
      Caption = '&File'
      object MIPause: TMenuItem
        Action = APause
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000230000
+          007D0000007D0000007D0000007D0000007D0000007D0000007D0000007D0000
+          007D0000007D0000007D0000007D0000007D00000023000000000000007D0000
+          0012000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000120000007D000000000000007D0000
+          00000000004E000000FF000000FF000000FF000000FF000000FF000000FF0000
+          00FF000000FF000000FF00000062000000000000007D000000000000007D0000
+          0000000000FFDFDFDFFFCFCFCFFFD1D1D1FFD4D4D4FFDADADAFFDCDCDCFFDFDF
+          DFFFDFDFDFFFCFCFCFFF000000FF000000000000007D000000000000007D0000
+          0000000000FFFFFFFFFFD9D9D9FF878787FF252525FF000000FF282828FF9797
+          97FFFFFFFFFFDFDFDFFF000000FF000000000000007D000000000000007D0000
+          0000000000FFFFFFFFFF808080FF05062AFF181C85FF202492FF181C85FF0506
+          2AFF979797FFDFDFDFFF000000FF000000000000007D000000000000007D0000
+          0000000000FFFFFFFFFF222222FF353A99FF3D43A6FF3D43A6FF3D43A6FF353A
+          99FF282828FFDCDCDCFF000000FF000000000000007D000000000000007D0000
+          0000000000FFFFFFFFFF000000FF5A62BAFF5A62BAFF5A62BAFF5A62BAFF5A62
+          BAFF000000FFDADADAFF000000FF000000000000007D000000000000007D0000
+          0000000000FFFFFFFFFF202020FF6E78C1FF7781CEFF7781CEFF7781CEFF6E78
+          C1FF262626FFD7D7D7FF000000FF000000000000007D000000000000007D0000
+          0000000000FFFFFFFFFF747474FF2D3045FF8C96D4FF95A0E2FF8C96D4FF2D30
+          45FF8A8A8AFFD4D4D4FF000000FF000000000000007D000000000000007D0000
+          0000000000FFFFFFFFFFBFBFBFFF747474FF202020FF000000FF222222FF8383
+          83FFDFDFDFFFD1D1D1FF000000FF000000000000007D000000000000007D0000
+          0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFF000000FF000000000000007D000000000000007D0000
+          000000000037000000FF000000FF000000FF000000FF000000FF000000FF0000
+          00FF000000FF000000FF00000062000000000000007D000000000000007D0000
+          0012000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000120000007D00000000000000230000
+          007D0000007D0000007D0000007D0000007D0000007D0000007D0000007D0000
+          007D0000007D0000007D0000007D0000007D0000002300000000
+        }
        OnClick = APauseExecute
      end
      object MIOptions: TMenuItem
        Action = AOptions
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000000000
+          00000000006B000000FF000000FF000000FF000000FF000000FF000000FF0000
+          00FF000000FF000000FF000000FF000000FF0000006400000000000000000000
+          0000000000FFC2C2C2FFBDBDBDFFBDBDBDFFBDBDBDFFBCBCBCFFBCBCBCFFBBBB
+          BBFFBBBBBBFFBBBBBBFFBBBBBBFFA0A0A0FF000000D4000000000000004D0000
+          00FF000000FFFDFDFDFF000000FF000000FF9F9F9FFFE5E5E5FFE4E4E4FFE4E4
+          E4FFE3E3E3FFE3E3E3FFE3E3E3FFBBBBBBFF000000FF00000000000000FFFFFF
+          FFFF000000FFFDFDFDFF000000FFEFEFEFFF000000FFE6E6E6FF836E68FF836D
+          68FF836D68FF826D67FFE4E4E4FFBDBDBDFF000000FF00000000000000FFFFFF
+          FFFF000000FF000000FF000000FFEFEFEFFF000000FFE6E6E6FF836E68FFA6A2
+          A7FFA19597FF836E68FFE5E5E5FFBEBEBEFF000000FF00000000000000FFFFFF
+          FFFFEFEFEFFFEFEFEFFFEFEFEFFFC3C3C3FF000000FFE9E9E9FF836E68FFA58B
+          87FFA3847CFF836E68FFE7E7E7FFBFBFBFFF000000FF00000000000000000000
+          00FFFFFFFFFFEFEFEFFFC3C3C3FF000000FFC2C2C2FFE8E8E8FF836E68FF836E
+          68FF836E68FF836E68FFE8E8E8FFC0C0C0FF000000FF00000000000000000000
+          0000000000FFFFFFFFFF000000FFECECECFFECECECFFECECECFFEBEBEBFFEBEB
+          EBFFEAEAEAFFEAEAEAFFEAEAEAFFC1C1C1FF000000FF00000000000000000000
+          0000000000FFFFFFFFFF000000FFB3B3B3FFD3D3D3FFB3B3B3FFBCBCBCFFBCBC
+          BCFFC7C7C7FFC7C7C7FFEBEBEBFFC3C3C3FF000000FF00000000000000000000
+          00FFFFFFFFFFEFEFEFFFC3C3C3FF000000FFEFEFEFFFEEEEEEFFEEEEEEFFEEEE
+          EEFFEEEEEEFFEEEEEEFFECECECFFC4C4C4FF000000FF00000000000000FFFFFF
+          FFFFEFEFEFFFEFEFEFFFEFEFEFFFC3C3C3FF000000FFBDBDBDFFB3B3B3FFE0E0
+          E0FFEFEFEFFFEEEEEEFFEEEEEEFFC5C5C5FF000000FF00000000000000FFFFFF
+          FFFF000000FF000000FF000000FFEFEFEFFF000000FFF1F1F1FFF1F1F1FFF0F0
+          F0FFE2E2E2FF858585FF494B4BFF161616FF000000FF00000000000000FFFFFF
+          FFFF000000FFFEFEFEFF000000FFEFEFEFFF000000FFBEBEBEFFCACACAFFF1F1
+          F1FFADADADFF767676FF5D5D5DFF404040FF000000FF000000000000004D0000
+          00FF000000FFFEFEFEFF000000FF000000FFA8A8A8FFF1F1F1FFF1F1F1FFF1F1
+          F1FFC3C3C3FFFBFBFBFFA8A8A8FF000000FF0000004C00000000000000000000
+          0000000000FFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFDFD
+          FDFFE0E0E0FFC1C1C1FF000000FF000000530000000000000000000000000000
+          000000000053000000FF000000FF000000FF000000FF000000FF000000FF0000
+          00FF000000FF000000FF0000004C000000000000000000000000
+        }
        OnClick = AOptionsExecute
      end
      object MenuItem1: TMenuItem
@ -110,10 +183,82 @@ object MainForm: TMainForm
      end
      object MIHide: TMenuItem
        Action = AHide
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          00000000000000000000000000FF000000FF000000FF000000FF000000FF0000
+          00FF000000FF0000000000000000000000000000000000000000000000000000
+          00000000000000000000000000FFB99268FF9E7549FFA2784BFF6F5334FF6047
+          2DFF000000FF0000000000000000000000000000000000000000000000000000
+          00000000000000000000000000FFD4BCA3FFCFB59AFFD2B99FFF88653FFF5A42
+          29FF000000FF0000000000000000000000000000000000000000000000000000
+          00000000000000000000000000FFD9C4AEFFD2B99FFFD2B99FFF88653FFF5A42
+          29FF000000FF0000000000000000000000000000000000000000000000000000
+          00000000000000000000000000FFD8C2ABFFD0B69BFFD2B99FFF88653FFF5A42
+          29FF000000FF0000000000000000000000000000000000000000000000000000
+          00000000000000000000000000FFDAC5AFFFD0B69BFFD2B99FFF88653FFF5A42
+          29FF000000FF0000000000000000000000000000000000000000000000000000
+          00D4000000FF000000FF000000FFD8C2ABFFD2B99FFFD1B79CFF88653FFF5A42
+          29FF000000FF000000FF000000FF000000FF0000000000000000000000000000
+          0000000000FFE3D4C4FFD4BCA3FFD7C1AAFFD4BCA3FFD1B89EFF88653FFF8865
+          3FFF88653FFF5B432AFF000000FF000000000000000000000000000000000000
+          000000000000000000FFE3D4C4FFD5BEA6FFD5BDA4FFD1B89EFF88653FFF8865
+          3FFF5B432AFF000000FF00000000000000000000000000000000000000000000
+          00000000000000000000000000FFE3D4C4FFD1B79CFFD3BAA0FF88653FFF5B43
+          2AFF000000FF0000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000FFE3D4C4FFD2B99FFF5B432AFF0000
+          00FF000000000000000000000000000000000000000000000000000000000000
+          000000000000000000000000000000000000000000FFE4D5C5FF000000FF0000
+          0000000000000000000000000000000000000000000000000000000000000000
+          000000000000000000000000000000000000000000003D2D1CFF000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000
+        }
        OnClick = AHideExecute
      end
      object MIQuit: TMenuItem
        Action = AQuit
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000FF000000FF000000FF000000FF0000
+          00FF000000FF000000FF000000FF000000FF000000FF00000000000000000000
+          00000000000003060406182B2001000000FFB5B7B7FF59605CFF000000FF354A
+          3BFF425C49FF48644FFF4B6853FF4D6A54FF000000FF00000000488160014881
+          600148816001000000FF000000FF000000FFDEE0E0FFC7C9C9FF919493FF4F54
+          51FF000000FF2F4134FF3D5442FF435D49FF000000FF00000000488160014881
+          600148816001000000FF2C3FAAFF000000FFE0E2E2FFD1D4D4FFBEC1C1FFB2B4
+          B4FF8B8D8DFF000000FF293A2DFF354A3BFF000000FF00000000000000FF0000
+          00FF000000FF000000FF000088FF2C3FAAFF000000FFD1D4D4FFBEC1C1FFB7B9
+          B9FF9B9C9CFF000000FF26352AFF314335FF000000FF00000000000000FF2B3E
+          C8FF0B10A1FF0E14A3FF000088FF000088FF2C3FAAFF000000FFBEC1C1FFB7B9
+          B9FF9B9C9CFF000000FF27372BFF2C3D31FF000000FF00000000000000FF4562
+          E4FF000099FF000099FF000099FF000099FF000088FF2C3FAAFF000000FF6A6C
+          6CFF9B9C9CFF000000FF243127FF26352AFF000000FF00000000000000FF4562
+          E4FF0A16B0FF0A16B0FF0A16B0FF0A16B0FF101BB1FF293999FF000000FF7779
+          79FF5A5B5BFF000000FF1B251DFF1D2820FF000000FF00000000000000FF4562
+          E4FF4562E4FF4562E4FF4562E4FF1E42DFFF364DB1FF000000FFBBBDBDFFA2A4
+          A4FF9B9C9CFF000000FF141C16FF161F19FF000000FF00000000000000FF0000
+          00FF000000FF000000FF5B75E7FF3E53B3FF000000FFCDD0D0FFBEC1C1FFB7B9
+          B9FF9B9C9CFF000000FF0C110EFF0D120FFF000000FF00000000000000000000
+          000000000000000000FF4562E4FF000000FFDCDEDEFFD0D3D3FFBEC1C1FFB7B9
+          B9FF9B9C9CFF000000FF060806FF070907FF000000FF00000000000000000000
+          000000000000000000FF000000FF000000FFE0E2E2FFD0D3D3FFBDC0C0FFB5B7
+          B7FF989A9AFF000000FF000000FF000000FF000000FF00000000000000000000
+          0000000000000000000000000000000000FFE0E2E2FFD0D3D3FFBDC0C0FFABAD
+          ADFF919292FF000000FF000000FF000000FF000000FF00000000000000000000
+          0000000000000000000000000000000000FF000000FF000000FF000000FF0000
+          00FF000000FF000000FF000000FF000000FF000000FF00000000000000000000
+          0000000000000000000000000000000000000000000000000000000000000000
+          0000000000000000000000000000000000000000000000000000
+        }
        OnClick = AQuitExecute
      end
    end
@ -121,18 +266,162 @@ object MainForm: TMainForm
      Caption = 'Edit'
      object MIClear: TMenuItem
        Action = AClear
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000000000
+          0000000000000000000006060657060606FF000000FF0F0F0FFF050505FF0000
+          00FF000000FF0606064B00000000000000000000000000000000000000000000
+          00000606064B060606FF060606FF3A4142FF7B8F8FFF6C7A7AFF3C4444FF5E6C
+          6CFF2C3535FF292E2EFF000000FF0606063E0000000000000000000000000000
+          0000212727FF3D4343FF868E8EFF555E5EFFD0DADAFF99ABACFF525D5DFF8494
+          94FF404D4DFF535D5DFF222828FF1D2323FF0000000000000000000000000000
+          0000242B2BFF757E7EFFD1D8D8FF808D8DFFD3DDDDFF99ABACFF525D5DFF93A0
+          A0FF404D4DFF6B7878FF384444FF222828FF0000000000000000000000000000
+          0000252C2CFFA3ADADFFD3DADAFF818E8FFFD4DDDDFF99ABACFF525D5DFF93A0
+          A0FF404D4DFF6C7979FF425050FF222929FF0000000000000000000000000000
+          0000252C2CFFA3ADADFFD2D9D9FF7F8B8BFFCED5D6FF7B8888FF4F5758FF8793
+          93FF3D4A4AFF6B7878FF425050FF222929FF0000000000000000000000000000
+          0000242B2BFF99A4A5FFAEB6B7FF677071FF92A1A1FF637374FF354040FF5B69
+          69FF2F3939FF5F6969FF343F3FFF202626FF0000000000000000000000000000
+          0000232A2AFF95A0A0FF404D4DFF303636FF262A2AFF2A2F2FFF0D0F0FFF090B
+          0BFF0D1010FF383E3EFF2B3434FF1F2424FF0000000000000000000000000000
+          00001B1F1FFF303434FF44494BFF626768FF666F70FF646B6BFF5D6C6EFF4B57
+          58FF313939FF151617FF161A1AFF191E1FFF0000000000000000000000000000
+          0082465152FF657173FF919D9FFFC8E1E4FFCFE5E9FFCBE0E2FFCBD1D1FF7F8D
+          8EFF647576FF586768FF384243FF222829FF0000008200000000000000000000
+          00FF75898AFFD2EDF1FFE9F8FBFFEDF5F9FFEEF7F8FFECF7F8FFE6F3F5FFD9EA
+          ECFFCBDDDEFF899B9DFF546263FF4A5758FF000000FF00000000000000000000
+          00FFD3E4E8FFE9F1F4FFE4F1F2FFDAE9EAFFD2E2E5FFBED2D5FFA7C1C3FF94AD
+          AFFFA4BEC0FFACC4C6FF9CB6B8FF667779FF000000FF00000000000000002B2B
+          2BFFBCD1D3FFC4DADCFFCFE0E2FFA2B7B9FF5B6264FF363839FF333C3CFF5360
+          61FF83989AFF9BB5B7FF98B2B3FF8BA2A4FF000000FF00000000000000000606
+          063E101010FFA5C0C2FFA5BFC1FF67797AFF404748FF252727FF2E3536FF7285
+          87FF889EA0FF8AA1A3FF8CA3A5FF000000FF0606062100000000000000000000
+          00000606063A000000FF000000FF718385FFD8EDF0FFE9F1F2FFE4EDEEFFBAC6
+          C7FF465253FF000000FF000000FF0606064B0000000000000000000000000000
+          000000000000060606110606064B0E0E0EFF424242FF4A4A4AFF3E3E3EFF2C2C
+          2CFF000000FF0606063E06060621000000000000000000000000
+        }
        OnClick = AClearExecute
      end
      object MICopy: TMenuItem
        Action = ACopyLines
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000000000
+          000000000000000000000000000000000081000000FF000000FF000000FF0000
+          00FF000000FF000000FF000000FF000000FF0000007100000000000000000000
+          0000000000000000000000000000000000FFD6D6D6FFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFD6D6D6FF000000FF00000000000000000000
+          0000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00000000000000000000
+          0000000000000000000000000000000000FFE3E3E3FF5A5A5AFF535353FF9191
+          91FFFFFFFFFF5C5C5CFF666666FFFFFFFFFF000000FF00000000000000000000
+          0000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00000000000000810000
+          00FF000000FF000000FF000000FF000000FFFFFFFFFF505050FF4C4C4CFFFFFF
+          FFFFA2A2A2FF696969FFB3B3B3FFFFFFFFFF000000FF00000000000000FFD6D6
+          D6FFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00000000000000FFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFFFF646464FF4D4D4DFF5050
+          50FFFFFFFFFF696969FF787878FFFFFFFFFF000000FF00000000000000FFE3E3
+          E3FF5A5A5AFF535353FF919191FF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FF00000000000000FFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFB3B3B3FFFFFFFFFFFFFFFFFFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFD6D6D6FF000000FF00000000000000FFFFFF
+          FFFF505050FF4C4C4CFFFFFFFFFF505050FF000000FF000000FF000000FF0000
+          00FF000000FF000000FF000000FF000000FF0000008100000000000000FFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
+          00FF000000000000000000000000000000000000000000000000000000FFFFFF
+          FFFF646464FF4D4D4DFF505050FFFFFFFFFF696969FF787878FFFFFFFFFF0000
+          00FF000000000000000000000000000000000000000000000000000000FFFFFF
+          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
+          00FF000000000000000000000000000000000000000000000000000000FFB3B3
+          B3FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFD6D6D6FF0000
+          00FF000000000000000000000000000000000000000000000000000000810000
+          00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
+          0081000000000000000000000000000000000000000000000000
+        }
        OnClick = ACopyLinesExecute
      end
      object MISave: TMenuItem
        Action = ASave
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000000000
+          0055000000FF000000D3000000DC000000FF000000FF000000FF000000FF0000
+          00FF000000FF000000E0000000E1000000FF000000FF00000047000000550000
+          00FF6D6359FF75644FFFA1A1A1FFC0C0C0FF909090FF909090FF868686FF6E6E
+          6EFF7A7A7AFF49392DFF5C4F3EFF8F8780FF40311AFF000000FF000000FF8278
+          6BFFB29E83FFAE9A81FFCDCDCDFFE6E6E6FF483621FF89795FFFC5C5C5FFC2C2
+          C2FFB2B2B2FF3A2C11FF82705AFFB0A99FFF726049FF000000FF000000FFEDE0
+          CFFFB9A486FFAE9A81FFC5C5C5FFCDCDCDFF53432EFF82705AFFC5C5C5FFC5C5
+          C5FFBFBFBFFF352811FF82705AFFB0A99DFF726049FF000000FF000000FFEDE0
+          CFFFBEA98DFFB5A084FFC5C5C5FFC5C5C5FF423018FF5A4933FFD6D6D6FFC5C5
+          C5FFB9B9B9FF3C2D13FF806D58FFB0A597FF726049FF000000FF000000FFEDE0
+          CFFFBEA98DFFBDA88CFFBDB1A8FFC5C5C5FFC5C5C5FFCECECEFFEBEBEBFFD7D7
+          D7FF9D9D9CFF56462FFF8C8680FFAE9A81FF726049FF000000FF000000FFEDE0
+          CFFFBEA98DFFBEA98DFFBCA689FFAE9A7FFFAE9A81FFAE9A81FFAE9A81FFAE9A
+          81FFAD997EFFAC977DFFAE9A81FFAE9A81FF726049FF000000FF000000FFEDE0
+          CFFFBEA98DFFCDBFAEFFDFD6CAFFDACFC7FFD6CBBFFFD6CBBFFFD6CBBFFFD6CB
+          BFFFD6CBBFFFD6CBBFFFC4B6A1FFAE9A81FF726049FF000000FF000000FFEDE0
+          CFFFBEA98DFFEEEEEEFFFEFEFEFFFEFEFEFFF2F2F2FFEBEBEBFFEBEBEBFFEBEB
+          EBFFEBEBEBFFEBEBEBFFEEEEEEFFAE9A81FF726049FF000000FF000000FFEDE0
+          CFFFBEA98DFFD7D7D7FFD7D7D7FFD7D7D7FFD7D7D7FFD4D4D4FFC5C5C5FFC5C5
+          C5FFC5C5C5FFC5C5C5FFF1F1F1FFAE9A81FF726049FF000000FF000000FFEDE0
+          CFFFBEA98DFFD7D7D7FFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFCFCFCFFF4F4
+          F4FFEBEBEBFFEBEBEBFFF1F1F1FFAE9A81FF726049FF000000FF000000FFEDE0
+          CFFFBEA98DFFD7D7D7FFD7D7D7FFD7D7D7FFD7D7D7FFD7D7D7FFD7D7D7FFD7D7
+          D7FFD7D7D7FFD6D6D6FFF1F1F1FFAE9A81FF726049FF000000FF000000FFEDE0
+          CFFFBEA98DFFD7D7D7FFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFE
+          FEFFFEFEFEFFFEFEFEFFF9F9F9FFB5A084FF75644FFF000000FF000000FFF1E7
+          DBFFBEA98DFF7E87B7FF6875C7FF6774C7FF6774C7FF6774C7FF6774C7FF6674
+          C7FF6774C7FF6876C8FF7A86CDFFBEA98DFF7C6954FF000000FF000000FFFAF8
+          F7FFEBDDCBFF808AC8FF848FD1FF848FD1FF848FD1FF848FD1FF848FD1FF848F
+          D1FF8490D1FF848FD1FF8691D3FFE8D5BFFFE8D5BFFF000000FF000000470000
+          00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
+          00FF000000FF000000FF000000FF000000FF000000FF00000055
+        }
        OnClick = ASaveExecute
      end
      object MenuItem2: TMenuItem
        Action = ASelectAll
+        Bitmap.Data = {
+          36040000424D3604000000000000360000002800000010000000100000000100
+          2000000000000004000064000000640000000000000000000000000000000000
+          006B000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
+          00FF000000FF000000FF000000FF000000640000000000000000000000000000
+          00FFC2C2C2FFBDBDBDFFBDBDBDFFBDBDBDFFBCBCBCFFBCBCBCFFBBBBBBFFBBBB
+          BBFFBBBBBBFFBBBBBBFFA0A0A0FF000000D40000000000000000000000000000
+          00FFFDFDFDFFE6E6E6FFE5E5E5FFE5E5E5FFE5E5E5FFE4E4E4FFE4E4E4FFE3E3
+          E3FFE3E3E3FFE3E3E3FFBBBBBBFF000000FF0000000000000000000000000000
+          00FFFDFDFDFFE7E7E7FFE7E7E7FFE6E6E6FFE6E6E6FFE6E6E6FFE5E5E5FFE5E5
+          E5FFE4E4E4FFE4E4E4FFBDBDBDFF000000FF0000000000000000000000000000
+          00FFFDFDFDFFE8E8E8FF664049FF664049FF664049FF664049FF664049FF6640
+          49FF664049FFE5E5E5FFBEBEBEFF000000FF0000000000000000000000000000
+          00FFFDFDFDFFEAEAEAFF664049FFFFFFFFFF664049FFFFFFFFFFFFFFFFFFFFFF
+          FFFF664049FFE7E7E7FFBFBFBFFF000000FF0000000000000000000000000000
+          00FFFDFDFDFFEBEBEBFF664049FF664049FF664049FF664049FF664049FF6640
+          49FF664049FFE8E8E8FFC0C0C0FF000000FF0000000000000000000000000000
+          00FFFDFDFDFFEDEDEDFF664049FFFFFFFFFFFFFFFFFF664049FFFFFFFFFFFFFF
+          FFFF664049FFEAEAEAFFC1C1C1FF000000FF0000000000000000000000000000
+          00FFFDFDFDFFEEEEEEFF664049FF664049FF664049FF664049FF664049FF6640
+          49FF664049FFEBEBEBFFC3C3C3FF000000FF0000000000000000000000000000
+          00FFFEFEFEFFEFEFEFFF664049FFFFFFFFFF664049FFFFFFFFFFFFFFFFFFFFFF
+          FFFF664049FFECECECFFC4C4C4FF000000FF0000000000000000000000000000
+          00FFFEFEFEFFF1F1F1FF664049FF664049FF664049FF664049FF664049FF6640
+          49FF664049FFEEEEEEFFC5C5C5FF000000FF0000000000000000000000000000
+          00FFFEFEFEFFF1F1F1FF664049FFFFFFFFFFFFFFFFFFFFFFFFFF664049FFE2E2
+          E2FF858585FF494B4BFF161616FF000000FF0000000000000000000000000000
+          00FFFEFEFEFFF1F1F1FF664049FF664049FF664049FF664049FF664049FFADAD
+          ADFF767676FF5D5D5DFF404040FF000000FF0000000000000000000000000000
+          00FFFEFEFEFFF1F1F1FFF1F1F1FFF1F1F1FFF1F1F1FFF1F1F1FFF1F1F1FFC3C3
+          C3FFFBFBFBFFA8A8A8FF000000FF0000004C0000000000000000000000000000
+          00FFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFEFEFEFFFDFDFDFFE0E0
+          E0FFC1C1C1FF000000FF00000053000000000000000000000000000000000000
+          0053000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
+          00FF000000FF0000004C00000000000000000000000000000000
+        }
        OnClick = ASelectAllExecute
      end
    end
@ -878,14 +1167,122 @@ object MainForm: TMainForm
    top = 139
    object PMIPause: TMenuItem
      Action = APause
+      Bitmap.Data = {
+        36040000424D3604000000000000360000002800000010000000100000000100
+        2000000000000004000064000000640000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000230000
+        007D0000007D0000007D0000007D0000007D0000007D0000007D0000007D0000
+        007D0000007D0000007D0000007D0000007D00000023000000000000007D0000
+        0012000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000120000007D000000000000007D0000
+        00000000004E000000FF000000FF000000FF000000FF000000FF000000FF0000
+        00FF000000FF000000FF00000062000000000000007D000000000000007D0000
+        0000000000FFDFDFDFFFCFCFCFFFD1D1D1FFD4D4D4FFDADADAFFDCDCDCFFDFDF
+        DFFFDFDFDFFFCFCFCFFF000000FF000000000000007D000000000000007D0000
+        0000000000FFFFFFFFFFD9D9D9FF878787FF252525FF000000FF282828FF9797
+        97FFFFFFFFFFDFDFDFFF000000FF000000000000007D000000000000007D0000
+        0000000000FFFFFFFFFF808080FF05062AFF181C85FF202492FF181C85FF0506
+        2AFF979797FFDFDFDFFF000000FF000000000000007D000000000000007D0000
+        0000000000FFFFFFFFFF222222FF353A99FF3D43A6FF3D43A6FF3D43A6FF353A
+        99FF282828FFDCDCDCFF000000FF000000000000007D000000000000007D0000
+        0000000000FFFFFFFFFF000000FF5A62BAFF5A62BAFF5A62BAFF5A62BAFF5A62
+        BAFF000000FFDADADAFF000000FF000000000000007D000000000000007D0000
+        0000000000FFFFFFFFFF202020FF6E78C1FF7781CEFF7781CEFF7781CEFF6E78
+        C1FF262626FFD7D7D7FF000000FF000000000000007D000000000000007D0000
+        0000000000FFFFFFFFFF747474FF2D3045FF8C96D4FF95A0E2FF8C96D4FF2D30
+        45FF8A8A8AFFD4D4D4FF000000FF000000000000007D000000000000007D0000
+        0000000000FFFFFFFFFFBFBFBFFF747474FF202020FF000000FF222222FF8383
+        83FFDFDFDFFFD1D1D1FF000000FF000000000000007D000000000000007D0000
+        0000000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
+        FFFFFFFFFFFFFFFFFFFF000000FF000000000000007D000000000000007D0000
+        000000000037000000FF000000FF000000FF000000FF000000FF000000FF0000
+        00FF000000FF000000FF00000062000000000000007D000000000000007D0000
+        0012000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000120000007D00000000000000230000
+        007D0000007D0000007D0000007D0000007D0000007D0000007D0000007D0000
+        007D0000007D0000007D0000007D0000007D0000002300000000
+      }
      OnClick = APauseExecute
    end
    object PMIShow: TMenuItem
      Action = AShow
+      Bitmap.Data = {
+        36040000424D3604000000000000360000002800000010000000100000000100
+        2000000000000004000064000000640000000000000000000000000000000000
+        00000000000000000000000000000000000000000000000000FF0000001D0000
+        0000000000000000000000000000000000000000000000000000000000000000
+        00100000002100000033000000FF0000002A0000003B000000FF000000330000
+        003B000000FF0000003100000021000000130000000800000000000000000000
+        0000000000000000000000000022000000FF00000039000000FF000000110000
+        00FF000000710000000000000000000000000000000000000000000000000000
+        000000000000000000000000000000000022000000FF000000FF000000FF0000
+        0082000000000000000000000000000000000000000000000000000000000000
+        00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
+        00FF000000FF000000FF000000FF000000FF000000FF00000000000000000000
+        00FFFFFFFFFFE7E7E7FFE9E9E9FFEBEBEBFFEDEDEDFFEEEEEEFFF0F0F0FFF2F2
+        F2FFF4F4F4FFF4F4F4FFF8F8F8FFE8E8E8FF000000FF00000000000000000000
+        00FFFFFFFFFFE9E9E9FF6C4E31FFE9E9E9FF000000FF000000FF000000FF0000
+        00FF000000FFF8F8F8FFFBFBFBFFEAEAEAFF000000FF00000000000000000000
+        00FFFFFFFFFFE6E6E6FFE9E9E9FFE9E9E9FFE9E9E9FFF7F7F7FFF7F7F7FFF7F7
+        F7FFF7F7F7FFF5F5F5FFF7F7F7FFE8E8E8FF000000FF00000000000000000000
+        00FFFFFFFFFFE2E2E2FF6C4E31FFE9E9E9FF000000FF000000FF000000FF0000
+        00FFF7F7F7FF000000FFF7F7F7FFE4E4E4FF000000FF00000000000000000000
+        00FFFFFFFFFFE0E0E0FFE0E0E0FFE0E0E0FFE0E0E0FFE0E0E0FFE0E0E0FFE0E0
+        E0FFE0E0E0FFE0E0E0FFE0E0E0FFE4E4E4FF000000FF00000000000000000000
+        00FFFFFFFFFFE0E0E0FFE0E0E0FFE0E0E0FFE0E0E0FFE0E0E0FFE0E0E0FFE0E0
+        E0FFE0E0E0FFE0E0E0FFE0E0E0FFE1E1E1FF000000FF00000000000000000000
+        00FFFFFFFFFFE0E0E0FF000000FF000000FFC4C4C4FF000000FF000000FF0000
+        00FFCACACAFF000000FF000000FFDDDDDDFF000000FF00000000000000000000
+        00FFAAAAAAFFABABABFFAAAAAAFFADADADFFAEAEAEFFAFAFAFFFAFAFAFFFB3B3
+        B3FFB5B5B5FFB6B6B6FFBBBBBBFFB1B1B1FF000000FF000000000000008E0000
+        00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
+        00FF000000FF000000FF000000FF000000FF000000FF00000079000000FF2F30
+        31FF2A2B2BFF2A2B2BFF2A2B2BFF2A2B2BFF2A2B2BFF2A2B2BFF2A2B2BFF2A2B
+        2BFF2A2B2BFF2A2B2BFF2A2B2BFF2A2B2BFF000000F1000000FF000000670000
+        00FF000000FF000000FF000000FF000000FF000000FF000000FF000000FF0000
+        00FF000000FF000000FF000000FF000000FF000000FF00000073
+      }
      OnClick = AShowExecute
    end
    object PMIClear: TMenuItem
      Action = AClear
+      Bitmap.Data = {
+        36040000424D3604000000000000360000002800000010000000100000000100
+        2000000000000004000064000000640000000000000000000000000000000000
+        0000000000000000000006060657060606FF000000FF0F0F0FFF050505FF0000
+        00FF000000FF0606064B00000000000000000000000000000000000000000000
+        00000606064B060606FF060606FF3A4142FF7B8F8FFF6C7A7AFF3C4444FF5E6C
+        6CFF2C3535FF292E2EFF000000FF0606063E0000000000000000000000000000
+        0000212727FF3D4343FF868E8EFF555E5EFFD0DADAFF99ABACFF525D5DFF8494
+        94FF404D4DFF535D5DFF222828FF1D2323FF0000000000000000000000000000
+        0000242B2BFF757E7EFFD1D8D8FF808D8DFFD3DDDDFF99ABACFF525D5DFF93A0
+        A0FF404D4DFF6B7878FF384444FF222828FF0000000000000000000000000000
+        0000252C2CFFA3ADADFFD3DADAFF818E8FFFD4DDDDFF99ABACFF525D5DFF93A0
+        A0FF404D4DFF6C7979FF425050FF222929FF0000000000000000000000000000
+        0000252C2CFFA3ADADFFD2D9D9FF7F8B8BFFCED5D6FF7B8888FF4F5758FF8793
+        93FF3D4A4AFF6B7878FF425050FF222929FF0000000000000000000000000000
+        0000242B2BFF99A4A5FFAEB6B7FF677071FF92A1A1FF637374FF354040FF5B69
+        69FF2F3939FF5F6969FF343F3FFF202626FF0000000000000000000000000000
+        0000232A2AFF95A0A0FF404D4DFF303636FF262A2AFF2A2F2FFF0D0F0FFF090B
+        0BFF0D1010FF383E3EFF2B3434FF1F2424FF0000000000000000000000000000
+        00001B1F1FFF303434FF44494BFF626768FF666F70FF646B6BFF5D6C6EFF4B57
+        58FF313939FF151617FF161A1AFF191E1FFF0000000000000000000000000000
+        0082465152FF657173FF919D9FFFC8E1E4FFCFE5E9FFCBE0E2FFCBD1D1FF7F8D
+        8EFF647576FF586768FF384243FF222829FF0000008200000000000000000000
+        00FF75898AFFD2EDF1FFE9F8FBFFEDF5F9FFEEF7F8FFECF7F8FFE6F3F5FFD9EA
+        ECFFCBDDDEFF899B9DFF546263FF4A5758FF000000FF00000000000000000000
+        00FFD3E4E8FFE9F1F4FFE4F1F2FFDAE9EAFFD2E2E5FFBED2D5FFA7C1C3FF94AD
+        AFFFA4BEC0FFACC4C6FF9CB6B8FF667779FF000000FF00000000000000002B2B
+        2BFFBCD1D3FFC4DADCFFCFE0E2FFA2B7B9FF5B6264FF363839FF333C3CFF5360
+        61FF83989AFF9BB5B7FF98B2B3FF8BA2A4FF000000FF00000000000000000606
+        063E101010FFA5C0C2FFA5BFC1FF67797AFF404748FF252727FF2E3536FF7285
+        87FF889EA0FF8AA1A3FF8CA3A5FF000000FF0606062100000000000000000000
+        00000606063A000000FF000000FF718385FFD8EDF0FFE9F1F2FFE4EDEEFFBAC6
+        C7FF465253FF000000FF000000FF0606064B0000000000000000000000000000
+        000000000000060606110606064B0E0E0EFF424242FF4A4A4AFF3E3E3EFF2C2C
+        2CFF000000FF0606063E06060621000000000000000000000000
+      }
      OnClick = AClearExecute
    end
    object MenuItem5: TMenuItem
@ -893,6 +1290,42 @@ object MainForm: TMainForm
    end
    object PMIQuit: TMenuItem
      Action = AQuit
+      Bitmap.Data = {
+        36040000424D3604000000000000360000002800000010000000100000000100
+        2000000000000004000064000000640000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000FF000000FF000000FF000000FF0000
+        00FF000000FF000000FF000000FF000000FF000000FF00000000000000000000
+        00000000000003060406182B2001000000FFB5B7B7FF59605CFF000000FF354A
+        3BFF425C49FF48644FFF4B6853FF4D6A54FF000000FF00000000488160014881
+        600148816001000000FF000000FF000000FFDEE0E0FFC7C9C9FF919493FF4F54
+        51FF000000FF2F4134FF3D5442FF435D49FF000000FF00000000488160014881
+        600148816001000000FF2C3FAAFF000000FFE0E2E2FFD1D4D4FFBEC1C1FFB2B4
+        B4FF8B8D8DFF000000FF293A2DFF354A3BFF000000FF00000000000000FF0000
+        00FF000000FF000000FF000088FF2C3FAAFF000000FFD1D4D4FFBEC1C1FFB7B9
+        B9FF9B9C9CFF000000FF26352AFF314335FF000000FF00000000000000FF2B3E
+        C8FF0B10A1FF0E14A3FF000088FF000088FF2C3FAAFF000000FFBEC1C1FFB7B9
+        B9FF9B9C9CFF000000FF27372BFF2C3D31FF000000FF00000000000000FF4562
+        E4FF000099FF000099FF000099FF000099FF000088FF2C3FAAFF000000FF6A6C
+        6CFF9B9C9CFF000000FF243127FF26352AFF000000FF00000000000000FF4562
+        E4FF0A16B0FF0A16B0FF0A16B0FF0A16B0FF101BB1FF293999FF000000FF7779
+        79FF5A5B5BFF000000FF1B251DFF1D2820FF000000FF00000000000000FF4562
+        E4FF4562E4FF4562E4FF4562E4FF1E42DFFF364DB1FF000000FFBBBDBDFFA2A4
+        A4FF9B9C9CFF000000FF141C16FF161F19FF000000FF00000000000000FF0000
+        00FF000000FF000000FF5B75E7FF3E53B3FF000000FFCDD0D0FFBEC1C1FFB7B9
+        B9FF9B9C9CFF000000FF0C110EFF0D120FFF000000FF00000000000000000000
+        000000000000000000FF4562E4FF000000FFDCDEDEFFD0D3D3FFBEC1C1FFB7B9
+        B9FF9B9C9CFF000000FF060806FF070907FF000000FF00000000000000000000
+        000000000000000000FF000000FF000000FFE0E2E2FFD0D3D3FFBDC0C0FFB5B7
+        B7FF989A9AFF000000FF000000FF000000FF000000FF00000000000000000000
+        0000000000000000000000000000000000FFE0E2E2FFD0D3D3FFBDC0C0FFABAD
+        ADFF919292FF000000FF000000FF000000FF000000FF00000000000000000000
+        0000000000000000000000000000000000FF000000FF000000FF000000FF0000
+        00FF000000FF000000FF000000FF000000FF000000FF00000000000000000000
+        0000000000000000000000000000000000000000000000000000000000000000
+        0000000000000000000000000000000000000000000000000000
+      }
      OnClick = AQuitExecute
    end
  end
--- a/tools/debugserver/frmmain.pp
+++ b/tools/debugserver/frmmain.pp
@ -105,6 +105,7 @@ type
    FShowOnStartUp,
    FShowOnmessage,
    FKeepVisible : Boolean;
+    FCleanLog : Boolean;
    FAtBottom : Boolean;
    FQuitting : Boolean;
    FDiscarded : Int64;
@ -375,6 +376,9 @@ Var
  LI : TListItem;

 begin
+  if (Msg.MsgType = lctIdentify) and FCleanLog then
+    ClearMessages;
+
  LVmessages.Items.BeginUpdate;
  try
    if FAtBottom then
@ -458,6 +462,8 @@ begin
    ShowOnMessage:=FShowOnmessage;
    NewMessageAtBottom:=FAtBottom;
    NewMessageVisible:=FKeepVisible;
+    CleanLogOnNewProcess := FCleanLog;
+
    If (ShowModal=mrOk) then
      begin
      FShowOnStartUp:=ShowOnStartUp;
@ -503,6 +509,7 @@ Const
  KeyShowOnMessage = 'ShowOnMessage';
  KeyAtBottom      = 'NewAtBottom';
  KeyNewVisible    = 'NewVisible';
+  KeyCleanLog      = 'CleanLog';
  KeyStayOnTop     = 'StayOnTop';
  KeyToolBar       = 'ShowToolBar';

@ -519,6 +526,7 @@ begin
      FShowOnMessage:=ReadBool(SSettings,KeyShowOnMessage,True);
      FAtBottom:=ReadBool(SSettings,KeyAtBottom,False);
      FKeepVisible:=ReadBool(SSettings,KeyNewVisible,True);
+      FCleanLog:=ReadBool(SSettings,KeyCleanLog,False);
      StayOnTop:=ReadBool(SSettings,KeyStayOnTop,False);
      ShowToolBar:=ReadBool(SSettings,KeyToolBar,True);
    finally
@ -532,6 +540,10 @@ Var
  Ini : TMemIniFile;

 begin
+  if not(DirectoryExists(GetAppConfigDir(False))) then
+    if not(CreateDir (GetAppConfigDir(False))) Then
+      ShowMessage('I can''t create config dir');
+
  Ini:=TMeminiFile.Create(GetAppConfigFile(False));
  With Ini do
    try
@ -539,6 +551,7 @@ begin
      WriteBool(SSettings,KeyShowOnMessage,FShowOnMessage);
      WriteBool(SSettings,KeyAtBottom,FAtBottom);
      WriteBool(SSettings,KeyNewVisible,FKeepVisible);
+      WriteBool(SSettings,KeyCleanLog,FCleanLog);
      WriteBool(SSettings,KeyStayOnTop,StayOnTop);
      WriteBool(SSettings,KeyToolBar,ShowToolBar);
    finally
--- a/tools/debugserver/frmoptions.lfm
+++ b/tools/debugserver/frmoptions.lfm
@ -1,18 +1,17 @@
 object OptionsForm: TOptionsForm
  Left = 390
-  Height = 230
+  Height = 275
  Top = 239
  Width = 390
-  ActiveControl = CBShowOnStartUp
  Caption = 'Options'
-  ClientHeight = 230
+  ClientHeight = 275
  ClientWidth = 390
  Position = poMainFormCenter
  LCLVersion = '0.9.29'
  object ButtonPanel1: TButtonPanel
    Left = 6
-    Height = 34
-    Top = 190
+    Height = 35
+    Top = 234
    Width = 378
    OKButton.Name = 'OKButton'
    OKButton.Caption = '&OK'
@ -33,14 +32,14 @@ object OptionsForm: TOptionsForm
    Top = 16
    Width = 300
    Caption = 'Show message window'
-    ClientHeight = 65
+    ClientHeight = 59
    ClientWidth = 296
    TabOrder = 1
    object CBShowOnStartUp: TCheckBox
      Left = 14
      Height = 21
      Top = 9
-      Width = 117
+      Width = 126
      Caption = 'Show on startup'
      TabOrder = 0
    end
@ -48,25 +47,25 @@ object OptionsForm: TOptionsForm
      Left = 13
      Height = 21
      Top = 37
-      Width = 156
+      Width = 164
      Caption = 'Show on new message'
      TabOrder = 1
    end
  end
  object GBMessages: TGroupBox
    Left = 16
-    Height = 75
+    Height = 115
    Top = 109
    Width = 300
    Caption = 'Messages'
-    ClientHeight = 59
+    ClientHeight = 93
    ClientWidth = 296
    TabOrder = 2
    object CBNewAtBottom: TCheckBox
      Left = 13
      Height = 21
      Top = 5
-      Width = 204
+      Width = 216
      Caption = 'Show new messages at bottom'
      TabOrder = 0
    end
@ -74,9 +73,17 @@ object OptionsForm: TOptionsForm
      Left = 14
      Height = 21
      Top = 29
-      Width = 200
+      Width = 206
      Caption = 'Scroll new messages into view'
      TabOrder = 1
    end
+    object CBCleanLogOnNewProcess: TCheckBox
+      Left = 14
+      Height = 21
+      Top = 55
+      Width = 179
+      Caption = 'Clean log on new process'
+      TabOrder = 2
+    end
  end
 end
--- a/tools/debugserver/frmoptions.pp
+++ b/tools/debugserver/frmoptions.pp
@ -34,6 +34,7 @@ type
  TOptionsForm = class(TForm)
    ButtonPanel1: TButtonPanel;
    CBNewVisible: TCheckBox;
+    CBCleanLogOnNewProcess: TCheckBox;
    CBShowOnStartUp: TCheckBox;
    CBShowOnMessage: TCheckBox;
    CBNewAtBottom: TCheckBox;
@ -50,6 +51,7 @@ type
    Property ShowOnMessage : Boolean Index 1 Read GetB Write SetB;
    Property NewMessageAtBottom : Boolean Index 2 Read GetB Write SetB;
    Property NewMessageVisible: Boolean Index 3 Read GetB Write SetB;
+    Property CleanLogOnNewProcess: Boolean Index 4 Read GetB Write SetB;
  end;

 var
@ -69,6 +71,7 @@ begin
    1 : Result:=CBShowOnMessage;
    2 : Result:=CBNewAtBottom;
    3 : Result:=CBNewVisible;
+    4 : Result:=CBCleanLogOnNewProcess;
  end;
 end;