paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-12 12:20:46 +01:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'main' of https://gitlab.com/freepascal.org/lazarus/lazarus into main

Browse Source
This commit is contained in:
giuliano411 2023-06-21 12:06:10 +02:00
commit 74b814cd70
3 changed files with 202 additions and 173 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

194
ide/frames/initialsetupdlgdebuggerframe.lfm
View File

@ -20,10 +20,13 @@ object InitDebuggerFrame: TInitDebuggerFrame
AnchorSideRight.Control = SpeedButton1
Left = 6
Height = 15
Top = 6
Top = 2
Width = 388
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
BorderSpacing.Left = 6
BorderSpacing.Top = 2
BorderSpacing.Right = 6
BorderSpacing.Bottom = 3
Caption = 'lbAboutDebugger'
WordWrap = True
end
@ -35,7 +38,7 @@ object InitDebuggerFrame: TInitDebuggerFrame
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Top = 27
Top = 20
Width = 417
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
@ -52,14 +55,14 @@ object InitDebuggerFrame: TInitDebuggerFrame
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Top = 46
Top = 39
Width = 417
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Right = 6
Caption = 'rbChangePath'
OnChange = rbKeepChange
TabOrder = 6
TabOrder = 5
end
object rbChange: TRadioButton
AnchorSideLeft.Control = Owner
@ -69,7 +72,7 @@ object InitDebuggerFrame: TInitDebuggerFrame
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Top = 65
Top = 58
Width = 417
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
@ -86,7 +89,7 @@ object InitDebuggerFrame: TInitDebuggerFrame
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Top = 84
Top = 77
Width = 417
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
@ -103,7 +106,7 @@ object InitDebuggerFrame: TInitDebuggerFrame
AnchorSideRight.Side = asrBottom
Left = 6
Height = 19
Top = 103
Top = 96
Width = 417
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
@ -112,65 +115,104 @@ object InitDebuggerFrame: TInitDebuggerFrame
OnChange = rbKeepChange
TabOrder = 4
end
object cmbDebuggerName: TComboBox
object edDebuggerNotes: TMemo
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = GroupBox1
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 90
Top = 284
Width = 417
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Top = 1
BorderSpacing.Right = 6
BorderSpacing.Bottom = 2
Constraints.MinHeight = 90
ParentFont = False
ReadOnly = True
ScrollBars = ssAutoVertical
TabOrder = 0
end
object GroupBox1: TGroupBox
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = rbIgnore
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 16
Height = 23
Top = 128
Width = 407
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 16
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
ItemHeight = 15
OnChange = rbKeepChange
Style = csDropDownList
TabOrder = 7
end
object edDebuggerName: TEdit
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = cmbDebuggerName
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 16
Height = 23
Top = 157
Width = 407
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 16
BorderSpacing.Top = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Color = clForm
ParentFont = False
ReadOnly = True
TabOrder = 8
Text = 'edDebuggerName'
end
object pnlDbgPath: TPanel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = edDebuggerName
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 93
Top = 186
Height = 166
Top = 117
Width = 417
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Top = 2
BorderSpacing.Right = 6
Caption = '-'
ClientHeight = 146
ClientWidth = 413
TabOrder = 6
object cmbDebuggerName: TComboBox
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = GroupBox1
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 6
Height = 23
Top = 0
Width = 401
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 2
ItemHeight = 15
OnChange = rbKeepChange
Style = csDropDownList
TabOrder = 0
end
object edDebuggerName: TEdit
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = cmbDebuggerName
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 6
Height = 23
Top = 25
Width = 401
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 6
BorderSpacing.Right = 6
BorderSpacing.Bottom = 2
Color = clForm
ParentFont = False
ReadOnly = True
TabOrder = 1
Text = 'edDebuggerName'
end
object pnlDbgPath: TPanel
AnchorSideLeft.Control = GroupBox1
AnchorSideTop.Control = edDebuggerName
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GroupBox1
AnchorSideRight.Side = asrBottom
Left = 6
Height = 93
Top = 51
Width = 401
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 6
BorderSpacing.Top = 3
BorderSpacing.Right = 6
BorderSpacing.Bottom = 2
BevelOuter = bvNone
ClientHeight = 93
ClientWidth = 417
TabOrder = 5
ClientWidth = 401
TabOrder = 2
object lbDebuggerPath: TLabel
AnchorSideLeft.Control = pnlDbgPath
AnchorSideTop.Control = pnlDbgPath
@ -179,7 +221,7 @@ object InitDebuggerFrame: TInitDebuggerFrame
Left = 0
Height = 15
Top = 0
Width = 417
Width = 401
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Bottom = 4
Caption = 'lbDebuggerPath'
@ -191,16 +233,15 @@ object InitDebuggerFrame: TInitDebuggerFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlDbgPath
AnchorSideRight.Side = asrBottom
Left = 10
Left = 0
Height = 25
Top = 19
Width = 407
Width = 401
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 10
BevelOuter = bvNone
ClientHeight = 25
ClientWidth = 407
ClientWidth = 401
TabOrder = 0
object cmbDebuggerPath: TComboBox
AnchorSideLeft.Control = PnlSelectDbgPath
@ -209,7 +250,7 @@ object InitDebuggerFrame: TInitDebuggerFrame
Left = 0
Height = 23
Top = 0
Width = 326
Width = 320
Anchors = [akTop, akLeft, akRight]
ItemHeight = 15
OnChange = rbKeepChange
@ -220,7 +261,7 @@ object InitDebuggerFrame: TInitDebuggerFrame
AnchorSideTop.Control = PnlSelectDbgPath
AnchorSideRight.Control = PnlSelectDbgPath
AnchorSideRight.Side = asrBottom
Left = 332
Left = 326
Height = 25
Top = 0
Width = 75
@ -238,12 +279,11 @@ object InitDebuggerFrame: TInitDebuggerFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlDbgPath
AnchorSideRight.Side = asrBottom
Left = 10
Left = 0
Height = 23
Top = 44
Width = 407
Width = 401
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
Color = clForm
ParentFont = False
ReadOnly = True
@ -256,12 +296,11 @@ object InitDebuggerFrame: TInitDebuggerFrame
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = pnlDbgPath
AnchorSideRight.Side = asrBottom
Left = 10
Left = 0
Height = 23
Top = 70
Width = 407
Width = 401
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 10
BorderSpacing.Top = 3
Color = clForm
Font.Color = clHighlight
@ -272,23 +311,6 @@ object InitDebuggerFrame: TInitDebuggerFrame
Text = 'edDebuggerPathResolved'
end
end
object edDebuggerNotes: TMemo
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = pnlDbgPath
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
Left = 6
Height = 90
Top = 285
Width = 417
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Around = 6
Constraints.MinHeight = 90
ParentFont = False
ReadOnly = True
ScrollBars = ssAutoVertical
TabOrder = 0
end
object SpeedButton1: TSpeedButton
AnchorSideTop.Control = Owner
@ -296,10 +318,10 @@ object InitDebuggerFrame: TInitDebuggerFrame
AnchorSideRight.Side = asrBottom
Left = 400
Height = 22
Top = 6
Top = 1
Width = 23
Anchors = [akTop, akRight]
BorderSpacing.Top = 6
BorderSpacing.Top = 1
BorderSpacing.Right = 6
BorderSpacing.Bottom = 6
Flat = True

