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

added resourcestrings to debugoptions from Darius

Browse Source 
git-svn-id: trunk@8821 -
This commit is contained in:
mattias 2006-02-25 11:37:07 +00:00
parent 066083b1f6
commit 4a72c727b5
8 changed files with 560 additions and 351 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

336
examples/synchronize.pp
View File

@ -3,8 +3,8 @@
synchronize - example synchronize - example
--------------------- ---------------------
Just a simple example to show & verify functionality Just a simple example to show & verify functionality
of the lazarus TThread.Synchronize / TProgressBar classes. of the lazarus TThread.Synchronize / TProgressBar classes.
Initial Revision : Sun Aug 15 1999 Initial Revision : Sun Aug 15 1999
@ -73,45 +73,45 @@ type
procedure Execute; override; procedure Execute; override;
end; end;
TForm1 = class(TForm) TForm1 = class(TForm)
public public
Progre1: TProgressBar; Progre1: TProgressBar;
Progre2: TProgressBar; Progre2: TProgressBar;
Progre3: TProgressBar; Progre3: TProgressBar;
Listbox1: TListBox; Listbox1: TListBox;
Listbox2: TListBox; Listbox2: TListBox;
Thread1: TThread1; Thread1: TThread1;
Thread2: TThread2; Thread2: TThread2;
ThreadList: TList; ThreadList: TList;
Button1: TButton; Button1: TButton;
Button2: TButton; Button2: TButton;
Button3: TButton; Button3: TButton;
Button4: TButton; Button4: TButton;
Button5: TButton; Button5: TButton;
Button6: TButton; Button6: TButton;
Button7: TButton; Button7: TButton;
Button8: TButton; Button8: TButton;
Button9: TButton; Button9: TButton;
Button10: TButton; Button10: TButton;
mnuFile: TMainMenu; mnuFile: TMainMenu;
itmFileQuit: TMenuItem; itmFileQuit: TMenuItem;
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
procedure LoadMainMenu; procedure LoadMainMenu;
procedure mnuQuitClicked(Sender : TObject); procedure mnuQuitClicked(Sender : TObject);
protected protected
procedure Button1CLick(Sender : TObject); procedure Button1CLick(Sender : TObject);
procedure Button2CLick(Sender : TObject); procedure Button2CLick(Sender : TObject);
procedure Button3CLick(Sender : TObject); procedure Button3CLick(Sender : TObject);
procedure Button4CLick(Sender : TObject); procedure Button4CLick(Sender : TObject);
procedure Button5CLick(Sender : TObject); procedure Button5CLick(Sender : TObject);
procedure Button6CLick(Sender : TObject); procedure Button6CLick(Sender : TObject);
procedure Button7CLick(Sender : TObject); procedure Button7CLick(Sender : TObject);
procedure Button8CLick(Sender : TObject); procedure Button8CLick(Sender : TObject);
procedure Button9CLick(Sender : TObject); procedure Button9CLick(Sender : TObject);
procedure Button10CLick(Sender : TObject); procedure Button10CLick(Sender : TObject);
function CloseQuery: boolean; override; function CloseQuery: boolean; override;
end; end;
threadvar threadvar
threadvartest: integer; threadvartest: integer;
@ -241,7 +241,7 @@ begin
end; end;
constructor TForm1.Create(AOwner: TComponent); constructor TForm1.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
Caption := 'Thread Synchronize Demo v0.1'; Caption := 'Thread Synchronize Demo v0.1';
@ -274,7 +274,7 @@ procedure TForm1.Button1Click(Sender : TObject);
Begin Begin
if assigned (progre3) then begin if assigned (progre3) then begin
progre3.Position := 0; progre3.Position := 0;
progre3.Min := progre3.Min - 1 progre3.Min := progre3.Min - 1
end; end;
End; End;
@ -282,15 +282,15 @@ procedure TForm1.Button2Click(Sender : TObject);
Begin Begin
if assigned (progre3) then begin if assigned (progre3) then begin
progre3.Position := 0; progre3.Position := 0;
progre3.Min := progre3.Min + 1; progre3.Min := progre3.Min + 1;
end; end;
End; End;
procedure TForm1.Button3Click(Sender : TObject); procedure TForm1.Button3Click(Sender : TObject);
Begin Begin
if assigned (progre3) then begin if assigned (progre3) then begin
progre3.Position := 0; progre3.Position := 0;
progre3.Max := progre3.Max +1; progre3.Max := progre3.Max +1;
end; end;
End; End;
@ -298,7 +298,7 @@ procedure TForm1.Button4Click(Sender : TObject);
Begin Begin
if assigned (progre3) then begin if assigned (progre3) then begin
progre3.Position := 0; progre3.Position := 0;
progre3.Max := progre3.Max -1; progre3.Max := progre3.Max -1;
end; end;
End; End;
@ -315,8 +315,8 @@ procedure TForm1.Button5Click(Sender : TObject);
Begin Begin
if assigned (progre1) then begin if assigned (progre1) then begin
Progre1.Smooth := not Progre1.Smooth; Progre1.Smooth := not Progre1.Smooth;
if assigned (Button6) if assigned (Button6)
then Button6.Visible := Progre1.Smooth; then Button6.Visible := Progre1.Smooth;
end; end;
End; End;
@ -329,12 +329,12 @@ End;
procedure TForm1.Button7Click(Sender : TObject); procedure TForm1.Button7Click(Sender : TObject);
Begin Begin
if assigned (progre1) then if assigned (progre1) then
begin begin
case Progre1.Orientation of case Progre1.Orientation of
pbVertical : Progre1.Orientation := pbRightToLeft; pbVertical : Progre1.Orientation := pbRightToLeft;
pbRightToLeft : Progre1.Orientation := pbTopDown; pbRightToLeft : Progre1.Orientation := pbTopDown;
pbTopDown : Progre1.Orientation := pbHorizontal; pbTopDown : Progre1.Orientation := pbHorizontal;
pbHorizontal : Progre1.Orientation := pbVertical; pbHorizontal : Progre1.Orientation := pbVertical;
end; end;
end; end;
@ -342,7 +342,7 @@ end;
procedure TForm1.Button8Click(Sender : TObject); procedure TForm1.Button8Click(Sender : TObject);
begin begin
{ Create the threads } { Create the threads }
TotalCount := 1000; TotalCount := 1000;
GlobalData := 100; GlobalData := 100;
threadvartest := 20; threadvartest := 20;
@ -363,48 +363,48 @@ end;
procedure TForm1.LoadMainMenu; procedure TForm1.LoadMainMenu;
begin begin
{ set the height and width } { set the height and width }
Height := 350; Height := 350;
Width := 700; Width := 700;
{ Create a progressbar } { Create a progressbar }
Progre1 := TProgressBar.Create (Self); Progre1 := TProgressBar.Create (Self);
with Progre1 do with Progre1 do
begin begin
Parent := Self; Parent := Self;
SetBounds(300, 10, 250, 20); SetBounds(300, 10, 250, 20);
Min := 0; Min := 0;
Max := 10; Max := 10;
Step := 1; Step := 1;
BarShowText := true; BarShowText := true;
Smooth := True; Smooth := True;
Show; Show;
end; end;
Progre2 := TProgressBar.Create (Self); Progre2 := TProgressBar.Create (Self);
with Progre2 do with Progre2 do
begin begin
Parent := Self; Parent := Self;
SetBounds(300, 35, 250, 20); SetBounds(300, 35, 250, 20);
Min := 0; Min := 0;
Max := 10; Max := 10;
Step := 1; Step := 1;
BarShowText := true; BarShowText := true;
Smooth := True; Smooth := True;
Show; Show;
end; end;
Progre3 := TProgressBar.Create (Self); Progre3 := TProgressBar.Create (Self);
with Progre3 do with Progre3 do
begin begin
Parent := Self; Parent := Self;
SetBounds(300, 60, 250, 20); SetBounds(300, 60, 250, 20);
Min := 0; Min := 0;
Max := 10; Max := 10;
Step := 1; Step := 1;
BarShowText := true; BarShowText := true;
Smooth := True; Smooth := True;
Show; Show;
end; end;
{ create listboxes to show thread results } { create listboxes to show thread results }
@ -423,123 +423,123 @@ begin
end; end;
{ Create a few buttons } { Create a few buttons }
Button2 := TButton.Create(Self); Button2 := TButton.Create(Self);
Button2.Parent := Self; Button2.Parent := Self;
Button2.Left := 200; Button2.Left := 200;
Button2.Top := 70; Button2.Top := 70;
Button2.Width := 80; Button2.Width := 80;
Button2.Height := 30; Button2.Height := 30;
Button2.Show; Button2.Show;
Button2.Caption := 'PMin ++'; Button2.Caption := 'PMin ++';
// Button2.ToolTip := 'Tool Tip'; // Button2.ToolTip := 'Tool Tip';
// Button2.ShowToolTip := True; // Button2.ShowToolTip := True;
Button2.OnClick := @Button2Click; Button2.OnClick := @Button2Click;
Button1 := TButton.Create(Self); Button1 := TButton.Create(Self);
Button1.Parent := Self; Button1.Parent := Self;
Button1.Left := 50; Button1.Left := 50;
Button1.Top := 70; Button1.Top := 70;
Button1.Width := 80; Button1.Width := 80;
Button1.Height := 30; Button1.Height := 30;
Button1.Show; Button1.Show;
Button1.Caption := 'PMin--'; Button1.Caption := 'PMin--';
Button1.OnClick := @Button1Click; Button1.OnClick := @Button1Click;
{ Create 2 more buttons outside the groupbox } { Create 2 more buttons outside the groupbox }
Button3 := TButton.Create(Self); Button3 := TButton.Create(Self);
Button3.Parent := Self; Button3.Parent := Self;
Button3.Left := 50; Button3.Left := 50;
Button3.Top := 30; Button3.Top := 30;
Button3.Width := 80; Button3.Width := 80;
Button3.Height := 30; Button3.Height := 30;
Button3.Show; Button3.Show;
Button3.Caption := 'PMax++'; Button3.Caption := 'PMax++';
// Button3.ToolTip := 'Tool Tip'; // Button3.ToolTip := 'Tool Tip';
// Button3.ShowToolTip := True; // Button3.ShowToolTip := True;
Button3.OnClick := @Button3Click; Button3.OnClick := @Button3Click;
Button4 := TButton.Create(Self); Button4 := TButton.Create(Self);
Button4.Parent := Self; Button4.Parent := Self;
Button4.Left := 200; Button4.Left := 200;
Button4.Top := 30; Button4.Top := 30;
Button4.Width := 80; Button4.Width := 80;
Button4.Height := 30; Button4.Height := 30;
Button4.Show; Button4.Show;
Button4.Caption := 'PMax--'; Button4.Caption := 'PMax--';
Button4.OnClick := @Button4Click; Button4.OnClick := @Button4Click;
Button10 := TButton.Create(Self); Button10 := TButton.Create(Self);
with Button10 do with Button10 do
begin begin
Parent := Self; Parent := Self;
SetBounds(140, 30, 50, 30); SetBounds(140, 30, 50, 30);
Show; Show;
Caption := 'Step It'; Caption := 'Step It';
OnClick := @Button10Click; OnClick := @Button10Click;
end; end;
Button5 := TButton.Create(Self); Button5 := TButton.Create(Self);
Button5.Parent := Self; Button5.Parent := Self;
Button5.Left := 500; Button5.Left := 500;
Button5.Top := 110; Button5.Top := 110;
Button5.Width := 130; Button5.Width := 130;
Button5.Height := 30; Button5.Height := 30;
Button5.Show; Button5.Show;
Button5.Caption := 'Toggle Smooth'; Button5.Caption := 'Toggle Smooth';
Button5.OnClick := @Button5Click; Button5.OnClick := @Button5Click;
Button6 := TButton.Create(Self); Button6 := TButton.Create(Self);
Button6.Parent := Self; Button6.Parent := Self;
Button6.Left := 500; Button6.Left := 500;
Button6.Top := 150; Button6.Top := 150;
Button6.Width := 130; Button6.Width := 130;
Button6.Height := 30; Button6.Height := 30;
Button6.Show; Button6.Show;
Button6.Caption := 'Toggle Text'; Button6.Caption := 'Toggle Text';
Button6.OnClick := @Button6Click; Button6.OnClick := @Button6Click;
Button6.Visible := Progre1.Smooth; Button6.Visible := Progre1.Smooth;
Button7 := TButton.Create(Self); Button7 := TButton.Create(Self);
Button7.Parent := Self; Button7.Parent := Self;
Button7.Left := 500; Button7.Left := 500;
Button7.Top := 190; Button7.Top := 190;
Button7.Width := 130; Button7.Width := 130;
Button7.Height := 30; Button7.Height := 30;
Button7.Show; Button7.Show;
Button7.Caption := 'Orientation'; Button7.Caption := 'Orientation';
Button7.OnClick := @Button7Click; Button7.OnClick := @Button7Click;
Button8 := TButton.Create(Self); Button8 := TButton.Create(Self);
with Button8 do with Button8 do
begin begin
Parent := Self; Parent := Self;
SetBounds(500, 230, 130, 30); SetBounds(500, 230, 130, 30);
Show; Show;
Caption := 'Thread test'; Caption := 'Thread test';
OnClick := @Button8Click; OnClick := @Button8Click;
end; end;
Button9 := TButton.Create(Self); Button9 := TButton.Create(Self);
with Button9 do with Button9 do
begin begin
Parent := Self; Parent := Self;
SetBounds(500, 270, 130, 30); SetBounds(500, 270, 130, 30);
Show; Show;
Caption := 'Clear listboxes'; Caption := 'Clear listboxes';
OnClick := @Button9Click; OnClick := @Button9Click;
end; end;
{ create a menubar } { create a menubar }
mnuFile := TMainMenu.Create(Self); mnuFile := TMainMenu.Create(Self);
mnuFile.Name:='mnuFile'; mnuFile.Name:='mnuFile';
Menu := mnuFile; Menu := mnuFile;
itmFileQuit := TMenuItem.Create(Self); itmFileQuit := TMenuItem.Create(Self);
itmFileQuit.Caption := 'Quit'; itmFileQuit.Caption := 'Quit';
itmFileQuit.OnClick := @mnuQuitClicked; itmFileQuit.OnClick := @mnuQuitClicked;
mnuFile.Items.Add(itmFileQuit); mnuFile.Items.Add(itmFileQuit);
end; end;

