diff --git a/tools/debugserver/frmmain.lfm b/tools/debugserver/frmmain.lfm index d9073887eb..1d4eea4cd5 100644 --- 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 diff --git a/tools/debugserver/frmmain.pp b/tools/debugserver/frmmain.pp index bda5ffe7a6..d87c79c464 100644 --- 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 diff --git a/tools/debugserver/frmoptions.lfm b/tools/debugserver/frmoptions.lfm index 85d1d7db0b..5e2d431a7f 100644 --- 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 diff --git a/tools/debugserver/frmoptions.pp b/tools/debugserver/frmoptions.pp index ce731d61ff..d631e49885 100644 --- 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;