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

Debugger, Breakpoint properties dialog: improved layout and localization

Browse Source 
git-svn-id: trunk@30551 -
This commit is contained in:
maxim 2011-05-04 22:39:56 +00:00
parent 8633da021b
commit 97ebeeb97b
2 changed files with 122 additions and 107 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

224
debugger/breakpropertydlg.lfm
View File

@ -1,8 +1,8 @@
inherited BreakPropertyDlg: TBreakPropertyDlg
Left = 60
Height = 435
Top = 274
Width = 443
Left = 249
Height = 371
Top = 187
Width = 450
HorzScrollBar.Page = 386
VertScrollBar.Page = 366
VertScrollBar.Range = 325
@ -11,18 +11,20 @@ inherited BreakPropertyDlg: TBreakPropertyDlg
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'Breakpoint Properties'
ClientHeight = 435
ClientWidth = 443
ClientHeight = 371
ClientWidth = 450
Constraints.MinWidth = 450
Position = poScreenCenter
object lblFileName: TLabel[0]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edtFilename
AnchorSideTop.Side = asrCenter
Left = 6
Height = 18
Top = 10
Width = 66
BorderSpacing.Around = 6
Height = 14
Top = 9
Width = 47
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'Filename:'
ParentColor = False
end
@ -31,21 +33,24 @@ inherited BreakPropertyDlg: TBreakPropertyDlg
AnchorSideTop.Control = edtLine
AnchorSideTop.Side = asrCenter
Left = 6
Height = 18
Top = 43
Width = 33
BorderSpacing.Around = 6
Height = 14
Top = 36
Width = 24
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'Line:'
ParentColor = False
end
object lblCondition: TLabel[2]
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edtCondition
AnchorSideTop.Side = asrCenter
Left = 6
Height = 18
Top = 76
Width = 71
BorderSpacing.Around = 6
Height = 14
Top = 63
Width = 50
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'Condition:'
ParentColor = False
end
@ -54,10 +59,11 @@ inherited BreakPropertyDlg: TBreakPropertyDlg
AnchorSideTop.Control = edtCounter
AnchorSideTop.Side = asrCenter
Left = 6
Height = 18
Top = 109
Width = 63
BorderSpacing.Around = 6
Height = 14
Top = 90
Width = 45
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'Hitcount:'
ParentColor = False
end
@ -66,10 +72,11 @@ inherited BreakPropertyDlg: TBreakPropertyDlg
AnchorSideTop.Control = cmbGroup
AnchorSideTop.Side = asrCenter
Left = 6
Height = 18
Top = 175
Width = 47
BorderSpacing.Around = 6
Height = 14
Top = 144
Width = 34
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'Group:'
ParentColor = False
end
@ -78,10 +85,11 @@ inherited BreakPropertyDlg: TBreakPropertyDlg
AnchorSideTop.Control = edtAutocontinueMS
AnchorSideTop.Side = asrCenter
Left = 6
Height = 18
Top = 142
Width = 133
BorderSpacing.Around = 6
Height = 14
Top = 117
Width = 95
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'Auto continue after'
ParentColor = False
end
@ -90,10 +98,10 @@ inherited BreakPropertyDlg: TBreakPropertyDlg
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = lblAutoContinue
AnchorSideTop.Side = asrCenter
Left = 217
Height = 18
Top = 142
Width = 31
Left = 197
Height = 14
Top = 117
Width = 22
BorderSpacing.Left = 6
Caption = '(ms)'
ParentColor = False
@ -104,11 +112,11 @@ inherited BreakPropertyDlg: TBreakPropertyDlg
AnchorSideTop.Control = edtCounter
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 151
Height = 27
Top = 138
Left = 131
Height = 21
Top = 114
Width = 60
BorderSpacing.Left = 6
BorderSpacing.Left = 24
BorderSpacing.Around = 6
TabOrder = 3
Text = 'edtAutocontinueMS'
@ -120,12 +128,12 @@ inherited BreakPropertyDlg: TBreakPropertyDlg
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 151
Height = 27
Top = 105
Width = 286
Left = 131
Height = 21
Top = 87
Width = 313
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Left = 24
BorderSpacing.Around = 6
TabOrder = 2
Text = 'edtCounter'
@ -136,11 +144,11 @@ inherited BreakPropertyDlg: TBreakPropertyDlg
AnchorSideTop.Control = edtFilename
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 151
Height = 27
Top = 39
Left = 131
Height = 21
Top = 33
Width = 60
BorderSpacing.Left = 6
BorderSpacing.Left = 24
BorderSpacing.Around = 6
Color = clBtnFace
ReadOnly = True
@ -153,12 +161,12 @@ inherited BreakPropertyDlg: TBreakPropertyDlg
AnchorSideTop.Control = Owner
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 151
Height = 27
Left = 131
Height = 21
Top = 6
Width = 286
Width = 313
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Left = 24
BorderSpacing.Around = 6
Color = clBtnFace
ReadOnly = True
@ -172,14 +180,14 @@ inherited BreakPropertyDlg: TBreakPropertyDlg
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 151
Height = 27
Top = 171
Width = 286
Left = 131
Height = 21
Top = 141
Width = 313
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Left = 24
BorderSpacing.Around = 6
ItemHeight = 0
ItemHeight = 13
TabOrder = 4
Text = 'cmbGroup'
end
@ -190,23 +198,23 @@ inherited BreakPropertyDlg: TBreakPropertyDlg
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 187
Top = 204
Width = 431
Height = 155
Top = 168
Width = 438
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Around = 6
Caption = 'Actions'
ClientHeight = 166
ClientWidth = 423
ClientHeight = 137
ClientWidth = 434
TabOrder = 5
object chkActionBreak: TCheckBox
AnchorSideLeft.Control = gbActions
AnchorSideTop.Control = gbActions
Left = 6
Height = 22
Height = 17
Top = 6
Width = 69
Width = 45
BorderSpacing.Around = 6
Caption = 'Break'
TabOrder = 0
@ -216,10 +224,11 @@ inherited BreakPropertyDlg: TBreakPropertyDlg
AnchorSideTop.Control = edtEnableGroups
AnchorSideTop.Side = asrCenter
Left = 6
Height = 22
Top = 36
Width = 118
BorderSpacing.Around = 6
Height = 17
Top = 31
Width = 82
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'Enable goups'
TabOrder = 1
end
@ -228,10 +237,11 @@ inherited BreakPropertyDlg: TBreakPropertyDlg
AnchorSideTop.Control = edtDisableGroups
AnchorSideTop.Side = asrCenter
Left = 6
Height = 22
Top = 69
Width = 130
BorderSpacing.Around = 6
Height = 17
Top = 58
Width = 88
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'Disable groups'
TabOrder = 2
end
@ -241,10 +251,10 @@ inherited BreakPropertyDlg: TBreakPropertyDlg
AnchorSideTop.Control = chkActionBreak
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 155
Height = 27
Top = 34
Width = 239
Left = 131
Height = 21
Top = 29
Width = 274
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 80
BorderSpacing.Top = 6
@ -262,10 +272,10 @@ inherited BreakPropertyDlg: TBreakPropertyDlg
AnchorSideTop.Control = edtEnableGroups
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 155
Height = 27
Top = 67
Width = 239
Left = 131
Height = 21
Top = 56
Width = 274
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 80
BorderSpacing.Top = 6
@ -282,10 +292,11 @@ inherited BreakPropertyDlg: TBreakPropertyDlg
AnchorSideTop.Control = edtEvalExpression
AnchorSideTop.Side = asrCenter
Left = 6
Height = 22
Top = 102
Width = 133
BorderSpacing.Around = 6
Height = 17
Top = 85
Width = 93
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'Eval expression'
Enabled = False
TabOrder = 3
@ -295,10 +306,11 @@ inherited BreakPropertyDlg: TBreakPropertyDlg
AnchorSideTop.Control = edtLogMessage
AnchorSideTop.Side = asrCenter
Left = 6
Height = 22
Top = 135
Width = 118
BorderSpacing.Around = 6
Height = 17
Top = 112
Width = 80
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'Log message'
Enabled = False
TabOrder = 4
@ -310,10 +322,10 @@ inherited BreakPropertyDlg: TBreakPropertyDlg
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbActions
AnchorSideRight.Side = asrBottom
Left = 155
Height = 27
Top = 100
Width = 262
Left = 131
Height = 21
Top = 83
Width = 297
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 80
BorderSpacing.Top = 6
@ -329,10 +341,10 @@ inherited BreakPropertyDlg: TBreakPropertyDlg
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = gbActions
AnchorSideRight.Side = asrBottom
Left = 155
Height = 27
Top = 133
Width = 262
Left = 131
Height = 21
Top = 110
Width = 297
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 80
BorderSpacing.Top = 6
@ -347,14 +359,16 @@ inherited BreakPropertyDlg: TBreakPropertyDlg
AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 6
Height = 32
Top = 397
Width = 431
Height = 36
Top = 329
Width = 438
Anchors = [akTop, akLeft, akRight, akBottom]
OKButton.Name = 'OKButton'
OKButton.Caption = '&OK'
OKButton.OnClick = btnOKClick
HelpButton.Name = 'HelpButton'
HelpButton.Caption = '&Help'
HelpButton.OnClick = btnHelpClick
CloseButton.Name = 'CloseButton'
CloseButton.Caption = '&Close'
CloseButton.Enabled = False
@ -371,14 +385,14 @@ inherited BreakPropertyDlg: TBreakPropertyDlg
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 151
Height = 27
Top = 72
Width = 286
Left = 131
Height = 21
Top = 60
Width = 313
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Left = 24
BorderSpacing.Around = 6
ItemHeight = 0
ItemHeight = 13
TabOrder = 7
Text = 'edtCondition'
end

5
debugger/breakpropertydlg.pas
View File

@ -174,8 +174,9 @@ begin
FBreakpointsNotification.OnRemove := @BreakPointRemove;
UpdateInfo;
ButtonPanel.OKButton.OnClick := @btnOKClick;
ButtonPanel.HelpButton.OnClick := @btnHelpClick;
ButtonPanel.OKButton.Caption:=lisOk;
ButtonPanel.HelpButton.Caption:=lisMenuHelp;
ButtonPanel.CancelButton.Caption:=dlgCancel;
end;
destructor TBreakPropertyDlg.Destroy;