163
ide/debugoptionsfrm.lfm
View File

@ -19,22 +19,23 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Around = 6 BorderSpacing.Around = 6
PageIndex = 3 PageIndex = 3
AnchorSideBottom.Control = cmdOK
Left = 6 Left = 6
Height = 394 Height = 400
Top = 6 Top = 6
Width = 479 Width = 479
object pgGeneral: TPage object pgGeneral: TPage
Caption = 'General' Caption = 'Page1'
ClientWidth = 471 ClientWidth = 471
ClientHeight = 368 ClientHeight = 374
Height = 368 Height = 374
Width = 471 Width = 471
object gbDebuggerType: TGroupBox object gbDebuggerType: TGroupBox
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Debugger type and path' Caption = 'Debugger type and path'
ClientHeight = 90 ClientHeight = 72
ClientWidth = 459 ClientWidth = 455
ParentCtl3D = False ParentCtl3D = False
TabOrder = 0 TabOrder = 0
Left = 6 Left = 6
@ -43,6 +44,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
Width = 459 Width = 459
object cmbDebuggerType: TComboBox object cmbDebuggerType: TComboBox
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
MaxLength = 0 MaxLength = 0
OnChange = cmbDebuggerTypeCHANGE OnChange = cmbDebuggerTypeCHANGE
ParentCtl3D = False ParentCtl3D = False
@ -50,17 +52,18 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
Left = 6 Left = 6
Height = 21 Height = 21
Top = 8 Top = 8
Width = 442 Width = 438
end end
object cmbDebuggerPath: TComboBox object cmbDebuggerPath: TComboBox
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
MaxLength = 0 MaxLength = 0
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
Left = 6 Left = 6
Height = 21 Height = 21
Top = 40 Top = 40
Width = 417 Width = 413
end end
object cmdOpenDebuggerPath: TButton object cmdOpenDebuggerPath: TButton
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@ -68,7 +71,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
Caption = '...' Caption = '...'
OnClick = cmdOpenDebuggerPathCLICK OnClick = cmdOpenDebuggerPathCLICK
TabOrder = 2 TabOrder = 2
Left = 425 Left = 421
Height = 25 Height = 25
Top = 37 Top = 37
Width = 23 Width = 23
@ -78,8 +81,8 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Additional search path' Caption = 'Additional search path'
ClientHeight = 56 ClientHeight = 38
ClientWidth = 459 ClientWidth = 455
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
Left = 6 Left = 6
@ -92,7 +95,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
Left = 6 Left = 6
Height = 25 Height = 25
Top = 5 Top = 5
Width = 415 Width = 411
end end
object cmdOpenAdditionalPath: TButton object cmdOpenAdditionalPath: TButton
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
@ -100,7 +103,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
Caption = '...' Caption = '...'
OnClick = cmdOpenAdditionalPathClick OnClick = cmdOpenAdditionalPathClick
TabOrder = 1 TabOrder = 1
Left = 425 Left = 421
Height = 24 Height = 24
Top = 5 Top = 5
Width = 23 Width = 23
@ -110,12 +113,12 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Debugger specific options (depends on type of debugger)' Caption = 'Debugger specific options (depends on type of debugger)'
ClientHeight = 136 ClientHeight = 124
ClientWidth = 459 ClientWidth = 455
ParentCtl3D = False ParentCtl3D = False
TabOrder = 2 TabOrder = 2
Left = 6 Left = 6
Height = 136 Height = 142
Top = 226 Top = 226
Width = 459 Width = 459
object pnlDebugSpecific: TPanel object pnlDebugSpecific: TPanel
@ -123,46 +126,49 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
BorderSpacing.Around = 6 BorderSpacing.Around = 6
BevelOuter = bvNone BevelOuter = bvNone
BorderWidth = 4 BorderWidth = 4
ClientHeight = 106 ClientHeight = 112
ClientWidth = 443 ClientWidth = 443
FullRepaint = False FullRepaint = False
TabOrder = 0 TabOrder = 0
TabStop = True TabStop = True
Left = 6 Left = 6
Height = 106 Height = 112
Top = 6 Top = 6
Width = 443 Width = 443
end end
end end
object gcbDebuggerGeneralOptions: TCheckGroup object gcbDebuggerGeneralOptions: TCheckGroup
Align = alTop Align = alTop
AutoFill = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Debugger general options' Caption = 'Debugger general options'
Items.Strings = ( ChildSizing.LeftRightSpacing = 6
'Show message on stop' ChildSizing.TopBottomSpacing = 6
) ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
TabOrder = 3 TabOrder = 3
Left = 6 Left = 6
Height = 56 Height = 56
Top = 164 Top = 164
Width = 459 Width = 459
Data = {
0100000002
}
end end
end end
object pgEventLog: TPage object pgEventLog: TPage
Caption = 'Event Log' Caption = 'Page2'
ClientWidth = 471 ClientWidth = 471
ClientHeight = 368 ClientHeight = 374
Height = 368 Height = 374
Width = 471 Width = 471
object gbGeneral: TGroupBox object gbGeneral: TGroupBox
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'General' Caption = 'General'
ClientHeight = 132 ClientHeight = 114
ClientWidth = 459 ClientWidth = 455
ParentCtl3D = False ParentCtl3D = False
TabOrder = 0 TabOrder = 0
Left = 6 Left = 6
@ -193,20 +199,20 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
Left = 46 Left = 46
Height = 20 Height = 20
Top = 54 Top = 54
Width = 66 Width = 78
end end
end end
object gbMessages: TGroupBox object gbMessages: TGroupBox
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Messages' Caption = 'Messages'
ClientHeight = 218 ClientHeight = 206
ClientWidth = 459 ClientWidth = 455
Enabled = False Enabled = False
ParentCtl3D = False ParentCtl3D = False
TabOrder = 1 TabOrder = 1
Left = 6 Left = 6
Height = 218 Height = 224
Top = 144 Top = 144
Width = 459 Width = 459
object chkMessagesBreakpoint: TCheckBox object chkMessagesBreakpoint: TCheckBox
@ -275,48 +281,55 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
end end
end end
object pgExceptions: TPage object pgExceptions: TPage
Caption = 'Language Exceptions' Caption = 'Page3'
ClientWidth = 471 ClientWidth = 471
ClientHeight = 368 ClientHeight = 374
Height = 368 Height = 374
Width = 471 Width = 471
object bgIgnoreExceptions: TGroupBox object bgIgnoreExceptions: TGroupBox
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Ignore these exceptions' Caption = 'Ignore these exceptions'
ClientHeight = 337 ClientHeight = 325
ClientWidth = 459 ClientWidth = 455
ParentCtl3D = False ParentCtl3D = False
TabOrder = 0 TabOrder = 0
Left = 6 Left = 6
Height = 337 Height = 343
Top = 6 Top = 6
Width = 459 Width = 459
object cmdExceptionRemove: TButton object cmdExceptionRemove: TButton
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6
BorderSpacing.InnerBorder = 2 BorderSpacing.InnerBorder = 2
Caption = 'Remove' Caption = 'Remove'
Enabled = False Enabled = False
OnClick = cmdExceptionRemoveCLICK OnClick = cmdExceptionRemoveCLICK
TabOrder = 0 TabOrder = 0
AnchorSideRight.Control = bgIgnoreExceptions
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = bgIgnoreExceptions
AnchorSideBottom.Side = asrBottom
Left = 385 Left = 385
Height = 29 Height = 29
Top = 281 Top = 290
Width = 64 Width = 64
end end
object cmdExceptionAdd: TButton object cmdExceptionAdd: TButton
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Right = 6 BorderSpacing.Around = 6
BorderSpacing.InnerBorder = 2 BorderSpacing.InnerBorder = 2
Caption = 'Add' Caption = 'Add'
OnClick = cmdExceptionAddCLICK OnClick = cmdExceptionAddCLICK
TabOrder = 1 TabOrder = 1
AnchorSideRight.Control = cmdExceptionRemove AnchorSideRight.Control = cmdExceptionRemove
AnchorSideBottom.Control = bgIgnoreExceptions
AnchorSideBottom.Side = asrBottom
Left = 336 Left = 336
Height = 29 Height = 29
Top = 281 Top = 290
Width = 43 Width = 43
end end
object clbExceptions: TCheckListBox object clbExceptions: TCheckListBox
@ -325,8 +338,10 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
BorderSpacing.Around = 6 BorderSpacing.Around = 6
OnClick = clbExceptionsCLICK OnClick = clbExceptionsCLICK
TabOrder = 2 TabOrder = 2
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = cmdExceptionAdd
Left = 6 Left = 6
Height = 267 Height = 278
Top = 6 Top = 6
Width = 443 Width = 443
end end
@ -340,51 +355,58 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
TabOrder = 1 TabOrder = 1
Left = 6 Left = 6
Height = 13 Height = 13
Top = 349 Top = 355
Width = 459 Width = 459
end end
end end
object pgSignals: TPage object pgSignals: TPage
Caption = 'OS Exceptions' Caption = 'Page4'
ClientWidth = 471 ClientWidth = 471
ClientHeight = 368 ClientHeight = 374
Height = 368 Height = 374
Width = 471 Width = 471
object gbSignals: TGroupBox object gbSignals: TGroupBox
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Signals' Caption = 'Signals'
ClientHeight = 338 ClientHeight = 344
ClientWidth = 455 ClientWidth = 455
ParentCtl3D = False ParentCtl3D = False
TabOrder = 0 TabOrder = 0
Left = 6 Left = 6
Height = 356 Height = 362
Top = 6 Top = 6
Width = 459 Width = 459
object cmdSignalRemove: TButton object cmdSignalRemove: TButton
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Around = 6
BorderSpacing.InnerBorder = 2 BorderSpacing.InnerBorder = 2
Caption = 'Remove' Caption = 'Remove'
Enabled = False Enabled = False
TabOrder = 0 TabOrder = 0
AnchorSideRight.Control = gbSignals
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = gbSignals
AnchorSideBottom.Side = asrBottom
Left = 385 Left = 385
Height = 29 Height = 29
Top = 302 Top = 309
Width = 64 Width = 64
end end
object cmdSignalAdd: TButton object cmdSignalAdd: TButton
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Right = 6 BorderSpacing.Around = 6
BorderSpacing.InnerBorder = 2 BorderSpacing.InnerBorder = 2
Caption = 'Add' Caption = 'Add'
TabOrder = 1 TabOrder = 1
AnchorSideRight.Control = cmdSignalRemove AnchorSideRight.Control = cmdSignalRemove
AnchorSideBottom.Control = gbSignals
AnchorSideBottom.Side = asrBottom
Left = 336 Left = 336
Height = 29 Height = 29
Top = 302 Top = 309
Width = 43 Width = 43
end end
object lvSignals: TListView object lvSignals: TListView
@ -408,9 +430,11 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
Width = 5 Width = 5
end> end>
PopupMenu = popSignal PopupMenu = popSignal
TabOrder = 2
ViewStyle = vsReport ViewStyle = vsReport
AnchorSideBottom.Control = cmdSignalAdd
Left = 6 Left = 6
Height = 288 Height = 297
Top = 6 Top = 6
Width = 443 Width = 443
end end
@ -418,6 +442,9 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
end end
end end
object cmdOK: TBitBtn object cmdOK: TBitBtn
Anchors = [akRight, akBottom]
AutoSize = True
BorderSpacing.Around = 6
BorderSpacing.InnerBorder = 2 BorderSpacing.InnerBorder = 2
Caption = '&OK' Caption = '&OK'
Constraints.MaxHeight = 29 Constraints.MaxHeight = 29
@ -426,14 +453,19 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
NumGlyphs = 0 NumGlyphs = 0
OnClick = cmdOKCLICK OnClick = cmdOKCLICK
TabOrder = 1 TabOrder = 1
Left = 410 AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 417
Height = 29 Height = 29
Top = 406 Top = 412
Width = 75 Width = 68
end end
object cmdCancel: TBitBtn object cmdCancel: TBitBtn
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
BorderSpacing.Right = 6 AutoSize = True
BorderSpacing.Around = 6
BorderSpacing.InnerBorder = 2 BorderSpacing.InnerBorder = 2
Caption = 'Cancel' Caption = 'Cancel'
Constraints.MaxHeight = 29 Constraints.MaxHeight = 29
@ -442,13 +474,17 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
NumGlyphs = 0 NumGlyphs = 0
TabOrder = 2 TabOrder = 2
AnchorSideRight.Control = cmdOK AnchorSideRight.Control = cmdOK
Left = 329 AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 331
Height = 29 Height = 29
Top = 406 Top = 412
Width = 75 Width = 80
end end
object btnHelp: TBitBtn object btnHelp: TBitBtn
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
AutoSize = True
BorderSpacing.Around = 6
BorderSpacing.InnerBorder = 2 BorderSpacing.InnerBorder = 2
Caption = '&Help' Caption = '&Help'
Constraints.MaxHeight = 29 Constraints.MaxHeight = 29
@ -456,14 +492,17 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
Kind = bkHelp Kind = bkHelp
NumGlyphs = 0 NumGlyphs = 0
TabOrder = 3 TabOrder = 3
AnchorSideLeft.Control = Owner
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 6 Left = 6
Height = 29 Height = 29
Top = 406 Top = 412
Width = 75 Width = 75
end end
object popSignal: TPopupMenu object popSignal: TPopupMenu
left = 408 left = 408
top = 20 top = 96
object mnuHandledByProgram: TMenuItem object mnuHandledByProgram: TMenuItem
AutoCheck = True AutoCheck = True
Caption = 'Handled by Program' Caption = 'Handled by Program'

