paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 23:09:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Applied patch from javivf, bug #17629

Browse Source 
git-svn-id: trunk@28839 -
This commit is contained in:
michael 2010-12-30 11:09:21 +00:00
parent 07207f0562
commit ac11c21dd6
4 changed files with 476 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

449
tools/debugserver/frmmain.lfm
View File

@ -4,16 +4,16 @@ object MainForm: TMainForm
Top = 281 Top = 281
Width = 400 Width = 400
Caption = 'Debug message viewer' Caption = 'Debug message viewer'
ClientHeight = 278 ClientHeight = 276
ClientWidth = 400 ClientWidth = 400
Menu = MMDebugServer Menu = MMDebugServer
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
LCLVersion = '0.9.27' LCLVersion = '0.9.29'
object LVMessages: TListView object LVMessages: TListView
Left = 0 Left = 0
Height = 252 Height = 250
Top = 26 Top = 26
Width = 400 Width = 400
Align = alClient Align = alClient
@ -32,6 +32,7 @@ object MainForm: TMainForm
Caption = 'Message' Caption = 'Message'
Width = 219 Width = 219
end> end>
ItemIndex = -1
MultiSelect = True MultiSelect = True
ReadOnly = True ReadOnly = True
RowSelect = True RowSelect = True
@ -54,12 +55,12 @@ object MainForm: TMainForm
Action = APause Action = APause
end end
object ToolButton2: TToolButton object ToolButton2: TToolButton
Left = 93 Left = 78
Top = 2 Top = 2
Action = AClear Action = AClear
end end
object TBCopyMessages: TToolButton object TBCopyMessages: TToolButton
Left = 139 Left = 124
Top = 2 Top = 2
Action = ACopyLines Action = ACopyLines
end end
@ -69,14 +70,14 @@ object MainForm: TMainForm
Action = AQuit Action = AQuit
end end
object TBSave: TToolButton object TBSave: TToolButton
Left = 116 Left = 101
Top = 2 Top = 2
Action = ASelectAll Action = ASelectAll
end end
object ToolButton3: TToolButton object ToolButton3: TToolButton
Left = 70 Left = 70
Top = 2 Top = 2
Width = 23 Width = 8
Caption = 'ToolButton3' Caption = 'ToolButton3'
Style = tbsSeparator Style = tbsSeparator
end end
@ -86,7 +87,7 @@ object MainForm: TMainForm
Action = AHide Action = AHide
end end
object ToolButton4: TToolButton object ToolButton4: TToolButton
Left = 162 Left = 147
Top = 2 Top = 2
Action = ASave Action = ASave
end end
@ -99,10 +100,82 @@ object MainForm: TMainForm
Caption = '&File' Caption = '&File'
object MIPause: TMenuItem object MIPause: TMenuItem
Action = APause 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 OnClick = APauseExecute
end end
object MIOptions: TMenuItem object MIOptions: TMenuItem
Action = AOptions 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 OnClick = AOptionsExecute
end end
object MenuItem1: TMenuItem object MenuItem1: TMenuItem
@ -110,10 +183,82 @@ object MainForm: TMainForm
end end
object MIHide: TMenuItem object MIHide: TMenuItem
Action = AHide 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 OnClick = AHideExecute
end end
object MIQuit: TMenuItem object MIQuit: TMenuItem
Action = AQuit 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 OnClick = AQuitExecute
end end
end end
@ -121,18 +266,162 @@ object MainForm: TMainForm
Caption = 'Edit' Caption = 'Edit'
object MIClear: TMenuItem object MIClear: TMenuItem
Action = AClear 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 OnClick = AClearExecute
end end
object MICopy: TMenuItem object MICopy: TMenuItem
Action = ACopyLines 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 OnClick = ACopyLinesExecute
end end
object MISave: TMenuItem object MISave: TMenuItem
Action = ASave 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 OnClick = ASaveExecute
end end
object MenuItem2: TMenuItem object MenuItem2: TMenuItem
Action = ASelectAll 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 OnClick = ASelectAllExecute
end end
end end
@ -878,14 +1167,122 @@ object MainForm: TMainForm
top = 139 top = 139
object PMIPause: TMenuItem object PMIPause: TMenuItem
Action = APause 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 OnClick = APauseExecute
end end
object PMIShow: TMenuItem object PMIShow: TMenuItem
Action = AShow 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 OnClick = AShowExecute
end end
object PMIClear: TMenuItem object PMIClear: TMenuItem
Action = AClear 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 OnClick = AClearExecute
end end
object MenuItem5: TMenuItem object MenuItem5: TMenuItem
@ -893,6 +1290,42 @@ object MainForm: TMainForm
end end
object PMIQuit: TMenuItem object PMIQuit: TMenuItem
Action = AQuit 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 OnClick = AQuitExecute
end end
end end