4
ide/frames/initialsetupdlgdebuggerframe.pas
View File

@ -28,6 +28,7 @@ type
edDebuggerName: TEdit;
edDebuggerPath: TEdit;
edDebuggerPathResolved: TEdit;
GroupBox1: TGroupBox;
lbAboutDebugger: TLabel;
lbDebuggerPath: TLabel;
pnlDbgPath: TPanel;
@ -330,6 +331,7 @@ begin
edDebuggerName.Caption := '';
cmbDebuggerName.Visible := False;
edDebuggerName.Visible := True;
GroupBox1.Caption := InitDlgDebugCurrent;
end;
procedure TInitDebuggerFrame.ShowRecommentedDbgClass;
@ -337,12 +339,14 @@ begin
edDebuggerName.Caption := RecommendedClass.Caption;
cmbDebuggerName.Visible := False;
edDebuggerName.Visible := True;
GroupBox1.Caption := InitDlgDebugNew;
end;
procedure TInitDebuggerFrame.ShowSelectedDbgClass;
begin
cmbDebuggerName.Visible := True;
edDebuggerName.Visible := False;
GroupBox1.Caption := InitDlgDebugNew;
end;
procedure TInitDebuggerFrame.HideDebuggerPath;

3
ide/lazarusidestrconsts.pas
View File

@ -6446,6 +6446,9 @@ resourcestring
InitDlgDebugCreateANewRecommendedBack = 'Create a new recommended backend';
InitDlgDebugSelectAnExistingBackend = 'Select an existing backend';
InitDlgDebugIgnore = 'Ignore';
InitDlgDebugCurrent = 'Current';
InitDlgDebugNew = 'New';
InitDlgDebugStateMissingPackages = 'There may be packages (LPK) missing '
+'from your IDE installation. You may need to rebuild the IDE and install '
+'them, before making changes to the setup.';