265
ide/debugoptionsfrm.lrs
View File

@ -9,127 +9,150 @@ LazarusResources.Add('TDebuggerOptionsForm','FORMDATA',[
+'ge'#3#234#1#18'VertScrollBar.Page'#3#190#1#4'Left'#3#154#1#6'Height'#3#191#1 +'ge'#3#234#1#18'VertScrollBar.Page'#3#190#1#4'Left'#3#154#1#6'Height'#3#191#1
+#3'Top'#3#196#0#5'Width'#3#235#1#0#9'TNotebook'#14'nbDebugOptions'#5'Align'#7 +#3'Top'#3#196#0#5'Width'#3#235#1#0#9'TNotebook'#14'nbDebugOptions'#5'Align'#7
+#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'Borde' +#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'Borde'
+'rSpacing.Around'#2#6#9'PageIndex'#2#3#4'Left'#2#6#6'Height'#3#138#1#3'Top'#2 +'rSpacing.Around'#2#6#9'PageIndex'#2#3#24'AnchorSideBottom.Control'#7#5'cmdO'
+#6#5'Width'#3#223#1#0#5'TPage'#9'pgGeneral'#7'Caption'#6#7'General'#11'Clien' +'K'#4'Left'#2#6#6'Height'#3#144#1#3'Top'#2#6#5'Width'#3#223#1#0#5'TPage'#9'p'
+'tWidth'#3#215#1#12'ClientHeight'#3'p'#1#6'Height'#3'p'#1#5'Width'#3#215#1#0 +'gGeneral'#7'Caption'#6#5'Page1'#11'ClientWidth'#3#215#1#12'ClientHeight'#3
+#9'TGroupBox'#14'gbDebuggerType'#5'Align'#7#5'alTop'#20'BorderSpacing.Around' +'v'#1#6'Height'#3'v'#1#5'Width'#3#215#1#0#9'TGroupBox'#14'gbDebuggerType'#5
+#2#6#7'Caption'#6#22'Debugger type and path'#12'ClientHeight'#2'Z'#11'Client' +'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#22'Debugger typ'
+'Width'#3#203#1#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2'Z' +'e and path'#12'ClientHeight'#2'H'#11'ClientWidth'#3#199#1#11'ParentCtl3D'#8
+#3'Top'#2#6#5'Width'#3#203#1#0#9'TComboBox'#15'cmbDebuggerType'#7'Anchors'#11 +#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2'Z'#3'Top'#2#6#5'Width'#3#203#1#0#9
+#5'akTop'#6'akLeft'#7'akRight'#0#9'MaxLength'#2#0#8'OnChange'#7#21'cmbDebugg' +'TComboBox'#15'cmbDebuggerType'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+'erTypeCHANGE'#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#21#3 +#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'
+'Top'#2#8#5'Width'#3#186#1#0#0#9'TComboBox'#15'cmbDebuggerPath'#7'Anchors'#11 +#0#9'MaxLength'#2#0#8'OnChange'#7#21'cmbDebuggerTypeCHANGE'#11'ParentCtl3D'#8
+#5'akTop'#6'akLeft'#7'akRight'#0#9'MaxLength'#2#0#11'ParentCtl3D'#8#8'TabOrd' +#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#21#3'Top'#2#8#5'Width'#3#182#1#0#0#9
+'er'#2#1#4'Left'#2#6#6'Height'#2#21#3'Top'#2'('#5'Width'#3#161#1#0#0#7'TButt' +'TComboBox'#15'cmbDebuggerPath'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
+'on'#19'cmdOpenDebuggerPath'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSp' +#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'
+'acing.InnerBorder'#2#2#7'Caption'#6#3'...'#7'OnClick'#7#24'cmdOpenDebuggerP' +#0#9'MaxLength'#2#0#11'ParentCtl3D'#8#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2
+'athCLICK'#8'TabOrder'#2#2#4'Left'#3#169#1#6'Height'#2#25#3'Top'#2'%'#5'Widt' +#21#3'Top'#2'('#5'Width'#3#157#1#0#0#7'TButton'#19'cmdOpenDebuggerPath'#7'An'
+'h'#2#23#0#0#0#9'TGroupBox'#22'gbAdditionalSearchPath'#5'Align'#7#5'alTop'#20 +'chors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#2#7'Caption'
+'BorderSpacing.Around'#2#6#7'Caption'#6#22'Additional search path'#12'Client' +#6#3'...'#7'OnClick'#7#24'cmdOpenDebuggerPathCLICK'#8'TabOrder'#2#2#4'Left'#3
+'Height'#2'8'#11'ClientWidth'#3#203#1#11'ParentCtl3D'#8#8'TabOrder'#2#1#4'Le' +#165#1#6'Height'#2#25#3'Top'#2'%'#5'Width'#2#23#0#0#0#9'TGroupBox'#22'gbAddi'
+'ft'#2#6#6'Height'#2'8'#3'Top'#2'f'#5'Width'#3#203#1#0#5'TEdit'#17'txtAdditi' +'tionalSearchPath'#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Captio'
+'onalPath'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#0#4'L' +'n'#6#22'Additional search path'#12'ClientHeight'#2'&'#11'ClientWidth'#3#199
+'eft'#2#6#6'Height'#2#25#3'Top'#2#5#5'Width'#3#159#1#0#0#7'TButton'#21'cmdOp' +#1#11'ParentCtl3D'#8#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2'8'#3'Top'#2'f'#5
+'enAdditionalPath'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.Inne' +'Width'#3#203#1#0#5'TEdit'#17'txtAdditionalPath'#7'Anchors'#11#5'akTop'#6'ak'
+'rBorder'#2#2#7'Caption'#6#3'...'#7'OnClick'#7#26'cmdOpenAdditionalPathClick' +'Left'#7'akRight'#0#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#25#3'Top'#2#5#5
+#8'TabOrder'#2#1#4'Left'#3#169#1#6'Height'#2#24#3'Top'#2#5#5'Width'#2#23#0#0 +'Width'#3#155#1#0#0#7'TButton'#21'cmdOpenAdditionalPath'#7'Anchors'#11#5'akT'
+#0#9'TGroupBox'#18'gbDebuggerSpecific'#5'Align'#7#8'alClient'#20'BorderSpaci' +'op'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#3'...'#7'On'
+'ng.Around'#2#6#7'Caption'#6'7Debugger specific options (depends on type of ' +'Click'#7#26'cmdOpenAdditionalPathClick'#8'TabOrder'#2#1#4'Left'#3#165#1#6'H'
+'debugger)'#12'ClientHeight'#3#136#0#11'ClientWidth'#3#203#1#11'ParentCtl3D' +'eight'#2#24#3'Top'#2#5#5'Width'#2#23#0#0#0#9'TGroupBox'#18'gbDebuggerSpecif'
+#8#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#3#136#0#3'Top'#3#226#0#5'Width'#3 +'ic'#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6#7'Caption'#6'7Debug'
+#203#1#0#6'TPanel'#16'pnlDebugSpecific'#5'Align'#7#8'alClient'#20'BorderSpac' +'ger specific options (depends on type of debugger)'#12'ClientHeight'#2'|'#11
+'ing.Around'#2#6#10'BevelOuter'#7#6'bvNone'#11'BorderWidth'#2#4#12'ClientHei' +'ClientWidth'#3#199#1#11'ParentCtl3D'#8#8'TabOrder'#2#2#4'Left'#2#6#6'Height'
+'ght'#2'j'#11'ClientWidth'#3#187#1#11'FullRepaint'#8#8'TabOrder'#2#0#7'TabSt' +#3#142#0#3'Top'#3#226#0#5'Width'#3#203#1#0#6'TPanel'#16'pnlDebugSpecific'#5
+'op'#9#4'Left'#2#6#6'Height'#2'j'#3'Top'#2#6#5'Width'#3#187#1#0#0#0#11'TChec' +'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6#10'BevelOuter'#7#6'bvNone'
+'kGroup'#25'gcbDebuggerGeneralOptions'#5'Align'#7#5'alTop'#20'BorderSpacing.' +#11'BorderWidth'#2#4#12'ClientHeight'#2'p'#11'ClientWidth'#3#187#1#11'FullRe'
+'Around'#2#6#7'Caption'#6#24'Debugger general options'#13'Items.Strings'#1#6 +'paint'#8#8'TabOrder'#2#0#7'TabStop'#9#4'Left'#2#6#6'Height'#2'p'#3'Top'#2#6
+#20'Show message on stop'#0#8'TabOrder'#2#3#4'Left'#2#6#6'Height'#2'8'#3'Top' +#5'Width'#3#187#1#0#0#0#11'TCheckGroup'#25'gcbDebuggerGeneralOptions'#5'Alig'
+#3#164#0#5'Width'#3#203#1#4'Data'#10#5#0#0#0#1#0#0#0#2#0#0#0#5'TPage'#10'pgE' +'n'#7#5'alTop'#8'AutoFill'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#24'De'
+'ventLog'#7'Caption'#6#9'Event Log'#11'ClientWidth'#3#215#1#12'ClientHeight' +'bugger general options'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing'
+#3'p'#1#6'Height'#3'p'#1#5'Width'#3#215#1#0#9'TGroupBox'#9'gbGeneral'#5'Alig' +'.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenous'
+'n'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#7'General'#12'Clien' +'ChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'
+'tHeight'#3#132#0#11'ClientWidth'#3#203#1#11'ParentCtl3D'#8#8'TabOrder'#2#0#4 +#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.Shrink'
+'Left'#2#6#6'Height'#3#132#0#3'Top'#2#6#5'Width'#3#203#1#0#9'TCheckBox'#16'c' +'Vertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightTh'
+'hkClearLogOnRun'#11'AllowGrayed'#9#7'Caption'#6#16'Clear log on run'#8'TabO' +'enTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#8'TabOrder'#2#3#4'Left'#2
+'rder'#2#0#4'Left'#2#4#6'Height'#2#13#3'Top'#2#5#5'Width'#2'^'#0#0#9'TCheckB' +#6#6'Height'#2'8'#3'Top'#3#164#0#5'Width'#3#203#1#0#0#0#5'TPage'#10'pgEventL'
+'ox'#17'chkLimitLinecount'#11'AllowGrayed'#9#7'Caption'#6#18'Limit linecount' +'og'#7'Caption'#6#5'Page2'#11'ClientWidth'#3#215#1#12'ClientHeight'#3'v'#1#6
+' to'#8'TabOrder'#2#1#4'Left'#2#4#6'Height'#2#13#3'Top'#2#29#5'Width'#2'c'#0 +'Height'#3'v'#1#5'Width'#3#215#1#0#9'TGroupBox'#9'gbGeneral'#5'Align'#7#5'al'
+#0#9'TSpinEdit'#16'seLimitLinecount'#7'Enabled'#8#8'TabOrder'#2#2#4'Left'#2 +'Top'#20'BorderSpacing.Around'#2#6#7'Caption'#6#7'General'#12'ClientHeight'#2
+'.'#6'Height'#2#20#3'Top'#2'6'#5'Width'#2'B'#0#0#0#9'TGroupBox'#10'gbMessage' +'r'#11'ClientWidth'#3#199#1#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Left'#2#6#6
+'s'#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6#7'Caption'#6#8'Messa' +'Height'#3#132#0#3'Top'#2#6#5'Width'#3#203#1#0#9'TCheckBox'#16'chkClearLogOn'
+'ges'#12'ClientHeight'#3#218#0#11'ClientWidth'#3#203#1#7'Enabled'#8#11'Paren' +'Run'#11'AllowGrayed'#9#7'Caption'#6#16'Clear log on run'#8'TabOrder'#2#0#4
+'tCtl3D'#8#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#3#218#0#3'Top'#3#144#0#5'Wi' +'Left'#2#4#6'Height'#2#13#3'Top'#2#5#5'Width'#2'^'#0#0#9'TCheckBox'#17'chkLi'
+'dth'#3#203#1#0#9'TCheckBox'#21'chkMessagesBreakpoint'#11'AllowGrayed'#9#7'C' +'mitLinecount'#11'AllowGrayed'#9#7'Caption'#6#18'Limit linecount to'#8'TabOr'
+'aption'#6#10'Breakpoint'#8'TabOrder'#2#0#4'Left'#2#4#6'Height'#2#13#3'Top'#2 +'der'#2#1#4'Left'#2#4#6'Height'#2#13#3'Top'#2#29#5'Width'#2'c'#0#0#9'TSpinEd'
+#5#5'Width'#2'G'#0#0#9'TCheckBox'#18'chkMessagesProcess'#11'AllowGrayed'#9#7 +'it'#16'seLimitLinecount'#7'Enabled'#8#8'TabOrder'#2#2#4'Left'#2'.'#6'Height'
+'Caption'#6#7'Process'#8'TabOrder'#2#1#4'Left'#2#4#6'Height'#2#13#3'Top'#2#29 +#2#20#3'Top'#2'6'#5'Width'#2'N'#0#0#0#9'TGroupBox'#10'gbMessages'#5'Align'#7
+#5'Width'#2':'#0#0#9'TCheckBox'#17'chkMessagesThread'#11'AllowGrayed'#9#7'Ca' +#8'alClient'#20'BorderSpacing.Around'#2#6#7'Caption'#6#8'Messages'#12'Client'
+'ption'#6#6'Thread'#8'TabOrder'#2#2#4'Left'#2#4#6'Height'#2#13#3'Top'#2'5'#5 +'Height'#3#206#0#11'ClientWidth'#3#199#1#7'Enabled'#8#11'ParentCtl3D'#8#8'Ta'
,'Width'#2'6'#0#0#9'TCheckBox'#17'chkMessagesModule'#11'AllowGrayed'#9#7'Capt' ,'bOrder'#2#1#4'Left'#2#6#6'Height'#3#224#0#3'Top'#3#144#0#5'Width'#3#203#1#0
+'ion'#6#6'Module'#8'TabOrder'#2#3#4'Left'#2#4#6'Height'#2#13#3'Top'#2'M'#5'W' +#9'TCheckBox'#21'chkMessagesBreakpoint'#11'AllowGrayed'#9#7'Caption'#6#10'Br'
+'idth'#2'7'#0#0#9'TCheckBox'#17'chkMessagesOutput'#11'AllowGrayed'#9#7'Capti' +'eakpoint'#8'TabOrder'#2#0#4'Left'#2#4#6'Height'#2#13#3'Top'#2#5#5'Width'#2
+'on'#6#6'Output'#8'TabOrder'#2#4#4'Left'#2#4#6'Height'#2#13#3'Top'#2'e'#5'Wi' +'G'#0#0#9'TCheckBox'#18'chkMessagesProcess'#11'AllowGrayed'#9#7'Caption'#6#7
+'dth'#2'4'#0#0#9'TCheckBox'#17'chkMessagesWindow'#11'AllowGrayed'#9#7'Captio' +'Process'#8'TabOrder'#2#1#4'Left'#2#4#6'Height'#2#13#3'Top'#2#29#5'Width'#2
+'n'#6#6'Window'#8'TabOrder'#2#5#4'Left'#2#4#6'Height'#2#13#3'Top'#2'}'#5'Wid' +':'#0#0#9'TCheckBox'#17'chkMessagesThread'#11'AllowGrayed'#9#7'Caption'#6#6
+'th'#2';'#0#0#9'TCheckBox'#20'chkMessagesInterface'#11'AllowGrayed'#9#7'Capt' +'Thread'#8'TabOrder'#2#2#4'Left'#2#4#6'Height'#2#13#3'Top'#2'5'#5'Width'#2'6'
+'ion'#6#9'Interface'#8'TabOrder'#2#6#4'Left'#2#4#6'Height'#2#13#3'Top'#3#149 +#0#0#9'TCheckBox'#17'chkMessagesModule'#11'AllowGrayed'#9#7'Caption'#6#6'Mod'
+#0#5'Width'#2'>'#0#0#0#0#5'TPage'#12'pgExceptions'#7'Caption'#6#19'Language ' +'ule'#8'TabOrder'#2#3#4'Left'#2#4#6'Height'#2#13#3'Top'#2'M'#5'Width'#2'7'#0
+'Exceptions'#11'ClientWidth'#3#215#1#12'ClientHeight'#3'p'#1#6'Height'#3'p'#1 +#0#9'TCheckBox'#17'chkMessagesOutput'#11'AllowGrayed'#9#7'Caption'#6#6'Outpu'
+#5'Width'#3#215#1#0#9'TGroupBox'#18'bgIgnoreExceptions'#5'Align'#7#8'alClien' +'t'#8'TabOrder'#2#4#4'Left'#2#4#6'Height'#2#13#3'Top'#2'e'#5'Width'#2'4'#0#0
+'t'#20'BorderSpacing.Around'#2#6#7'Caption'#6#23'Ignore these exceptions'#12 +#9'TCheckBox'#17'chkMessagesWindow'#11'AllowGrayed'#9#7'Caption'#6#6'Window'
+'ClientHeight'#3'Q'#1#11'ClientWidth'#3#203#1#11'ParentCtl3D'#8#8'TabOrder'#2 +#8'TabOrder'#2#5#4'Left'#2#4#6'Height'#2#13#3'Top'#2'}'#5'Width'#2';'#0#0#9
+#0#4'Left'#2#6#6'Height'#3'Q'#1#3'Top'#2#6#5'Width'#3#203#1#0#7'TButton'#18 +'TCheckBox'#20'chkMessagesInterface'#11'AllowGrayed'#9#7'Caption'#6#9'Interf'
+'cmdExceptionRemove'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#25 +'ace'#8'TabOrder'#2#6#4'Left'#2#4#6'Height'#2#13#3'Top'#3#149#0#5'Width'#2'>'
+'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#6'Remove'#7'Enabled'#8#7'OnClic' +#0#0#0#0#5'TPage'#12'pgExceptions'#7'Caption'#6#5'Page3'#11'ClientWidth'#3
+'k'#7#23'cmdExceptionRemoveCLICK'#8'TabOrder'#2#0#4'Left'#3#129#1#6'Height'#2 +#215#1#12'ClientHeight'#3'v'#1#6'Height'#3'v'#1#5'Width'#3#215#1#0#9'TGroupB'
+#29#3'Top'#3#25#1#5'Width'#2'@'#0#0#7'TButton'#15'cmdExceptionAdd'#7'Anchors' +'ox'#18'bgIgnoreExceptions'#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2
+#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#19'BorderSpacing.Right'#2#6#25'Bo' +#6#7'Caption'#6#23'Ignore these exceptions'#12'ClientHeight'#3'E'#1#11'Clien'
+'rderSpacing.InnerBorder'#2#2#7'Caption'#6#3'Add'#7'OnClick'#7#20'cmdExcepti' +'tWidth'#3#199#1#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#3'W'
+'onAddCLICK'#8'TabOrder'#2#1#23'AnchorSideRight.Control'#7#18'cmdExceptionRe' +#1#3'Top'#2#6#5'Width'#3#203#1#0#7'TButton'#18'cmdExceptionRemove'#7'Anchors'
+'move'#4'Left'#3'P'#1#6'Height'#2#29#3'Top'#3#25#1#5'Width'#2'+'#0#0#13'TChe' +#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#25'B'
+'ckListBox'#13'clbExceptions'#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'a' +'orderSpacing.InnerBorder'#2#2#7'Caption'#6#6'Remove'#7'Enabled'#8#7'OnClick'
+'kLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'OnClick'#7#18 +#7#23'cmdExceptionRemoveCLICK'#8'TabOrder'#2#0#23'AnchorSideRight.Control'#7
+'clbExceptionsCLICK'#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#3#11#1#3'Top'#2#6 +#18'bgIgnoreExceptions'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSid'
+#5'Width'#3#187#1#0#0#0#9'TCheckBox'#19'chkBreakOnException'#5'Align'#7#8'al' +'eBottom.Control'#7#18'bgIgnoreExceptions'#21'AnchorSideBottom.Side'#7#9'asr'
+'Bottom'#11'AllowGrayed'#9#7'Anchors'#11#6'akLeft'#8'akBottom'#0#20'BorderSp' +'Bottom'#4'Left'#3#129#1#6'Height'#2#29#3'Top'#3'"'#1#5'Width'#2'@'#0#0#7'TB'
+'acing.Around'#2#6#7'Caption'#6#27'Break on Lazarus Exceptions'#8'TabOrder'#2 +'utton'#15'cmdExceptionAdd'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSiz'
+#1#4'Left'#2#6#6'Height'#2#13#3'Top'#3']'#1#5'Width'#3#203#1#0#0#0#5'TPage'#9 +'e'#9#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#2#7'Capti'
+'pgSignals'#7'Caption'#6#13'OS Exceptions'#11'ClientWidth'#3#215#1#12'Client' +'on'#6#3'Add'#7'OnClick'#7#20'cmdExceptionAddCLICK'#8'TabOrder'#2#1#23'Ancho'
+'Height'#3'p'#1#6'Height'#3'p'#1#5'Width'#3#215#1#0#9'TGroupBox'#9'gbSignals' +'rSideRight.Control'#7#18'cmdExceptionRemove'#24'AnchorSideBottom.Control'#7
+#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6#7'Caption'#6#7'Signals' +#18'bgIgnoreExceptions'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3'P'
+#12'ClientHeight'#3'R'#1#11'ClientWidth'#3#199#1#11'ParentCtl3D'#8#8'TabOrde' +#1#6'Height'#2#29#3'Top'#3'"'#1#5'Width'#2'+'#0#0#13'TCheckListBox'#13'clbEx'
+'r'#2#0#4'Left'#2#6#6'Height'#3'd'#1#3'Top'#2#6#5'Width'#3#203#1#0#7'TButton' +'ceptions'#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8
+#15'cmdSignalRemove'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#25 +'akBottom'#0#20'BorderSpacing.Around'#2#6#7'OnClick'#7#18'clbExceptionsCLICK'
+'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#6'Remove'#7'Enabled'#8#8'TabOrd' +#8'TabOrder'#2#2#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom'
+'er'#2#0#4'Left'#3#129#1#6'Height'#2#29#3'Top'#3'.'#1#5'Width'#2'@'#0#0#7'TB' +'.Control'#7#15'cmdExceptionAdd'#4'Left'#2#6#6'Height'#3#22#1#3'Top'#2#6#5'W'
+'utton'#12'cmdSignalAdd'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9 +'idth'#3#187#1#0#0#0#9'TCheckBox'#19'chkBreakOnException'#5'Align'#7#8'alBot'
+#19'BorderSpacing.Right'#2#6#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#3 +'tom'#11'AllowGrayed'#9#7'Anchors'#11#6'akLeft'#8'akBottom'#0#20'BorderSpaci'
+'Add'#8'TabOrder'#2#1#23'AnchorSideRight.Control'#7#15'cmdSignalRemove'#4'Le' +'ng.Around'#2#6#7'Caption'#6#27'Break on Lazarus Exceptions'#8'TabOrder'#2#1
+'ft'#3'P'#1#6'Height'#2#29#3'Top'#3'.'#1#5'Width'#2'+'#0#0#9'TListView'#9'lv' +#4'Left'#2#6#6'Height'#2#13#3'Top'#3'c'#1#5'Width'#3#203#1#0#0#0#5'TPage'#9
+'Signals'#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8 +'pgSignals'#7'Caption'#6#5'Page4'#11'ClientWidth'#3#215#1#12'ClientHeight'#3
+'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Columns'#14#1#7'Caption'#6#4'Nam' +'v'#1#6'Height'#3'v'#1#5'Width'#3#215#1#0#9'TGroupBox'#9'gbSignals'#5'Align'
+'e'#5'Width'#3#200#0#0#1#7'Caption'#6#2'ID'#0#1#7'Caption'#6#10'Handled by'#5 +#7#8'alClient'#20'BorderSpacing.Around'#2#6#7'Caption'#6#7'Signals'#12'Clien'
+'Width'#2'K'#0#1#7'Caption'#6#6'Resume'#5'Width'#2#5#0#0#9'PopupMenu'#7#9'po' +'tHeight'#3'X'#1#11'ClientWidth'#3#199#1#11'ParentCtl3D'#8#8'TabOrder'#2#0#4
+'pSignal'#9'ViewStyle'#7#8'vsReport'#4'Left'#2#6#6'Height'#3' '#1#3'Top'#2#6 +'Left'#2#6#6'Height'#3'j'#1#3'Top'#2#6#5'Width'#3#203#1#0#7'TButton'#15'cmdS'
+#5'Width'#3#187#1#0#0#0#0#0#7'TBitBtn'#5'cmdOK'#25'BorderSpacing.InnerBorder' +'ignalRemove'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'Border'
+#2#2#7'Caption'#6#3'&OK'#21'Constraints.MaxHeight'#2#29#4'Kind'#7#4'bkOK'#11 +'Spacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#6'Remove'
+'ModalResult'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#10'cmdOKCLICK'#8'TabOrder'#2 +#7'Enabled'#8#8'TabOrder'#2#0#23'AnchorSideRight.Control'#7#9'gbSignals'#20
+#1#4'Left'#3#154#1#6'Height'#2#29#3'Top'#3#150#1#5'Width'#2'K'#0#0#7'TBitBtn' +'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#9'gbSig'
+#9'cmdCancel'#7'Anchors'#11#7'akRight'#8'akBottom'#0#19'BorderSpacing.Right' +'nals'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#129#1#6'Height'#2
+#29#3'Top'#3'5'#1#5'Width'#2'@'#0#0#7'TButton'#12'cmdSignalAdd'#7'Anchors'#11
+#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#25'Bord'
+'erSpacing.InnerBorder'#2#2#7'Caption'#6#3'Add'#8'TabOrder'#2#1#23'AnchorSid'
+'eRight.Control'#7#15'cmdSignalRemove'#24'AnchorSideBottom.Control'#7#9'gbSi'
+'gnals'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3'P'#1#6'Height'#2
+#29#3'Top'#3'5'#1#5'Width'#2'+'#0#0#9'TListView'#9'lvSignals'#5'Align'#7#5'a'
+'lTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSp'
+'acing.Around'#2#6#7'Columns'#14#1#7'Caption'#6#4'Name'#5'Width'#3#200#0#0#1
+#7'Caption'#6#2'ID'#0#1#7'Caption'#6#10'Handled by'#5'Width'#2'K'#0#1#7'Capt'
+'ion'#6#6'Resume'#5'Width'#2#5#0#0#9'PopupMenu'#7#9'popSignal'#8'TabOrder'#2
+#2#9'ViewStyle'#7#8'vsReport'#24'AnchorSideBottom.Control'#7#12'cmdSignalAdd'
+#4'Left'#2#6#6'Height'#3')'#1#3'Top'#2#6#5'Width'#3#187#1#0#0#0#0#0#7'TBitBt'
+'n'#5'cmdOK'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderS'
,'pacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#3'&OK'#21
+'Constraints.MaxHeight'#2#29#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyp'
+'hs'#2#0#7'OnClick'#7#10'cmdOKCLICK'#8'TabOrder'#2#1#23'AnchorSideRight.Cont'
+'rol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom'
+'.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3#161
+#1#6'Height'#2#29#3'Top'#3#156#1#5'Width'#2'D'#0#0#7'TBitBtn'#9'cmdCancel'#7
+'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'
+#2#6#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#6'Cancel'#21'Constraints' +#2#6#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#6'Cancel'#21'Constraints'
+'.MaxHeight'#2#29#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0 +'.MaxHeight'#2#29#4'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#9'NumGlyphs'#2#0
+#8'TabOrder'#2#2#23'AnchorSideRight.Control'#7#5'cmdOK'#4'Left'#3'I'#1#6'Hei' +#8'TabOrder'#2#2#23'AnchorSideRight.Control'#7#5'cmdOK'#24'AnchorSideBottom.'
+'ght'#2#29#3'Top'#3#150#1#5'Width'#2'K'#0#0#7'TBitBtn'#7'btnHelp'#7'Anchors' +'Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3'K'#1
+#11#6'akLeft'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#5 +#6'Height'#2#29#3'Top'#3#156#1#5'Width'#2'P'#0#0#7'TBitBtn'#7'btnHelp'#7'Anc'
+'&Help'#21'Constraints.MaxHeight'#2#29#7'Enabled'#8#4'Kind'#7#6'bkHelp'#9'Nu' +'hors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6
+'mGlyphs'#2#0#8'TabOrder'#2#3#4'Left'#2#6#6'Height'#2#29#3'Top'#3#150#1#5'Wi' +#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#5'&Help'#21'Constraints.MaxH'
+'dth'#2'K'#0#0#10'TPopupMenu'#9'popSignal'#4'left'#3#152#1#3'top'#2#20#0#9'T' +'eight'#2#29#7'Enabled'#8#4'Kind'#7#6'bkHelp'#9'NumGlyphs'#2#0#8'TabOrder'#2
+'MenuItem'#19'mnuHandledByProgram'#9'AutoCheck'#9#7'Caption'#6#18'Handled by' +#3#22'AnchorSideLeft.Control'#7#5'Owner'#24'AnchorSideBottom.Control'#7#5'Ow'
+' Program'#10'GroupIndex'#2#1#9'RadioItem'#9#0#0#9'TMenuItem'#21'mnuiHandled' +'ner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#29#3
+'ByDebugger'#9'AutoCheck'#9#7'Caption'#6#19'Handled by Debugger'#10'GroupInd' +'Top'#3#156#1#5'Width'#2'K'#0#0#10'TPopupMenu'#9'popSignal'#4'left'#3#152#1#3
+'ex'#2#1#9'RadioItem'#9#0#0#9'TMenuItem'#2'N1'#7'Caption'#6#1'-'#0#0#9'TMenu' +'top'#2'`'#0#9'TMenuItem'#19'mnuHandledByProgram'#9'AutoCheck'#9#7'Caption'#6
+'Item'#16'mnuResumeHandled'#9'AutoCheck'#9#7'Caption'#6#14'Resume Handled'#10 +#18'Handled by Program'#10'GroupIndex'#2#1#9'RadioItem'#9#0#0#9'TMenuItem'#21
,'GroupIndex'#2#2#9'RadioItem'#9#0#0#9'TMenuItem'#18'mnuResumeUnhandled'#9'Au' +'mnuiHandledByDebugger'#9'AutoCheck'#9#7'Caption'#6#19'Handled by Debugger'
+'toCheck'#9#7'Caption'#6#16'Resume Unhandled'#10'GroupIndex'#2#2#9'RadioItem' +#10'GroupIndex'#2#1#9'RadioItem'#9#0#0#9'TMenuItem'#2'N1'#7'Caption'#6#1'-'#0
+#9#0#0#0#0 +#0#9'TMenuItem'#16'mnuResumeHandled'#9'AutoCheck'#9#7'Caption'#6#14'Resume H'
+'andled'#10'GroupIndex'#2#2#9'RadioItem'#9#0#0#9'TMenuItem'#18'mnuResumeUnha'
+'ndled'#9'AutoCheck'#9#7'Caption'#6#16'Resume Unhandled'#10'GroupIndex'#2#2#9
+'RadioItem'#9#0#0#0#0
]); ]);