13
tools/debugserver/frmmain.pp
View File

@ -105,6 +105,7 @@ type
FShowOnStartUp, FShowOnStartUp,
FShowOnmessage, FShowOnmessage,
FKeepVisible : Boolean; FKeepVisible : Boolean;
FCleanLog : Boolean;
FAtBottom : Boolean; FAtBottom : Boolean;
FQuitting : Boolean; FQuitting : Boolean;
FDiscarded : Int64; FDiscarded : Int64;
@ -375,6 +376,9 @@ Var
LI : TListItem; LI : TListItem;
begin begin
if (Msg.MsgType = lctIdentify) and FCleanLog then
ClearMessages;
LVmessages.Items.BeginUpdate; LVmessages.Items.BeginUpdate;
try try
if FAtBottom then if FAtBottom then
@ -458,6 +462,8 @@ begin
ShowOnMessage:=FShowOnmessage; ShowOnMessage:=FShowOnmessage;
NewMessageAtBottom:=FAtBottom; NewMessageAtBottom:=FAtBottom;
NewMessageVisible:=FKeepVisible; NewMessageVisible:=FKeepVisible;
CleanLogOnNewProcess := FCleanLog;
If (ShowModal=mrOk) then If (ShowModal=mrOk) then
begin begin
FShowOnStartUp:=ShowOnStartUp; FShowOnStartUp:=ShowOnStartUp;
@ -503,6 +509,7 @@ Const
KeyShowOnMessage = 'ShowOnMessage'; KeyShowOnMessage = 'ShowOnMessage';
KeyAtBottom = 'NewAtBottom'; KeyAtBottom = 'NewAtBottom';
KeyNewVisible = 'NewVisible'; KeyNewVisible = 'NewVisible';
KeyCleanLog = 'CleanLog';
KeyStayOnTop = 'StayOnTop'; KeyStayOnTop = 'StayOnTop';
KeyToolBar = 'ShowToolBar'; KeyToolBar = 'ShowToolBar';
@ -519,6 +526,7 @@ begin
FShowOnMessage:=ReadBool(SSettings,KeyShowOnMessage,True); FShowOnMessage:=ReadBool(SSettings,KeyShowOnMessage,True);
FAtBottom:=ReadBool(SSettings,KeyAtBottom,False); FAtBottom:=ReadBool(SSettings,KeyAtBottom,False);
FKeepVisible:=ReadBool(SSettings,KeyNewVisible,True); FKeepVisible:=ReadBool(SSettings,KeyNewVisible,True);
FCleanLog:=ReadBool(SSettings,KeyCleanLog,False);
StayOnTop:=ReadBool(SSettings,KeyStayOnTop,False); StayOnTop:=ReadBool(SSettings,KeyStayOnTop,False);
ShowToolBar:=ReadBool(SSettings,KeyToolBar,True); ShowToolBar:=ReadBool(SSettings,KeyToolBar,True);
finally finally
@ -532,6 +540,10 @@ Var
Ini : TMemIniFile; Ini : TMemIniFile;
begin 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)); Ini:=TMeminiFile.Create(GetAppConfigFile(False));
With Ini do With Ini do
try try
@ -539,6 +551,7 @@ begin
WriteBool(SSettings,KeyShowOnMessage,FShowOnMessage); WriteBool(SSettings,KeyShowOnMessage,FShowOnMessage);
WriteBool(SSettings,KeyAtBottom,FAtBottom); WriteBool(SSettings,KeyAtBottom,FAtBottom);
WriteBool(SSettings,KeyNewVisible,FKeepVisible); WriteBool(SSettings,KeyNewVisible,FKeepVisible);
WriteBool(SSettings,KeyCleanLog,FCleanLog);
WriteBool(SSettings,KeyStayOnTop,StayOnTop); WriteBool(SSettings,KeyStayOnTop,StayOnTop);
WriteBool(SSettings,KeyToolBar,ShowToolBar); WriteBool(SSettings,KeyToolBar,ShowToolBar);
finally finally

31
tools/debugserver/frmoptions.lfm
View File

