diff --git a/debugger/breakpropertydlg.lfm b/debugger/breakpropertydlg.lfm index ccb20ace18..942e70a941 100644 --- a/debugger/breakpropertydlg.lfm +++ b/debugger/breakpropertydlg.lfm @@ -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 diff --git a/debugger/breakpropertydlg.pas b/debugger/breakpropertydlg.pas index d820cc65df..f086cd3321 100644 --- a/debugger/breakpropertydlg.pas +++ b/debugger/breakpropertydlg.pas @@ -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;