41
ide/debugoptionsfrm.pas
View File

@ -368,6 +368,47 @@ procedure TDebuggerOptionsForm.DebuggerOptionsFormCREATE(Sender: TObject);
var var
n: Integer; n: Integer;
begin begin
//translations
pgGeneral.Caption := lisMenuInsertGeneral;
gbDebuggerType.Caption := dlgDebugType;
gbAdditionalSearchPath.Caption := lisDebugOptionsFrmAdditionalSearchPath;
gcbDebuggerGeneralOptions.Caption := lisDebugOptionsFrmDebuggerGeneralOptions;
gcbDebuggerGeneralOptions.Items.Add(lisDebugOptionsFrmShowMessageOnStop);
gbDebuggerSpecific.Caption := lisDebugOptionsFrmDebuggerSpecific;
pgEventLog.Caption := lisDebugOptionsFrmEventLog;
gbGeneral.Caption := lisMenuInsertGeneral;
chkClearLogOnRun.Caption := lisDebugOptionsFrmClearLogOnRun;
chkLimitLinecount.Caption := lisDebugOptionsFrmLimitLinecountTo;
gbMessages.Caption := lisMenuViewMessages;
chkMessagesBreakpoint.Caption := lisDebugOptionsFrmBreakpoint;
chkMessagesProcess.Caption := lisDebugOptionsFrmProcess;
chkMessagesThread.Caption := lisDebugOptionsFrmThread;
chkMessagesModule.Caption := lisDebugOptionsFrmModule;
chkMessagesOutput.Caption := lisDebugOptionsFrmOutput;
chkMessagesWindow.Caption := lisDebugOptionsFrmWindow;
chkMessagesInterface.Caption := lisDebugOptionsFrmInterface;
pgExceptions.Caption := lisDebugOptionsFrmLanguageExceptions;
bgIgnoreExceptions.Caption := lisDebugOptionsFrmIgnoreTheseExceptions;
cmdExceptionRemove.Caption := lisExtToolRemove;
cmdExceptionAdd.Caption := lisCodeTemplAdd;
chkBreakOnException.Caption := lisDebugOptionsFrmBreakOnLazarusExceptions;
pgSignals.Caption := lisDebugOptionsFrmOSExceptions;
gbSignals.Caption := lisDebugOptionsFrmSignals;
lvSignals.Column[0].Caption := lisDebugOptionsFrmName;
lvSignals.Column[1].Caption := lisDebugOptionsFrmID;
lvSignals.Column[2].Caption := lisDebugOptionsFrmHandledBy;
lvSignals.Column[3].Caption := lisDebugOptionsFrmResume;
cmdSignalAdd.Caption := lisCodeTemplAdd;
cmdSignalRemove.Caption := lisExtToolRemove;
mnuHandledByProgram.Caption := lisDebugOptionsFrmHandledByProgram;
mnuiHandledByDebugger.Caption := lisDebugOptionsFrmHandledByDebugger;
mnuResumeHandled.Caption := lisDebugOptionsFrmResumeHandled;
mnuResumeUnhandled.Caption := lisDebugOptionsFrmResumeUnhandled;
FCurDebuggerClass := nil; FCurDebuggerClass := nil;
FExceptionDeleteList := TStringList.Create; FExceptionDeleteList := TStringList.Create;