@ -1,18 +1,17 @@
object OptionsForm: TOptionsForm object OptionsForm: TOptionsForm
Left = 390 Left = 390
Height = 230 Height = 275
Top = 239 Top = 239
Width = 390 Width = 390
ActiveControl = CBShowOnStartUp
Caption = 'Options' Caption = 'Options'
ClientHeight = 230 ClientHeight = 275
ClientWidth = 390 ClientWidth = 390
Position = poMainFormCenter Position = poMainFormCenter
LCLVersion = '0.9.29' LCLVersion = '0.9.29'
object ButtonPanel1: TButtonPanel object ButtonPanel1: TButtonPanel
Left = 6 Left = 6
Height = 34 Height = 35
Top = 190 Top = 234
Width = 378 Width = 378
OKButton.Name = 'OKButton' OKButton.Name = 'OKButton'
OKButton.Caption = '&OK' OKButton.Caption = '&OK'
@ -33,14 +32,14 @@ object OptionsForm: TOptionsForm
Top = 16 Top = 16
Width = 300 Width = 300
Caption = 'Show message window' Caption = 'Show message window'
ClientHeight = 65 ClientHeight = 59
ClientWidth = 296 ClientWidth = 296
TabOrder = 1 TabOrder = 1
object CBShowOnStartUp: TCheckBox object CBShowOnStartUp: TCheckBox
Left = 14 Left = 14
Height = 21 Height = 21
Top = 9 Top = 9
Width = 117 Width = 126
Caption = 'Show on startup' Caption = 'Show on startup'
TabOrder = 0 TabOrder = 0
end end
@ -48,25 +47,25 @@ object OptionsForm: TOptionsForm
Left = 13 Left = 13
Height = 21 Height = 21
Top = 37 Top = 37
Width = 156 Width = 164
Caption = 'Show on new message' Caption = 'Show on new message'
TabOrder = 1 TabOrder = 1
end end
end end
object GBMessages: TGroupBox object GBMessages: TGroupBox
Left = 16 Left = 16
Height = 75 Height = 115
Top = 109 Top = 109
Width = 300 Width = 300
Caption = 'Messages' Caption = 'Messages'
ClientHeight = 59 ClientHeight = 93
ClientWidth = 296 ClientWidth = 296
TabOrder = 2 TabOrder = 2
object CBNewAtBottom: TCheckBox object CBNewAtBottom: TCheckBox
Left = 13 Left = 13
Height = 21 Height = 21
Top = 5 Top = 5
Width = 204 Width = 216
Caption = 'Show new messages at bottom' Caption = 'Show new messages at bottom'
TabOrder = 0 TabOrder = 0
end end
@ -74,9 +73,17 @@ object OptionsForm: TOptionsForm
Left = 14 Left = 14
Height = 21 Height = 21
Top = 29 Top = 29
Width = 200 Width = 206
Caption = 'Scroll new messages into view' Caption = 'Scroll new messages into view'
TabOrder = 1 TabOrder = 1
end end
object CBCleanLogOnNewProcess: TCheckBox
Left = 14
Height = 21
Top = 55
Width = 179
Caption = 'Clean log on new process'
TabOrder = 2
end
end end
end end

3
tools/debugserver/frmoptions.pp
View File

@ -34,6 +34,7 @@ type
TOptionsForm = class(TForm) TOptionsForm = class(TForm)
ButtonPanel1: TButtonPanel; ButtonPanel1: TButtonPanel;
CBNewVisible: TCheckBox; CBNewVisible: TCheckBox;
CBCleanLogOnNewProcess: TCheckBox;
CBShowOnStartUp: TCheckBox; CBShowOnStartUp: TCheckBox;
CBShowOnMessage: TCheckBox; CBShowOnMessage: TCheckBox;
CBNewAtBottom: TCheckBox; CBNewAtBottom: TCheckBox;
@ -50,6 +51,7 @@ type
Property ShowOnMessage : Boolean Index 1 Read GetB Write SetB; Property ShowOnMessage : Boolean Index 1 Read GetB Write SetB;
Property NewMessageAtBottom : Boolean Index 2 Read GetB Write SetB; Property NewMessageAtBottom : Boolean Index 2 Read GetB Write SetB;
Property NewMessageVisible: Boolean Index 3 Read GetB Write SetB; Property NewMessageVisible: Boolean Index 3 Read GetB Write SetB;
Property CleanLogOnNewProcess: Boolean Index 4 Read GetB Write SetB;
end; end;
var var
@ -69,6 +71,7 @@ begin
1 : Result:=CBShowOnMessage; 1 : Result:=CBShowOnMessage;
2 : Result:=CBNewAtBottom; 2 : Result:=CBNewAtBottom;
3 : Result:=CBNewVisible; 3 : Result:=CBNewVisible;
4 : Result:=CBCleanLogOnNewProcess;
end; end;
end; end;