28
ide/lazarusidestrconsts.pas
View File

@ -2984,6 +2984,34 @@ resourcestring
lisUnableToSetAnchorSideControl = 'Unable to set AnchorSide Control'; lisUnableToSetAnchorSideControl = 'Unable to set AnchorSide Control';
lisAnchorEditorNoControlSelected = 'Anchor Editor - no control selected'; lisAnchorEditorNoControlSelected = 'Anchor Editor - no control selected';
lisAnchorsOfSelectedControls = 'Anchors of selected controls'; lisAnchorsOfSelectedControls = 'Anchors of selected controls';
lisDebugOptionsFrmAdditionalSearchPath = 'Additional search path';
lisDebugOptionsFrmDebuggerGeneralOptions = 'Debugger general options';
lisDebugOptionsFrmShowMessageOnStop = 'Show message on stop';
lisDebugOptionsFrmDebuggerSpecific = 'Debugger specific options (depends on '
+'type of debugger)';
lisDebugOptionsFrmEventLog = 'Event Log';
lisDebugOptionsFrmClearLogOnRun = 'Clear log on run';
lisDebugOptionsFrmLimitLinecountTo = 'Limit linecount to';
lisDebugOptionsFrmBreakpoint = 'Breakpoint';
lisDebugOptionsFrmProcess = 'Process';
lisDebugOptionsFrmThread = 'Thread';
lisDebugOptionsFrmModule = 'Module';
lisDebugOptionsFrmOutput = 'Output';
lisDebugOptionsFrmWindow = 'Window';
lisDebugOptionsFrmInterface = 'Interface';
lisDebugOptionsFrmLanguageExceptions = 'Language Exceptions';
lisDebugOptionsFrmIgnoreTheseExceptions = 'Ignore these exceptions';
lisDebugOptionsFrmBreakOnLazarusExceptions = 'Break on Lazarus Exceptions';
lisDebugOptionsFrmOSExceptions = 'OS Exceptions';
lisDebugOptionsFrmSignals = 'Signals';
lisDebugOptionsFrmName = 'Name';
lisDebugOptionsFrmID = 'ID';
lisDebugOptionsFrmHandledBy = 'Handled by';
lisDebugOptionsFrmResume = 'Resume';
lisDebugOptionsFrmHandledByProgram = 'Handled by Program';
lisDebugOptionsFrmHandledByDebugger = 'Handled by Debugger';
lisDebugOptionsFrmResumeHandled = 'Resume Handled';
lisDebugOptionsFrmResumeUnhandled = 'Resume Unhandled';
implementation implementation
end. end.

4
lcl/interfaces/gtk/gtkint.pp
View File

@ -92,6 +92,9 @@ uses
type type
{ TGTKWidgetSet }
TGTKWidgetSet = class(TWidgetSet) TGTKWidgetSet = class(TWidgetSet)
protected protected
FKeyStateList_: TFPList; // Keeps track of which keys are pressed FKeyStateList_: TFPList; // Keeps track of which keys are pressed
@ -293,6 +296,7 @@ type
procedure AppTerminate; override; procedure AppTerminate; override;
procedure AppMinimize; override; procedure AppMinimize; override;
procedure AppBringToFront; override; procedure AppBringToFront; override;
procedure AppSetTitle(const ATitle: string); override;
public public
constructor Create; constructor Create;
destructor Destroy; override; destructor Destroy; override;

8
lcl/interfaces/gtk/gtkobject.inc
View File

@ -1863,6 +1863,14 @@ begin
// TODO: Implement me! // TODO: Implement me!
end; end;
{------------------------------------------------------------------------------
procedure TGTKWidgetSet.AppSetTitle(const ATitle: string);
-------------------------------------------------------------------------------}
procedure TGTKWidgetSet.AppSetTitle(const ATitle: string);
begin
end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
Method: TGtkWidgetSet.RecreateWnd Method: TGtkWidgetSet.RecreateWnd
Params: Sender: TObject - the lcl wincontrol, that is to recreated Params: Sender: TObject - the lcl wincontrol, that is to recreated

66
lcl/lresources.pp
View File

@ -272,6 +272,7 @@ function ConvertLRSExtendedToDouble(p: Pointer): Double;
procedure ConvertEndianBigDoubleToLRSExtended(BigEndianDouble, procedure ConvertEndianBigDoubleToLRSExtended(BigEndianDouble,
LRSExtended: Pointer); LRSExtended: Pointer);
function ReadLRSByte(s: TStream): byte;
function ReadLRSWord(s: TStream): word; function ReadLRSWord(s: TStream): word;
function ReadLRSInteger(s: TStream): integer; function ReadLRSInteger(s: TStream): integer;
function ReadLRSCardinal(s: TStream): cardinal; function ReadLRSCardinal(s: TStream): cardinal;
@ -282,6 +283,8 @@ function ReadLRSExtended(s: TStream): Extended;
function ReadLRSCurrency(s: TStream): Currency; function ReadLRSCurrency(s: TStream): Currency;
function ReadLRSWideString(s: TStream): WideString; function ReadLRSWideString(s: TStream): WideString;
function ReadLRSEndianLittleExtendedAsDouble(s: TStream): Double; function ReadLRSEndianLittleExtendedAsDouble(s: TStream): Double;
function ReadLRSValueType(s: TStream): TValueType;
function ReadLRSInt64MB(s: TStream): int64;// multibyte
procedure WriteLRSWord(s: TStream; const w: word); procedure WriteLRSWord(s: TStream; const w: word);
procedure WriteLRSInteger(s: TStream; const i: integer); procedure WriteLRSInteger(s: TStream; const i: integer);
@ -292,6 +295,7 @@ procedure WriteLRSExtended(s: TStream; const e: extended);
procedure WriteLRSInt64(s: TStream; const i: int64); procedure WriteLRSInt64(s: TStream; const i: int64);
procedure WriteLRSCurrency(s: TStream; const c: Currency); procedure WriteLRSCurrency(s: TStream; const c: Currency);
procedure WriteLRSWideStringContent(s: TStream; const w: WideString); procedure WriteLRSWideStringContent(s: TStream; const w: WideString);
procedure WriteLRSInt64MB(s: TStream; const Value: integer);// multibyte
procedure WriteLRSReversedWord(s: TStream; w: word); procedure WriteLRSReversedWord(s: TStream; w: word);
procedure WriteLRS4BytesReversed(s: TStream; p: Pointer); procedure WriteLRS4BytesReversed(s: TStream; p: Pointer);
@ -2449,6 +2453,12 @@ begin
end; end;
end; end;
function ReadLRSByte(s: TStream): byte;
begin
Result:=0;
s.Read(Result,1);
end;
function ReadLRSWord(s: TStream): word; function ReadLRSWord(s: TStream): word;
begin begin
Result:=0; Result:=0;
@ -2551,6 +2561,29 @@ begin
Result:=ConvertLRSExtendedToDouble(@e); Result:=ConvertLRSExtendedToDouble(@e);
end; end;
function ReadLRSValueType(s: TStream): TValueType;
var
b: byte;
begin
s.Read(b,1);
Result:=TValueType(b);
end;
function ReadLRSInt64MB(s: TStream): int64;
var
v: TValueType;
begin
v:=ReadLRSValueType(s);
case v of
vaInt8: Result:=ReadLRSByte(s);
vaInt16: Result:=ReadLRSWord(s);
vaInt32: Result:=ReadLRSInteger(s);
vaInt64: Result:=ReadLRSInt64(s);
else
raise EInOutError.Create('ordinal valuetype missing');
end;
end;
procedure WriteLRSReversedWord(s: TStream; w: word); procedure WriteLRSReversedWord(s: TStream; w: word);
begin begin
w:=(w shr 8) or ((w and $ff) shl 8); w:=(w shr 8) or ((w and $ff) shl 8);
@ -2741,6 +2774,39 @@ begin
{$ENDIF} {$ENDIF}
end; end;
procedure WriteLRSInt64MB(s: TStream; const Value: integer);
var
w: Word;
i: Integer;
b: Byte;
begin
// Use the smallest possible integer type for the given value:
if (Value >= -128) and (Value <= 127) then
begin
b:=byte(vaInt8);
s.Write(b, 1);
b:=Byte(Value);
s.Write(b, 1);
end else if (Value >= -32768) and (Value <= 32767) then
begin
b:=byte(vaInt16);
s.Write(b, 1);
w:=Word(Value);
WriteLRSWord(s,w);
end else if (Value >= -$80000000) and (Value <= $7fffffff) then
begin
b:=byte(vaInt32);
s.Write(b, 1);
i:=Integer(Value);
WriteLRSInteger(s,i);
end else
begin
b:=byte(vaInt64);
s.Write(b, 1);
WriteLRSInt64(s,Value);
end;
end;
{ TLRSObjectReader } { TLRSObjectReader }
procedure TLRSObjectReader.Read(var Buf; Count: LongInt); procedure TLRSObjectReader.Read(var Buf; Count: LongInt);