mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-19 22:29:25 +02:00
added resourcestrings to debugoptions from Darius
git-svn-id: trunk@8821 -
This commit is contained in:
mattias
parent
066083b1f6
commit
4a72c727b5
@ -3,8 +3,8 @@
|
||||
synchronize - example
|
||||
---------------------
|
||||
|
||||
Just a simple example to show & verify functionality
|
||||
of the lazarus TThread.Synchronize / TProgressBar classes.
|
||||
Just a simple example to show & verify functionality
|
||||
of the lazarus TThread.Synchronize / TProgressBar classes.
|
||||
|
||||
Initial Revision : Sun Aug 15 1999
|
||||
|
||||
@ -73,45 +73,45 @@ type
|
||||
procedure Execute; override;
|
||||
end;
|
||||
|
||||
TForm1 = class(TForm)
|
||||
public
|
||||
Progre1: TProgressBar;
|
||||
Progre2: TProgressBar;
|
||||
Progre3: TProgressBar;
|
||||
Listbox1: TListBox;
|
||||
Listbox2: TListBox;
|
||||
Thread1: TThread1;
|
||||
Thread2: TThread2;
|
||||
ThreadList: TList;
|
||||
Button1: TButton;
|
||||
Button2: TButton;
|
||||
Button3: TButton;
|
||||
Button4: TButton;
|
||||
Button5: TButton;
|
||||
Button6: TButton;
|
||||
Button7: TButton;
|
||||
Button8: TButton;
|
||||
Button9: TButton;
|
||||
Button10: TButton;
|
||||
mnuFile: TMainMenu;
|
||||
itmFileQuit: TMenuItem;
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
procedure LoadMainMenu;
|
||||
procedure mnuQuitClicked(Sender : TObject);
|
||||
protected
|
||||
procedure Button1CLick(Sender : TObject);
|
||||
procedure Button2CLick(Sender : TObject);
|
||||
procedure Button3CLick(Sender : TObject);
|
||||
procedure Button4CLick(Sender : TObject);
|
||||
procedure Button5CLick(Sender : TObject);
|
||||
procedure Button6CLick(Sender : TObject);
|
||||
procedure Button7CLick(Sender : TObject);
|
||||
procedure Button8CLick(Sender : TObject);
|
||||
procedure Button9CLick(Sender : TObject);
|
||||
procedure Button10CLick(Sender : TObject);
|
||||
function CloseQuery: boolean; override;
|
||||
end;
|
||||
TForm1 = class(TForm)
|
||||
public
|
||||
Progre1: TProgressBar;
|
||||
Progre2: TProgressBar;
|
||||
Progre3: TProgressBar;
|
||||
Listbox1: TListBox;
|
||||
Listbox2: TListBox;
|
||||
Thread1: TThread1;
|
||||
Thread2: TThread2;
|
||||
ThreadList: TList;
|
||||
Button1: TButton;
|
||||
Button2: TButton;
|
||||
Button3: TButton;
|
||||
Button4: TButton;
|
||||
Button5: TButton;
|
||||
Button6: TButton;
|
||||
Button7: TButton;
|
||||
Button8: TButton;
|
||||
Button9: TButton;
|
||||
Button10: TButton;
|
||||
mnuFile: TMainMenu;
|
||||
itmFileQuit: TMenuItem;
|
||||
constructor Create(AOwner: TComponent); override;
|
||||
destructor Destroy; override;
|
||||
procedure LoadMainMenu;
|
||||
procedure mnuQuitClicked(Sender : TObject);
|
||||
protected
|
||||
procedure Button1CLick(Sender : TObject);
|
||||
procedure Button2CLick(Sender : TObject);
|
||||
procedure Button3CLick(Sender : TObject);
|
||||
procedure Button4CLick(Sender : TObject);
|
||||
procedure Button5CLick(Sender : TObject);
|
||||
procedure Button6CLick(Sender : TObject);
|
||||
procedure Button7CLick(Sender : TObject);
|
||||
procedure Button8CLick(Sender : TObject);
|
||||
procedure Button9CLick(Sender : TObject);
|
||||
procedure Button10CLick(Sender : TObject);
|
||||
function CloseQuery: boolean; override;
|
||||
end;
|
||||
|
||||
threadvar
|
||||
threadvartest: integer;
|
||||
@ -241,7 +241,7 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
constructor TForm1.Create(AOwner: TComponent);
|
||||
constructor TForm1.Create(AOwner: TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
Caption := 'Thread Synchronize Demo v0.1';
|
||||
@ -274,7 +274,7 @@ procedure TForm1.Button1Click(Sender : TObject);
|
||||
Begin
|
||||
if assigned (progre3) then begin
|
||||
progre3.Position := 0;
|
||||
progre3.Min := progre3.Min - 1
|
||||
progre3.Min := progre3.Min - 1
|
||||
end;
|
||||
End;
|
||||
|
||||
@ -282,15 +282,15 @@ procedure TForm1.Button2Click(Sender : TObject);
|
||||
Begin
|
||||
if assigned (progre3) then begin
|
||||
progre3.Position := 0;
|
||||
progre3.Min := progre3.Min + 1;
|
||||
progre3.Min := progre3.Min + 1;
|
||||
end;
|
||||
End;
|
||||
|
||||
procedure TForm1.Button3Click(Sender : TObject);
|
||||
Begin
|
||||
if assigned (progre3) then begin
|
||||
progre3.Position := 0;
|
||||
progre3.Max := progre3.Max +1;
|
||||
progre3.Position := 0;
|
||||
progre3.Max := progre3.Max +1;
|
||||
end;
|
||||
End;
|
||||
|
||||
@ -298,7 +298,7 @@ procedure TForm1.Button4Click(Sender : TObject);
|
||||
Begin
|
||||
if assigned (progre3) then begin
|
||||
progre3.Position := 0;
|
||||
progre3.Max := progre3.Max -1;
|
||||
progre3.Max := progre3.Max -1;
|
||||
end;
|
||||
End;
|
||||
|
||||
@ -315,8 +315,8 @@ procedure TForm1.Button5Click(Sender : TObject);
|
||||
Begin
|
||||
if assigned (progre1) then begin
|
||||
Progre1.Smooth := not Progre1.Smooth;
|
||||
if assigned (Button6)
|
||||
then Button6.Visible := Progre1.Smooth;
|
||||
if assigned (Button6)
|
||||
then Button6.Visible := Progre1.Smooth;
|
||||
end;
|
||||
End;
|
||||
|
||||
@ -329,12 +329,12 @@ End;
|
||||
|
||||
procedure TForm1.Button7Click(Sender : TObject);
|
||||
Begin
|
||||
if assigned (progre1) then
|
||||
if assigned (progre1) then
|
||||
begin
|
||||
case Progre1.Orientation of
|
||||
pbVertical : Progre1.Orientation := pbRightToLeft;
|
||||
pbRightToLeft : Progre1.Orientation := pbTopDown;
|
||||
pbTopDown : Progre1.Orientation := pbHorizontal;
|
||||
pbTopDown : Progre1.Orientation := pbHorizontal;
|
||||
pbHorizontal : Progre1.Orientation := pbVertical;
|
||||
end;
|
||||
end;
|
||||
@ -342,7 +342,7 @@ end;
|
||||
|
||||
procedure TForm1.Button8Click(Sender : TObject);
|
||||
begin
|
||||
{ Create the threads }
|
||||
{ Create the threads }
|
||||
TotalCount := 1000;
|
||||
GlobalData := 100;
|
||||
threadvartest := 20;
|
||||
@ -363,48 +363,48 @@ end;
|
||||
procedure TForm1.LoadMainMenu;
|
||||
|
||||
begin
|
||||
{ set the height and width }
|
||||
Height := 350;
|
||||
Width := 700;
|
||||
{ set the height and width }
|
||||
Height := 350;
|
||||
Width := 700;
|
||||
|
||||
{ Create a progressbar }
|
||||
Progre1 := TProgressBar.Create (Self);
|
||||
with Progre1 do
|
||||
{ Create a progressbar }
|
||||
Progre1 := TProgressBar.Create (Self);
|
||||
with Progre1 do
|
||||
begin
|
||||
Parent := Self;
|
||||
SetBounds(300, 10, 250, 20);
|
||||
SetBounds(300, 10, 250, 20);
|
||||
Min := 0;
|
||||
Max := 10;
|
||||
Step := 1;
|
||||
BarShowText := true;
|
||||
Smooth := True;
|
||||
Show;
|
||||
BarShowText := true;
|
||||
Smooth := True;
|
||||
Show;
|
||||
end;
|
||||
|
||||
Progre2 := TProgressBar.Create (Self);
|
||||
with Progre2 do
|
||||
Progre2 := TProgressBar.Create (Self);
|
||||
with Progre2 do
|
||||
begin
|
||||
Parent := Self;
|
||||
SetBounds(300, 35, 250, 20);
|
||||
SetBounds(300, 35, 250, 20);
|
||||
Min := 0;
|
||||
Max := 10;
|
||||
Step := 1;
|
||||
BarShowText := true;
|
||||
Smooth := True;
|
||||
Show;
|
||||
BarShowText := true;
|
||||
Smooth := True;
|
||||
Show;
|
||||
end;
|
||||
|
||||
Progre3 := TProgressBar.Create (Self);
|
||||
with Progre3 do
|
||||
Progre3 := TProgressBar.Create (Self);
|
||||
with Progre3 do
|
||||
begin
|
||||
Parent := Self;
|
||||
SetBounds(300, 60, 250, 20);
|
||||
SetBounds(300, 60, 250, 20);
|
||||
Min := 0;
|
||||
Max := 10;
|
||||
Step := 1;
|
||||
BarShowText := true;
|
||||
Smooth := True;
|
||||
Show;
|
||||
BarShowText := true;
|
||||
Smooth := True;
|
||||
Show;
|
||||
end;
|
||||
|
||||
{ create listboxes to show thread results }
|
||||
@ -423,123 +423,123 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
{ Create a few buttons }
|
||||
Button2 := TButton.Create(Self);
|
||||
Button2.Parent := Self;
|
||||
Button2.Left := 200;
|
||||
Button2.Top := 70;
|
||||
Button2.Width := 80;
|
||||
Button2.Height := 30;
|
||||
Button2.Show;
|
||||
Button2.Caption := 'PMin ++';
|
||||
// Button2.ToolTip := 'Tool Tip';
|
||||
// Button2.ShowToolTip := True;
|
||||
Button2.OnClick := @Button2Click;
|
||||
{ Create a few buttons }
|
||||
Button2 := TButton.Create(Self);
|
||||
Button2.Parent := Self;
|
||||
Button2.Left := 200;
|
||||
Button2.Top := 70;
|
||||
Button2.Width := 80;
|
||||
Button2.Height := 30;
|
||||
Button2.Show;
|
||||
Button2.Caption := 'PMin ++';
|
||||
// Button2.ToolTip := 'Tool Tip';
|
||||
// Button2.ShowToolTip := True;
|
||||
Button2.OnClick := @Button2Click;
|
||||
|
||||
|
||||
Button1 := TButton.Create(Self);
|
||||
Button1.Parent := Self;
|
||||
Button1.Left := 50;
|
||||
Button1.Top := 70;
|
||||
Button1.Width := 80;
|
||||
Button1.Height := 30;
|
||||
Button1.Show;
|
||||
Button1.Caption := 'PMin--';
|
||||
Button1.OnClick := @Button1Click;
|
||||
Button1 := TButton.Create(Self);
|
||||
Button1.Parent := Self;
|
||||
Button1.Left := 50;
|
||||
Button1.Top := 70;
|
||||
Button1.Width := 80;
|
||||
Button1.Height := 30;
|
||||
Button1.Show;
|
||||
Button1.Caption := 'PMin--';
|
||||
Button1.OnClick := @Button1Click;
|
||||
|
||||
{ Create 2 more buttons outside the groupbox }
|
||||
Button3 := TButton.Create(Self);
|
||||
Button3.Parent := Self;
|
||||
Button3.Left := 50;
|
||||
Button3.Top := 30;
|
||||
Button3.Width := 80;
|
||||
Button3.Height := 30;
|
||||
Button3.Show;
|
||||
Button3.Caption := 'PMax++';
|
||||
// Button3.ToolTip := 'Tool Tip';
|
||||
// Button3.ShowToolTip := True;
|
||||
Button3.OnClick := @Button3Click;
|
||||
{ Create 2 more buttons outside the groupbox }
|
||||
Button3 := TButton.Create(Self);
|
||||
Button3.Parent := Self;
|
||||
Button3.Left := 50;
|
||||
Button3.Top := 30;
|
||||
Button3.Width := 80;
|
||||
Button3.Height := 30;
|
||||
Button3.Show;
|
||||
Button3.Caption := 'PMax++';
|
||||
// Button3.ToolTip := 'Tool Tip';
|
||||
// Button3.ShowToolTip := True;
|
||||
Button3.OnClick := @Button3Click;
|
||||
|
||||
Button4 := TButton.Create(Self);
|
||||
Button4.Parent := Self;
|
||||
Button4.Left := 200;
|
||||
Button4.Top := 30;
|
||||
Button4.Width := 80;
|
||||
Button4.Height := 30;
|
||||
Button4.Show;
|
||||
Button4.Caption := 'PMax--';
|
||||
Button4.OnClick := @Button4Click;
|
||||
Button4 := TButton.Create(Self);
|
||||
Button4.Parent := Self;
|
||||
Button4.Left := 200;
|
||||
Button4.Top := 30;
|
||||
Button4.Width := 80;
|
||||
Button4.Height := 30;
|
||||
Button4.Show;
|
||||
Button4.Caption := 'PMax--';
|
||||
Button4.OnClick := @Button4Click;
|
||||
|
||||
Button10 := TButton.Create(Self);
|
||||
with Button10 do
|
||||
Button10 := TButton.Create(Self);
|
||||
with Button10 do
|
||||
begin
|
||||
Parent := Self;
|
||||
SetBounds(140, 30, 50, 30);
|
||||
Parent := Self;
|
||||
SetBounds(140, 30, 50, 30);
|
||||
Show;
|
||||
Caption := 'Step It';
|
||||
OnClick := @Button10Click;
|
||||
Caption := 'Step It';
|
||||
OnClick := @Button10Click;
|
||||
end;
|
||||
|
||||
Button5 := TButton.Create(Self);
|
||||
Button5.Parent := Self;
|
||||
Button5.Left := 500;
|
||||
Button5.Top := 110;
|
||||
Button5.Width := 130;
|
||||
Button5.Height := 30;
|
||||
Button5.Show;
|
||||
Button5.Caption := 'Toggle Smooth';
|
||||
Button5.OnClick := @Button5Click;
|
||||
Button5 := TButton.Create(Self);
|
||||
Button5.Parent := Self;
|
||||
Button5.Left := 500;
|
||||
Button5.Top := 110;
|
||||
Button5.Width := 130;
|
||||
Button5.Height := 30;
|
||||
Button5.Show;
|
||||
Button5.Caption := 'Toggle Smooth';
|
||||
Button5.OnClick := @Button5Click;
|
||||
|
||||
Button6 := TButton.Create(Self);
|
||||
Button6.Parent := Self;
|
||||
Button6.Left := 500;
|
||||
Button6.Top := 150;
|
||||
Button6.Width := 130;
|
||||
Button6.Height := 30;
|
||||
Button6.Show;
|
||||
Button6.Caption := 'Toggle Text';
|
||||
Button6.OnClick := @Button6Click;
|
||||
Button6.Visible := Progre1.Smooth;
|
||||
Button6 := TButton.Create(Self);
|
||||
Button6.Parent := Self;
|
||||
Button6.Left := 500;
|
||||
Button6.Top := 150;
|
||||
Button6.Width := 130;
|
||||
Button6.Height := 30;
|
||||
Button6.Show;
|
||||
Button6.Caption := 'Toggle Text';
|
||||
Button6.OnClick := @Button6Click;
|
||||
Button6.Visible := Progre1.Smooth;
|
||||
|
||||
Button7 := TButton.Create(Self);
|
||||
Button7.Parent := Self;
|
||||
Button7.Left := 500;
|
||||
Button7.Top := 190;
|
||||
Button7.Width := 130;
|
||||
Button7.Height := 30;
|
||||
Button7.Show;
|
||||
Button7.Caption := 'Orientation';
|
||||
Button7.OnClick := @Button7Click;
|
||||
Button7 := TButton.Create(Self);
|
||||
Button7.Parent := Self;
|
||||
Button7.Left := 500;
|
||||
Button7.Top := 190;
|
||||
Button7.Width := 130;
|
||||
Button7.Height := 30;
|
||||
Button7.Show;
|
||||
Button7.Caption := 'Orientation';
|
||||
Button7.OnClick := @Button7Click;
|
||||
|
||||
Button8 := TButton.Create(Self);
|
||||
with Button8 do
|
||||
Button8 := TButton.Create(Self);
|
||||
with Button8 do
|
||||
begin
|
||||
Parent := Self;
|
||||
SetBounds(500, 230, 130, 30);
|
||||
Parent := Self;
|
||||
SetBounds(500, 230, 130, 30);
|
||||
Show;
|
||||
Caption := 'Thread test';
|
||||
OnClick := @Button8Click;
|
||||
Caption := 'Thread test';
|
||||
OnClick := @Button8Click;
|
||||
end;
|
||||
|
||||
Button9 := TButton.Create(Self);
|
||||
with Button9 do
|
||||
Button9 := TButton.Create(Self);
|
||||
with Button9 do
|
||||
begin
|
||||
Parent := Self;
|
||||
SetBounds(500, 270, 130, 30);
|
||||
Parent := Self;
|
||||
SetBounds(500, 270, 130, 30);
|
||||
Show;
|
||||
Caption := 'Clear listboxes';
|
||||
OnClick := @Button9Click;
|
||||
Caption := 'Clear listboxes';
|
||||
OnClick := @Button9Click;
|
||||
end;
|
||||
|
||||
{ create a menubar }
|
||||
mnuFile := TMainMenu.Create(Self);
|
||||
{ create a menubar }
|
||||
mnuFile := TMainMenu.Create(Self);
|
||||
mnuFile.Name:='mnuFile';
|
||||
Menu := mnuFile;
|
||||
|
||||
itmFileQuit := TMenuItem.Create(Self);
|
||||
itmFileQuit.Caption := 'Quit';
|
||||
itmFileQuit.OnClick := @mnuQuitClicked;
|
||||
mnuFile.Items.Add(itmFileQuit);
|
||||
itmFileQuit := TMenuItem.Create(Self);
|
||||
itmFileQuit.Caption := 'Quit';
|
||||
itmFileQuit.OnClick := @mnuQuitClicked;
|
||||
mnuFile.Items.Add(itmFileQuit);
|
||||
|
||||
end;
|
||||
|
||||
|
||||
@ -19,22 +19,23 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
BorderSpacing.Around = 6
|
||||
PageIndex = 3
|
||||
AnchorSideBottom.Control = cmdOK
|
||||
Left = 6
|
||||
Height = 394
|
||||
Height = 400
|
||||
Top = 6
|
||||
Width = 479
|
||||
object pgGeneral: TPage
|
||||
Caption = 'General'
|
||||
Caption = 'Page1'
|
||||
ClientWidth = 471
|
||||
ClientHeight = 368
|
||||
Height = 368
|
||||
ClientHeight = 374
|
||||
Height = 374
|
||||
Width = 471
|
||||
object gbDebuggerType: TGroupBox
|
||||
Align = alTop
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Debugger type and path'
|
||||
ClientHeight = 90
|
||||
ClientWidth = 459
|
||||
ClientHeight = 72
|
||||
ClientWidth = 455
|
||||
ParentCtl3D = False
|
||||
TabOrder = 0
|
||||
Left = 6
|
||||
@ -43,6 +44,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
Width = 459
|
||||
object cmbDebuggerType: TComboBox
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
||||
MaxLength = 0
|
||||
OnChange = cmbDebuggerTypeCHANGE
|
||||
ParentCtl3D = False
|
||||
@ -50,17 +52,18 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
Left = 6
|
||||
Height = 21
|
||||
Top = 8
|
||||
Width = 442
|
||||
Width = 438
|
||||
end
|
||||
object cmbDebuggerPath: TComboBox
|
||||
Anchors = [akTop, akLeft, akRight]
|
||||
AutoCompleteText = [cbactEndOfLineComplete, cbactSearchAscending]
|
||||
MaxLength = 0
|
||||
ParentCtl3D = False
|
||||
TabOrder = 1
|
||||
Left = 6
|
||||
Height = 21
|
||||
Top = 40
|
||||
Width = 417
|
||||
Width = 413
|
||||
end
|
||||
object cmdOpenDebuggerPath: TButton
|
||||
Anchors = [akTop, akRight]
|
||||
@ -68,7 +71,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
Caption = '...'
|
||||
OnClick = cmdOpenDebuggerPathCLICK
|
||||
TabOrder = 2
|
||||
Left = 425
|
||||
Left = 421
|
||||
Height = 25
|
||||
Top = 37
|
||||
Width = 23
|
||||
@ -78,8 +81,8 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
Align = alTop
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Additional search path'
|
||||
ClientHeight = 56
|
||||
ClientWidth = 459
|
||||
ClientHeight = 38
|
||||
ClientWidth = 455
|
||||
ParentCtl3D = False
|
||||
TabOrder = 1
|
||||
Left = 6
|
||||
@ -92,7 +95,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
Left = 6
|
||||
Height = 25
|
||||
Top = 5
|
||||
Width = 415
|
||||
Width = 411
|
||||
end
|
||||
object cmdOpenAdditionalPath: TButton
|
||||
Anchors = [akTop, akRight]
|
||||
@ -100,7 +103,7 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
Caption = '...'
|
||||
OnClick = cmdOpenAdditionalPathClick
|
||||
TabOrder = 1
|
||||
Left = 425
|
||||
Left = 421
|
||||
Height = 24
|
||||
Top = 5
|
||||
Width = 23
|
||||
@ -110,12 +113,12 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
Align = alClient
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Debugger specific options (depends on type of debugger)'
|
||||
ClientHeight = 136
|
||||
ClientWidth = 459
|
||||
ClientHeight = 124
|
||||
ClientWidth = 455
|
||||
ParentCtl3D = False
|
||||
TabOrder = 2
|
||||
Left = 6
|
||||
Height = 136
|
||||
Height = 142
|
||||
Top = 226
|
||||
Width = 459
|
||||
object pnlDebugSpecific: TPanel
|
||||
@ -123,46 +126,49 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
BorderSpacing.Around = 6
|
||||
BevelOuter = bvNone
|
||||
BorderWidth = 4
|
||||
ClientHeight = 106
|
||||
ClientHeight = 112
|
||||
ClientWidth = 443
|
||||
FullRepaint = False
|
||||
TabOrder = 0
|
||||
TabStop = True
|
||||
Left = 6
|
||||
Height = 106
|
||||
Height = 112
|
||||
Top = 6
|
||||
Width = 443
|
||||
end
|
||||
end
|
||||
object gcbDebuggerGeneralOptions: TCheckGroup
|
||||
Align = alTop
|
||||
AutoFill = True
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Debugger general options'
|
||||
Items.Strings = (
|
||||
'Show message on stop'
|
||||
)
|
||||
ChildSizing.LeftRightSpacing = 6
|
||||
ChildSizing.TopBottomSpacing = 6
|
||||
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
|
||||
ChildSizing.EnlargeVertical = crsHomogenousChildResize
|
||||
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
||||
ChildSizing.ShrinkVertical = crsScaleChilds
|
||||
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
||||
ChildSizing.ControlsPerLine = 1
|
||||
TabOrder = 3
|
||||
Left = 6
|
||||
Height = 56
|
||||
Top = 164
|
||||
Width = 459
|
||||
Data = {
|
||||
0100000002
|
||||
}
|
||||
end
|
||||
end
|
||||
object pgEventLog: TPage
|
||||
Caption = 'Event Log'
|
||||
Caption = 'Page2'
|
||||
ClientWidth = 471
|
||||
ClientHeight = 368
|
||||
Height = 368
|
||||
ClientHeight = 374
|
||||
Height = 374
|
||||
Width = 471
|
||||
object gbGeneral: TGroupBox
|
||||
Align = alTop
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'General'
|
||||
ClientHeight = 132
|
||||
ClientWidth = 459
|
||||
ClientHeight = 114
|
||||
ClientWidth = 455
|
||||
ParentCtl3D = False
|
||||
TabOrder = 0
|
||||
Left = 6
|
||||
@ -193,20 +199,20 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
Left = 46
|
||||
Height = 20
|
||||
Top = 54
|
||||
Width = 66
|
||||
Width = 78
|
||||
end
|
||||
end
|
||||
object gbMessages: TGroupBox
|
||||
Align = alClient
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Messages'
|
||||
ClientHeight = 218
|
||||
ClientWidth = 459
|
||||
ClientHeight = 206
|
||||
ClientWidth = 455
|
||||
Enabled = False
|
||||
ParentCtl3D = False
|
||||
TabOrder = 1
|
||||
Left = 6
|
||||
Height = 218
|
||||
Height = 224
|
||||
Top = 144
|
||||
Width = 459
|
||||
object chkMessagesBreakpoint: TCheckBox
|
||||
@ -275,48 +281,55 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
end
|
||||
end
|
||||
object pgExceptions: TPage
|
||||
Caption = 'Language Exceptions'
|
||||
Caption = 'Page3'
|
||||
ClientWidth = 471
|
||||
ClientHeight = 368
|
||||
Height = 368
|
||||
ClientHeight = 374
|
||||
Height = 374
|
||||
Width = 471
|
||||
object bgIgnoreExceptions: TGroupBox
|
||||
Align = alClient
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Ignore these exceptions'
|
||||
ClientHeight = 337
|
||||
ClientWidth = 459
|
||||
ClientHeight = 325
|
||||
ClientWidth = 455
|
||||
ParentCtl3D = False
|
||||
TabOrder = 0
|
||||
Left = 6
|
||||
Height = 337
|
||||
Height = 343
|
||||
Top = 6
|
||||
Width = 459
|
||||
object cmdExceptionRemove: TButton
|
||||
Anchors = [akRight, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
BorderSpacing.InnerBorder = 2
|
||||
Caption = 'Remove'
|
||||
Enabled = False
|
||||
OnClick = cmdExceptionRemoveCLICK
|
||||
TabOrder = 0
|
||||
AnchorSideRight.Control = bgIgnoreExceptions
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = bgIgnoreExceptions
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 385
|
||||
Height = 29
|
||||
Top = 281
|
||||
Top = 290
|
||||
Width = 64
|
||||
end
|
||||
object cmdExceptionAdd: TButton
|
||||
Anchors = [akRight, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Right = 6
|
||||
BorderSpacing.Around = 6
|
||||
BorderSpacing.InnerBorder = 2
|
||||
Caption = 'Add'
|
||||
OnClick = cmdExceptionAddCLICK
|
||||
TabOrder = 1
|
||||
AnchorSideRight.Control = cmdExceptionRemove
|
||||
AnchorSideBottom.Control = bgIgnoreExceptions
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 336
|
||||
Height = 29
|
||||
Top = 281
|
||||
Top = 290
|
||||
Width = 43
|
||||
end
|
||||
object clbExceptions: TCheckListBox
|
||||
@ -325,8 +338,10 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
BorderSpacing.Around = 6
|
||||
OnClick = clbExceptionsCLICK
|
||||
TabOrder = 2
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = cmdExceptionAdd
|
||||
Left = 6
|
||||
Height = 267
|
||||
Height = 278
|
||||
Top = 6
|
||||
Width = 443
|
||||
end
|
||||
@ -340,51 +355,58 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
TabOrder = 1
|
||||
Left = 6
|
||||
Height = 13
|
||||
Top = 349
|
||||
Top = 355
|
||||
Width = 459
|
||||
end
|
||||
end
|
||||
object pgSignals: TPage
|
||||
Caption = 'OS Exceptions'
|
||||
Caption = 'Page4'
|
||||
ClientWidth = 471
|
||||
ClientHeight = 368
|
||||
Height = 368
|
||||
ClientHeight = 374
|
||||
Height = 374
|
||||
Width = 471
|
||||
object gbSignals: TGroupBox
|
||||
Align = alClient
|
||||
BorderSpacing.Around = 6
|
||||
Caption = 'Signals'
|
||||
ClientHeight = 338
|
||||
ClientHeight = 344
|
||||
ClientWidth = 455
|
||||
ParentCtl3D = False
|
||||
TabOrder = 0
|
||||
Left = 6
|
||||
Height = 356
|
||||
Height = 362
|
||||
Top = 6
|
||||
Width = 459
|
||||
object cmdSignalRemove: TButton
|
||||
Anchors = [akRight, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
BorderSpacing.InnerBorder = 2
|
||||
Caption = 'Remove'
|
||||
Enabled = False
|
||||
TabOrder = 0
|
||||
AnchorSideRight.Control = gbSignals
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = gbSignals
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 385
|
||||
Height = 29
|
||||
Top = 302
|
||||
Top = 309
|
||||
Width = 64
|
||||
end
|
||||
object cmdSignalAdd: TButton
|
||||
Anchors = [akRight, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Right = 6
|
||||
BorderSpacing.Around = 6
|
||||
BorderSpacing.InnerBorder = 2
|
||||
Caption = 'Add'
|
||||
TabOrder = 1
|
||||
AnchorSideRight.Control = cmdSignalRemove
|
||||
AnchorSideBottom.Control = gbSignals
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 336
|
||||
Height = 29
|
||||
Top = 302
|
||||
Top = 309
|
||||
Width = 43
|
||||
end
|
||||
object lvSignals: TListView
|
||||
@ -408,9 +430,11 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
Width = 5
|
||||
end>
|
||||
PopupMenu = popSignal
|
||||
TabOrder = 2
|
||||
ViewStyle = vsReport
|
||||
AnchorSideBottom.Control = cmdSignalAdd
|
||||
Left = 6
|
||||
Height = 288
|
||||
Height = 297
|
||||
Top = 6
|
||||
Width = 443
|
||||
end
|
||||
@ -418,6 +442,9 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
end
|
||||
end
|
||||
object cmdOK: TBitBtn
|
||||
Anchors = [akRight, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
BorderSpacing.InnerBorder = 2
|
||||
Caption = '&OK'
|
||||
Constraints.MaxHeight = 29
|
||||
@ -426,14 +453,19 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
NumGlyphs = 0
|
||||
OnClick = cmdOKCLICK
|
||||
TabOrder = 1
|
||||
Left = 410
|
||||
AnchorSideRight.Control = Owner
|
||||
AnchorSideRight.Side = asrBottom
|
||||
AnchorSideBottom.Control = Owner
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 417
|
||||
Height = 29
|
||||
Top = 406
|
||||
Width = 75
|
||||
Top = 412
|
||||
Width = 68
|
||||
end
|
||||
object cmdCancel: TBitBtn
|
||||
Anchors = [akRight, akBottom]
|
||||
BorderSpacing.Right = 6
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
BorderSpacing.InnerBorder = 2
|
||||
Caption = 'Cancel'
|
||||
Constraints.MaxHeight = 29
|
||||
@ -442,13 +474,17 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
NumGlyphs = 0
|
||||
TabOrder = 2
|
||||
AnchorSideRight.Control = cmdOK
|
||||
Left = 329
|
||||
AnchorSideBottom.Control = Owner
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 331
|
||||
Height = 29
|
||||
Top = 406
|
||||
Width = 75
|
||||
Top = 412
|
||||
Width = 80
|
||||
end
|
||||
object btnHelp: TBitBtn
|
||||
Anchors = [akLeft, akBottom]
|
||||
AutoSize = True
|
||||
BorderSpacing.Around = 6
|
||||
BorderSpacing.InnerBorder = 2
|
||||
Caption = '&Help'
|
||||
Constraints.MaxHeight = 29
|
||||
@ -456,14 +492,17 @@ object DebuggerOptionsForm: TDebuggerOptionsForm
|
||||
Kind = bkHelp
|
||||
NumGlyphs = 0
|
||||
TabOrder = 3
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideBottom.Control = Owner
|
||||
AnchorSideBottom.Side = asrBottom
|
||||
Left = 6
|
||||
Height = 29
|
||||
Top = 406
|
||||
Top = 412
|
||||
Width = 75
|
||||
end
|
||||
object popSignal: TPopupMenu
|
||||
left = 408
|
||||
top = 20
|
||||
top = 96
|
||||
object mnuHandledByProgram: TMenuItem
|
||||
AutoCheck = True
|
||||
Caption = 'Handled by Program'
|
||||
|
||||
@ -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
|
||||
+#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'
|
||||
+'rSpacing.Around'#2#6#9'PageIndex'#2#3#4'Left'#2#6#6'Height'#3#138#1#3'Top'#2
|
||||
+#6#5'Width'#3#223#1#0#5'TPage'#9'pgGeneral'#7'Caption'#6#7'General'#11'Clien'
|
||||
+'tWidth'#3#215#1#12'ClientHeight'#3'p'#1#6'Height'#3'p'#1#5'Width'#3#215#1#0
|
||||
+#9'TGroupBox'#14'gbDebuggerType'#5'Align'#7#5'alTop'#20'BorderSpacing.Around'
|
||||
+#2#6#7'Caption'#6#22'Debugger type and path'#12'ClientHeight'#2'Z'#11'Client'
|
||||
+'Width'#3#203#1#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2'Z'
|
||||
+#3'Top'#2#6#5'Width'#3#203#1#0#9'TComboBox'#15'cmbDebuggerType'#7'Anchors'#11
|
||||
+#5'akTop'#6'akLeft'#7'akRight'#0#9'MaxLength'#2#0#8'OnChange'#7#21'cmbDebugg'
|
||||
+'erTypeCHANGE'#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#21#3
|
||||
+'Top'#2#8#5'Width'#3#186#1#0#0#9'TComboBox'#15'cmbDebuggerPath'#7'Anchors'#11
|
||||
+#5'akTop'#6'akLeft'#7'akRight'#0#9'MaxLength'#2#0#11'ParentCtl3D'#8#8'TabOrd'
|
||||
+'er'#2#1#4'Left'#2#6#6'Height'#2#21#3'Top'#2'('#5'Width'#3#161#1#0#0#7'TButt'
|
||||
+'on'#19'cmdOpenDebuggerPath'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSp'
|
||||
+'acing.InnerBorder'#2#2#7'Caption'#6#3'...'#7'OnClick'#7#24'cmdOpenDebuggerP'
|
||||
+'athCLICK'#8'TabOrder'#2#2#4'Left'#3#169#1#6'Height'#2#25#3'Top'#2'%'#5'Widt'
|
||||
+'h'#2#23#0#0#0#9'TGroupBox'#22'gbAdditionalSearchPath'#5'Align'#7#5'alTop'#20
|
||||
+'BorderSpacing.Around'#2#6#7'Caption'#6#22'Additional search path'#12'Client'
|
||||
+'Height'#2'8'#11'ClientWidth'#3#203#1#11'ParentCtl3D'#8#8'TabOrder'#2#1#4'Le'
|
||||
+'ft'#2#6#6'Height'#2'8'#3'Top'#2'f'#5'Width'#3#203#1#0#5'TEdit'#17'txtAdditi'
|
||||
+'onalPath'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#8'TabOrder'#2#0#4'L'
|
||||
+'eft'#2#6#6'Height'#2#25#3'Top'#2#5#5'Width'#3#159#1#0#0#7'TButton'#21'cmdOp'
|
||||
+'enAdditionalPath'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.Inne'
|
||||
+'rBorder'#2#2#7'Caption'#6#3'...'#7'OnClick'#7#26'cmdOpenAdditionalPathClick'
|
||||
+#8'TabOrder'#2#1#4'Left'#3#169#1#6'Height'#2#24#3'Top'#2#5#5'Width'#2#23#0#0
|
||||
+#0#9'TGroupBox'#18'gbDebuggerSpecific'#5'Align'#7#8'alClient'#20'BorderSpaci'
|
||||
+'ng.Around'#2#6#7'Caption'#6'7Debugger specific options (depends on type of '
|
||||
+'debugger)'#12'ClientHeight'#3#136#0#11'ClientWidth'#3#203#1#11'ParentCtl3D'
|
||||
+#8#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#3#136#0#3'Top'#3#226#0#5'Width'#3
|
||||
+#203#1#0#6'TPanel'#16'pnlDebugSpecific'#5'Align'#7#8'alClient'#20'BorderSpac'
|
||||
+'ing.Around'#2#6#10'BevelOuter'#7#6'bvNone'#11'BorderWidth'#2#4#12'ClientHei'
|
||||
+'ght'#2'j'#11'ClientWidth'#3#187#1#11'FullRepaint'#8#8'TabOrder'#2#0#7'TabSt'
|
||||
+'op'#9#4'Left'#2#6#6'Height'#2'j'#3'Top'#2#6#5'Width'#3#187#1#0#0#0#11'TChec'
|
||||
+'kGroup'#25'gcbDebuggerGeneralOptions'#5'Align'#7#5'alTop'#20'BorderSpacing.'
|
||||
+'Around'#2#6#7'Caption'#6#24'Debugger general options'#13'Items.Strings'#1#6
|
||||
+#20'Show message on stop'#0#8'TabOrder'#2#3#4'Left'#2#6#6'Height'#2'8'#3'Top'
|
||||
+#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'
|
||||
+'ventLog'#7'Caption'#6#9'Event Log'#11'ClientWidth'#3#215#1#12'ClientHeight'
|
||||
+#3'p'#1#6'Height'#3'p'#1#5'Width'#3#215#1#0#9'TGroupBox'#9'gbGeneral'#5'Alig'
|
||||
+'n'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#7'General'#12'Clien'
|
||||
+'tHeight'#3#132#0#11'ClientWidth'#3#203#1#11'ParentCtl3D'#8#8'TabOrder'#2#0#4
|
||||
+'Left'#2#6#6'Height'#3#132#0#3'Top'#2#6#5'Width'#3#203#1#0#9'TCheckBox'#16'c'
|
||||
+'hkClearLogOnRun'#11'AllowGrayed'#9#7'Caption'#6#16'Clear log on run'#8'TabO'
|
||||
+'rder'#2#0#4'Left'#2#4#6'Height'#2#13#3'Top'#2#5#5'Width'#2'^'#0#0#9'TCheckB'
|
||||
+'ox'#17'chkLimitLinecount'#11'AllowGrayed'#9#7'Caption'#6#18'Limit linecount'
|
||||
+' to'#8'TabOrder'#2#1#4'Left'#2#4#6'Height'#2#13#3'Top'#2#29#5'Width'#2'c'#0
|
||||
+#0#9'TSpinEdit'#16'seLimitLinecount'#7'Enabled'#8#8'TabOrder'#2#2#4'Left'#2
|
||||
+'.'#6'Height'#2#20#3'Top'#2'6'#5'Width'#2'B'#0#0#0#9'TGroupBox'#10'gbMessage'
|
||||
+'s'#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6#7'Caption'#6#8'Messa'
|
||||
+'ges'#12'ClientHeight'#3#218#0#11'ClientWidth'#3#203#1#7'Enabled'#8#11'Paren'
|
||||
+'tCtl3D'#8#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#3#218#0#3'Top'#3#144#0#5'Wi'
|
||||
+'dth'#3#203#1#0#9'TCheckBox'#21'chkMessagesBreakpoint'#11'AllowGrayed'#9#7'C'
|
||||
+'aption'#6#10'Breakpoint'#8'TabOrder'#2#0#4'Left'#2#4#6'Height'#2#13#3'Top'#2
|
||||
+#5#5'Width'#2'G'#0#0#9'TCheckBox'#18'chkMessagesProcess'#11'AllowGrayed'#9#7
|
||||
+'Caption'#6#7'Process'#8'TabOrder'#2#1#4'Left'#2#4#6'Height'#2#13#3'Top'#2#29
|
||||
+#5'Width'#2':'#0#0#9'TCheckBox'#17'chkMessagesThread'#11'AllowGrayed'#9#7'Ca'
|
||||
+'ption'#6#6'Thread'#8'TabOrder'#2#2#4'Left'#2#4#6'Height'#2#13#3'Top'#2'5'#5
|
||||
,'Width'#2'6'#0#0#9'TCheckBox'#17'chkMessagesModule'#11'AllowGrayed'#9#7'Capt'
|
||||
+'ion'#6#6'Module'#8'TabOrder'#2#3#4'Left'#2#4#6'Height'#2#13#3'Top'#2'M'#5'W'
|
||||
+'idth'#2'7'#0#0#9'TCheckBox'#17'chkMessagesOutput'#11'AllowGrayed'#9#7'Capti'
|
||||
+'on'#6#6'Output'#8'TabOrder'#2#4#4'Left'#2#4#6'Height'#2#13#3'Top'#2'e'#5'Wi'
|
||||
+'dth'#2'4'#0#0#9'TCheckBox'#17'chkMessagesWindow'#11'AllowGrayed'#9#7'Captio'
|
||||
+'n'#6#6'Window'#8'TabOrder'#2#5#4'Left'#2#4#6'Height'#2#13#3'Top'#2'}'#5'Wid'
|
||||
+'th'#2';'#0#0#9'TCheckBox'#20'chkMessagesInterface'#11'AllowGrayed'#9#7'Capt'
|
||||
+'ion'#6#9'Interface'#8'TabOrder'#2#6#4'Left'#2#4#6'Height'#2#13#3'Top'#3#149
|
||||
+#0#5'Width'#2'>'#0#0#0#0#5'TPage'#12'pgExceptions'#7'Caption'#6#19'Language '
|
||||
+'Exceptions'#11'ClientWidth'#3#215#1#12'ClientHeight'#3'p'#1#6'Height'#3'p'#1
|
||||
+#5'Width'#3#215#1#0#9'TGroupBox'#18'bgIgnoreExceptions'#5'Align'#7#8'alClien'
|
||||
+'t'#20'BorderSpacing.Around'#2#6#7'Caption'#6#23'Ignore these exceptions'#12
|
||||
+'ClientHeight'#3'Q'#1#11'ClientWidth'#3#203#1#11'ParentCtl3D'#8#8'TabOrder'#2
|
||||
+#0#4'Left'#2#6#6'Height'#3'Q'#1#3'Top'#2#6#5'Width'#3#203#1#0#7'TButton'#18
|
||||
+'cmdExceptionRemove'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#25
|
||||
+'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#6'Remove'#7'Enabled'#8#7'OnClic'
|
||||
+'k'#7#23'cmdExceptionRemoveCLICK'#8'TabOrder'#2#0#4'Left'#3#129#1#6'Height'#2
|
||||
+#29#3'Top'#3#25#1#5'Width'#2'@'#0#0#7'TButton'#15'cmdExceptionAdd'#7'Anchors'
|
||||
+#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#19'BorderSpacing.Right'#2#6#25'Bo'
|
||||
+'rderSpacing.InnerBorder'#2#2#7'Caption'#6#3'Add'#7'OnClick'#7#20'cmdExcepti'
|
||||
+'onAddCLICK'#8'TabOrder'#2#1#23'AnchorSideRight.Control'#7#18'cmdExceptionRe'
|
||||
+'move'#4'Left'#3'P'#1#6'Height'#2#29#3'Top'#3#25#1#5'Width'#2'+'#0#0#13'TChe'
|
||||
+'ckListBox'#13'clbExceptions'#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'a'
|
||||
+'kLeft'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#7'OnClick'#7#18
|
||||
+'clbExceptionsCLICK'#8'TabOrder'#2#2#4'Left'#2#6#6'Height'#3#11#1#3'Top'#2#6
|
||||
+#5'Width'#3#187#1#0#0#0#9'TCheckBox'#19'chkBreakOnException'#5'Align'#7#8'al'
|
||||
+'Bottom'#11'AllowGrayed'#9#7'Anchors'#11#6'akLeft'#8'akBottom'#0#20'BorderSp'
|
||||
+'acing.Around'#2#6#7'Caption'#6#27'Break on Lazarus Exceptions'#8'TabOrder'#2
|
||||
+#1#4'Left'#2#6#6'Height'#2#13#3'Top'#3']'#1#5'Width'#3#203#1#0#0#0#5'TPage'#9
|
||||
+'pgSignals'#7'Caption'#6#13'OS Exceptions'#11'ClientWidth'#3#215#1#12'Client'
|
||||
+'Height'#3'p'#1#6'Height'#3'p'#1#5'Width'#3#215#1#0#9'TGroupBox'#9'gbSignals'
|
||||
+#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6#7'Caption'#6#7'Signals'
|
||||
+#12'ClientHeight'#3'R'#1#11'ClientWidth'#3#199#1#11'ParentCtl3D'#8#8'TabOrde'
|
||||
+'r'#2#0#4'Left'#2#6#6'Height'#3'd'#1#3'Top'#2#6#5'Width'#3#203#1#0#7'TButton'
|
||||
+#15'cmdSignalRemove'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#25
|
||||
+'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#6'Remove'#7'Enabled'#8#8'TabOrd'
|
||||
+'er'#2#0#4'Left'#3#129#1#6'Height'#2#29#3'Top'#3'.'#1#5'Width'#2'@'#0#0#7'TB'
|
||||
+'utton'#12'cmdSignalAdd'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9
|
||||
+#19'BorderSpacing.Right'#2#6#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#3
|
||||
+'Add'#8'TabOrder'#2#1#23'AnchorSideRight.Control'#7#15'cmdSignalRemove'#4'Le'
|
||||
+'ft'#3'P'#1#6'Height'#2#29#3'Top'#3'.'#1#5'Width'#2'+'#0#0#9'TListView'#9'lv'
|
||||
+'Signals'#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8
|
||||
+'akBottom'#0#20'BorderSpacing.Around'#2#6#7'Columns'#14#1#7'Caption'#6#4'Nam'
|
||||
+'e'#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'Caption'#6#6'Resume'#5'Width'#2#5#0#0#9'PopupMenu'#7#9'po'
|
||||
+'pSignal'#9'ViewStyle'#7#8'vsReport'#4'Left'#2#6#6'Height'#3' '#1#3'Top'#2#6
|
||||
+#5'Width'#3#187#1#0#0#0#0#0#7'TBitBtn'#5'cmdOK'#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'NumGlyphs'#2#0#7'OnClick'#7#10'cmdOKCLICK'#8'TabOrder'#2
|
||||
+#1#4'Left'#3#154#1#6'Height'#2#29#3'Top'#3#150#1#5'Width'#2'K'#0#0#7'TBitBtn'
|
||||
+#9'cmdCancel'#7'Anchors'#11#7'akRight'#8'akBottom'#0#19'BorderSpacing.Right'
|
||||
+'rSpacing.Around'#2#6#9'PageIndex'#2#3#24'AnchorSideBottom.Control'#7#5'cmdO'
|
||||
+'K'#4'Left'#2#6#6'Height'#3#144#1#3'Top'#2#6#5'Width'#3#223#1#0#5'TPage'#9'p'
|
||||
+'gGeneral'#7'Caption'#6#5'Page1'#11'ClientWidth'#3#215#1#12'ClientHeight'#3
|
||||
+'v'#1#6'Height'#3'v'#1#5'Width'#3#215#1#0#9'TGroupBox'#14'gbDebuggerType'#5
|
||||
+'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Caption'#6#22'Debugger typ'
|
||||
+'e and path'#12'ClientHeight'#2'H'#11'ClientWidth'#3#199#1#11'ParentCtl3D'#8
|
||||
+#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2'Z'#3'Top'#2#6#5'Width'#3#203#1#0#9
|
||||
+'TComboBox'#15'cmbDebuggerType'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
|
||||
+#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'
|
||||
+#0#9'MaxLength'#2#0#8'OnChange'#7#21'cmbDebuggerTypeCHANGE'#11'ParentCtl3D'#8
|
||||
+#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#21#3'Top'#2#8#5'Width'#3#182#1#0#0#9
|
||||
+'TComboBox'#15'cmbDebuggerPath'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0
|
||||
+#16'AutoCompleteText'#11#22'cbactEndOfLineComplete'#20'cbactSearchAscending'
|
||||
+#0#9'MaxLength'#2#0#11'ParentCtl3D'#8#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2
|
||||
+#21#3'Top'#2'('#5'Width'#3#157#1#0#0#7'TButton'#19'cmdOpenDebuggerPath'#7'An'
|
||||
+'chors'#11#5'akTop'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#2#7'Caption'
|
||||
+#6#3'...'#7'OnClick'#7#24'cmdOpenDebuggerPathCLICK'#8'TabOrder'#2#2#4'Left'#3
|
||||
+#165#1#6'Height'#2#25#3'Top'#2'%'#5'Width'#2#23#0#0#0#9'TGroupBox'#22'gbAddi'
|
||||
+'tionalSearchPath'#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Captio'
|
||||
+'n'#6#22'Additional search path'#12'ClientHeight'#2'&'#11'ClientWidth'#3#199
|
||||
+#1#11'ParentCtl3D'#8#8'TabOrder'#2#1#4'Left'#2#6#6'Height'#2'8'#3'Top'#2'f'#5
|
||||
+'Width'#3#203#1#0#5'TEdit'#17'txtAdditionalPath'#7'Anchors'#11#5'akTop'#6'ak'
|
||||
+'Left'#7'akRight'#0#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#2#25#3'Top'#2#5#5
|
||||
+'Width'#3#155#1#0#0#7'TButton'#21'cmdOpenAdditionalPath'#7'Anchors'#11#5'akT'
|
||||
+'op'#7'akRight'#0#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#3'...'#7'On'
|
||||
+'Click'#7#26'cmdOpenAdditionalPathClick'#8'TabOrder'#2#1#4'Left'#3#165#1#6'H'
|
||||
+'eight'#2#24#3'Top'#2#5#5'Width'#2#23#0#0#0#9'TGroupBox'#18'gbDebuggerSpecif'
|
||||
+'ic'#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6#7'Caption'#6'7Debug'
|
||||
+'ger specific options (depends on type of debugger)'#12'ClientHeight'#2'|'#11
|
||||
+'ClientWidth'#3#199#1#11'ParentCtl3D'#8#8'TabOrder'#2#2#4'Left'#2#6#6'Height'
|
||||
+#3#142#0#3'Top'#3#226#0#5'Width'#3#203#1#0#6'TPanel'#16'pnlDebugSpecific'#5
|
||||
+'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6#10'BevelOuter'#7#6'bvNone'
|
||||
+#11'BorderWidth'#2#4#12'ClientHeight'#2'p'#11'ClientWidth'#3#187#1#11'FullRe'
|
||||
+'paint'#8#8'TabOrder'#2#0#7'TabStop'#9#4'Left'#2#6#6'Height'#2'p'#3'Top'#2#6
|
||||
+#5'Width'#3#187#1#0#0#0#11'TCheckGroup'#25'gcbDebuggerGeneralOptions'#5'Alig'
|
||||
+'n'#7#5'alTop'#8'AutoFill'#9#20'BorderSpacing.Around'#2#6#7'Caption'#6#24'De'
|
||||
+'bugger general options'#28'ChildSizing.LeftRightSpacing'#2#6#28'ChildSizing'
|
||||
+'.TopBottomSpacing'#2#6#29'ChildSizing.EnlargeHorizontal'#7#24'crsHomogenous'
|
||||
+'ChildResize'#27'ChildSizing.EnlargeVertical'#7#24'crsHomogenousChildResize'
|
||||
+#28'ChildSizing.ShrinkHorizontal'#7#14'crsScaleChilds'#26'ChildSizing.Shrink'
|
||||
+'Vertical'#7#14'crsScaleChilds'#18'ChildSizing.Layout'#7#29'cclLeftToRightTh'
|
||||
+'enTopToBottom'#27'ChildSizing.ControlsPerLine'#2#1#8'TabOrder'#2#3#4'Left'#2
|
||||
+#6#6'Height'#2'8'#3'Top'#3#164#0#5'Width'#3#203#1#0#0#0#5'TPage'#10'pgEventL'
|
||||
+'og'#7'Caption'#6#5'Page2'#11'ClientWidth'#3#215#1#12'ClientHeight'#3'v'#1#6
|
||||
+'Height'#3'v'#1#5'Width'#3#215#1#0#9'TGroupBox'#9'gbGeneral'#5'Align'#7#5'al'
|
||||
+'Top'#20'BorderSpacing.Around'#2#6#7'Caption'#6#7'General'#12'ClientHeight'#2
|
||||
+'r'#11'ClientWidth'#3#199#1#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Left'#2#6#6
|
||||
+'Height'#3#132#0#3'Top'#2#6#5'Width'#3#203#1#0#9'TCheckBox'#16'chkClearLogOn'
|
||||
+'Run'#11'AllowGrayed'#9#7'Caption'#6#16'Clear log on run'#8'TabOrder'#2#0#4
|
||||
+'Left'#2#4#6'Height'#2#13#3'Top'#2#5#5'Width'#2'^'#0#0#9'TCheckBox'#17'chkLi'
|
||||
+'mitLinecount'#11'AllowGrayed'#9#7'Caption'#6#18'Limit linecount to'#8'TabOr'
|
||||
+'der'#2#1#4'Left'#2#4#6'Height'#2#13#3'Top'#2#29#5'Width'#2'c'#0#0#9'TSpinEd'
|
||||
+'it'#16'seLimitLinecount'#7'Enabled'#8#8'TabOrder'#2#2#4'Left'#2'.'#6'Height'
|
||||
+#2#20#3'Top'#2'6'#5'Width'#2'N'#0#0#0#9'TGroupBox'#10'gbMessages'#5'Align'#7
|
||||
+#8'alClient'#20'BorderSpacing.Around'#2#6#7'Caption'#6#8'Messages'#12'Client'
|
||||
+'Height'#3#206#0#11'ClientWidth'#3#199#1#7'Enabled'#8#11'ParentCtl3D'#8#8'Ta'
|
||||
,'bOrder'#2#1#4'Left'#2#6#6'Height'#3#224#0#3'Top'#3#144#0#5'Width'#3#203#1#0
|
||||
+#9'TCheckBox'#21'chkMessagesBreakpoint'#11'AllowGrayed'#9#7'Caption'#6#10'Br'
|
||||
+'eakpoint'#8'TabOrder'#2#0#4'Left'#2#4#6'Height'#2#13#3'Top'#2#5#5'Width'#2
|
||||
+'G'#0#0#9'TCheckBox'#18'chkMessagesProcess'#11'AllowGrayed'#9#7'Caption'#6#7
|
||||
+'Process'#8'TabOrder'#2#1#4'Left'#2#4#6'Height'#2#13#3'Top'#2#29#5'Width'#2
|
||||
+':'#0#0#9'TCheckBox'#17'chkMessagesThread'#11'AllowGrayed'#9#7'Caption'#6#6
|
||||
+'Thread'#8'TabOrder'#2#2#4'Left'#2#4#6'Height'#2#13#3'Top'#2'5'#5'Width'#2'6'
|
||||
+#0#0#9'TCheckBox'#17'chkMessagesModule'#11'AllowGrayed'#9#7'Caption'#6#6'Mod'
|
||||
+'ule'#8'TabOrder'#2#3#4'Left'#2#4#6'Height'#2#13#3'Top'#2'M'#5'Width'#2'7'#0
|
||||
+#0#9'TCheckBox'#17'chkMessagesOutput'#11'AllowGrayed'#9#7'Caption'#6#6'Outpu'
|
||||
+'t'#8'TabOrder'#2#4#4'Left'#2#4#6'Height'#2#13#3'Top'#2'e'#5'Width'#2'4'#0#0
|
||||
+#9'TCheckBox'#17'chkMessagesWindow'#11'AllowGrayed'#9#7'Caption'#6#6'Window'
|
||||
+#8'TabOrder'#2#5#4'Left'#2#4#6'Height'#2#13#3'Top'#2'}'#5'Width'#2';'#0#0#9
|
||||
+'TCheckBox'#20'chkMessagesInterface'#11'AllowGrayed'#9#7'Caption'#6#9'Interf'
|
||||
+'ace'#8'TabOrder'#2#6#4'Left'#2#4#6'Height'#2#13#3'Top'#3#149#0#5'Width'#2'>'
|
||||
+#0#0#0#0#5'TPage'#12'pgExceptions'#7'Caption'#6#5'Page3'#11'ClientWidth'#3
|
||||
+#215#1#12'ClientHeight'#3'v'#1#6'Height'#3'v'#1#5'Width'#3#215#1#0#9'TGroupB'
|
||||
+'ox'#18'bgIgnoreExceptions'#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2
|
||||
+#6#7'Caption'#6#23'Ignore these exceptions'#12'ClientHeight'#3'E'#1#11'Clien'
|
||||
+'tWidth'#3#199#1#11'ParentCtl3D'#8#8'TabOrder'#2#0#4'Left'#2#6#6'Height'#3'W'
|
||||
+#1#3'Top'#2#6#5'Width'#3#203#1#0#7'TButton'#18'cmdExceptionRemove'#7'Anchors'
|
||||
+#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6#25'B'
|
||||
+'orderSpacing.InnerBorder'#2#2#7'Caption'#6#6'Remove'#7'Enabled'#8#7'OnClick'
|
||||
+#7#23'cmdExceptionRemoveCLICK'#8'TabOrder'#2#0#23'AnchorSideRight.Control'#7
|
||||
+#18'bgIgnoreExceptions'#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSid'
|
||||
+'eBottom.Control'#7#18'bgIgnoreExceptions'#21'AnchorSideBottom.Side'#7#9'asr'
|
||||
+'Bottom'#4'Left'#3#129#1#6'Height'#2#29#3'Top'#3'"'#1#5'Width'#2'@'#0#0#7'TB'
|
||||
+'utton'#15'cmdExceptionAdd'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSiz'
|
||||
+'e'#9#20'BorderSpacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#2#7'Capti'
|
||||
+'on'#6#3'Add'#7'OnClick'#7#20'cmdExceptionAddCLICK'#8'TabOrder'#2#1#23'Ancho'
|
||||
+'rSideRight.Control'#7#18'cmdExceptionRemove'#24'AnchorSideBottom.Control'#7
|
||||
+#18'bgIgnoreExceptions'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3'P'
|
||||
+#1#6'Height'#2#29#3'Top'#3'"'#1#5'Width'#2'+'#0#0#13'TCheckListBox'#13'clbEx'
|
||||
+'ceptions'#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8
|
||||
+'akBottom'#0#20'BorderSpacing.Around'#2#6#7'OnClick'#7#18'clbExceptionsCLICK'
|
||||
+#8'TabOrder'#2#2#20'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom'
|
||||
+'.Control'#7#15'cmdExceptionAdd'#4'Left'#2#6#6'Height'#3#22#1#3'Top'#2#6#5'W'
|
||||
+'idth'#3#187#1#0#0#0#9'TCheckBox'#19'chkBreakOnException'#5'Align'#7#8'alBot'
|
||||
+'tom'#11'AllowGrayed'#9#7'Anchors'#11#6'akLeft'#8'akBottom'#0#20'BorderSpaci'
|
||||
+'ng.Around'#2#6#7'Caption'#6#27'Break on Lazarus Exceptions'#8'TabOrder'#2#1
|
||||
+#4'Left'#2#6#6'Height'#2#13#3'Top'#3'c'#1#5'Width'#3#203#1#0#0#0#5'TPage'#9
|
||||
+'pgSignals'#7'Caption'#6#5'Page4'#11'ClientWidth'#3#215#1#12'ClientHeight'#3
|
||||
+'v'#1#6'Height'#3'v'#1#5'Width'#3#215#1#0#9'TGroupBox'#9'gbSignals'#5'Align'
|
||||
+#7#8'alClient'#20'BorderSpacing.Around'#2#6#7'Caption'#6#7'Signals'#12'Clien'
|
||||
+'tHeight'#3'X'#1#11'ClientWidth'#3#199#1#11'ParentCtl3D'#8#8'TabOrder'#2#0#4
|
||||
+'Left'#2#6#6'Height'#3'j'#1#3'Top'#2#6#5'Width'#3#203#1#0#7'TButton'#15'cmdS'
|
||||
+'ignalRemove'#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#20'Border'
|
||||
+'Spacing.Around'#2#6#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#6'Remove'
|
||||
+#7'Enabled'#8#8'TabOrder'#2#0#23'AnchorSideRight.Control'#7#9'gbSignals'#20
|
||||
+'AnchorSideRight.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#9'gbSig'
|
||||
+'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'
|
||||
+'.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'
|
||||
+'ght'#2#29#3'Top'#3#150#1#5'Width'#2'K'#0#0#7'TBitBtn'#7'btnHelp'#7'Anchors'
|
||||
+#11#6'akLeft'#8'akBottom'#0#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#5
|
||||
+'&Help'#21'Constraints.MaxHeight'#2#29#7'Enabled'#8#4'Kind'#7#6'bkHelp'#9'Nu'
|
||||
+'mGlyphs'#2#0#8'TabOrder'#2#3#4'Left'#2#6#6'Height'#2#29#3'Top'#3#150#1#5'Wi'
|
||||
+'dth'#2'K'#0#0#10'TPopupMenu'#9'popSignal'#4'left'#3#152#1#3'top'#2#20#0#9'T'
|
||||
+'MenuItem'#19'mnuHandledByProgram'#9'AutoCheck'#9#7'Caption'#6#18'Handled by'
|
||||
+' Program'#10'GroupIndex'#2#1#9'RadioItem'#9#0#0#9'TMenuItem'#21'mnuiHandled'
|
||||
+'ByDebugger'#9'AutoCheck'#9#7'Caption'#6#19'Handled by Debugger'#10'GroupInd'
|
||||
+'ex'#2#1#9'RadioItem'#9#0#0#9'TMenuItem'#2'N1'#7'Caption'#6#1'-'#0#0#9'TMenu'
|
||||
+'Item'#16'mnuResumeHandled'#9'AutoCheck'#9#7'Caption'#6#14'Resume Handled'#10
|
||||
,'GroupIndex'#2#2#9'RadioItem'#9#0#0#9'TMenuItem'#18'mnuResumeUnhandled'#9'Au'
|
||||
+'toCheck'#9#7'Caption'#6#16'Resume Unhandled'#10'GroupIndex'#2#2#9'RadioItem'
|
||||
+#9#0#0#0#0
|
||||
+#8'TabOrder'#2#2#23'AnchorSideRight.Control'#7#5'cmdOK'#24'AnchorSideBottom.'
|
||||
+'Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#3'K'#1
|
||||
+#6'Height'#2#29#3'Top'#3#156#1#5'Width'#2'P'#0#0#7'TBitBtn'#7'btnHelp'#7'Anc'
|
||||
+'hors'#11#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#20'BorderSpacing.Around'#2#6
|
||||
+#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#5'&Help'#21'Constraints.MaxH'
|
||||
+'eight'#2#29#7'Enabled'#8#4'Kind'#7#6'bkHelp'#9'NumGlyphs'#2#0#8'TabOrder'#2
|
||||
+#3#22'AnchorSideLeft.Control'#7#5'Owner'#24'AnchorSideBottom.Control'#7#5'Ow'
|
||||
+'ner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#29#3
|
||||
+'Top'#3#156#1#5'Width'#2'K'#0#0#10'TPopupMenu'#9'popSignal'#4'left'#3#152#1#3
|
||||
+'top'#2'`'#0#9'TMenuItem'#19'mnuHandledByProgram'#9'AutoCheck'#9#7'Caption'#6
|
||||
+#18'Handled by Program'#10'GroupIndex'#2#1#9'RadioItem'#9#0#0#9'TMenuItem'#21
|
||||
+'mnuiHandledByDebugger'#9'AutoCheck'#9#7'Caption'#6#19'Handled by Debugger'
|
||||
+#10'GroupIndex'#2#1#9'RadioItem'#9#0#0#9'TMenuItem'#2'N1'#7'Caption'#6#1'-'#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
|
||||
]);
|
||||
|
||||
@ -368,6 +368,47 @@ procedure TDebuggerOptionsForm.DebuggerOptionsFormCREATE(Sender: TObject);
|
||||
var
|
||||
n: Integer;
|
||||
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;
|
||||
|
||||
FExceptionDeleteList := TStringList.Create;
|
||||
|
||||
@ -2984,6 +2984,34 @@ resourcestring
|
||||
lisUnableToSetAnchorSideControl = 'Unable to set AnchorSide Control';
|
||||
lisAnchorEditorNoControlSelected = 'Anchor Editor - no control selected';
|
||||
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
|
||||
end.
|
||||
|
||||
@ -92,6 +92,9 @@ uses
|
||||
|
||||
|
||||
type
|
||||
|
||||
{ TGTKWidgetSet }
|
||||
|
||||
TGTKWidgetSet = class(TWidgetSet)
|
||||
protected
|
||||
FKeyStateList_: TFPList; // Keeps track of which keys are pressed
|
||||
@ -293,6 +296,7 @@ type
|
||||
procedure AppTerminate; override;
|
||||
procedure AppMinimize; override;
|
||||
procedure AppBringToFront; override;
|
||||
procedure AppSetTitle(const ATitle: string); override;
|
||||
public
|
||||
constructor Create;
|
||||
destructor Destroy; override;
|
||||
|
||||
@ -1863,6 +1863,14 @@ begin
|
||||
// TODO: Implement me!
|
||||
end;
|
||||
|
||||
{------------------------------------------------------------------------------
|
||||
procedure TGTKWidgetSet.AppSetTitle(const ATitle: string);
|
||||
-------------------------------------------------------------------------------}
|
||||
procedure TGTKWidgetSet.AppSetTitle(const ATitle: string);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
{------------------------------------------------------------------------------
|
||||
Method: TGtkWidgetSet.RecreateWnd
|
||||
Params: Sender: TObject - the lcl wincontrol, that is to recreated
|
||||
|
||||
@ -272,6 +272,7 @@ function ConvertLRSExtendedToDouble(p: Pointer): Double;
|
||||
procedure ConvertEndianBigDoubleToLRSExtended(BigEndianDouble,
|
||||
LRSExtended: Pointer);
|
||||
|
||||
function ReadLRSByte(s: TStream): byte;
|
||||
function ReadLRSWord(s: TStream): word;
|
||||
function ReadLRSInteger(s: TStream): integer;
|
||||
function ReadLRSCardinal(s: TStream): cardinal;
|
||||
@ -282,6 +283,8 @@ function ReadLRSExtended(s: TStream): Extended;
|
||||
function ReadLRSCurrency(s: TStream): Currency;
|
||||
function ReadLRSWideString(s: TStream): WideString;
|
||||
function ReadLRSEndianLittleExtendedAsDouble(s: TStream): Double;
|
||||
function ReadLRSValueType(s: TStream): TValueType;
|
||||
function ReadLRSInt64MB(s: TStream): int64;// multibyte
|
||||
|
||||
procedure WriteLRSWord(s: TStream; const w: word);
|
||||
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 WriteLRSCurrency(s: TStream; const c: Currency);
|
||||
procedure WriteLRSWideStringContent(s: TStream; const w: WideString);
|
||||
procedure WriteLRSInt64MB(s: TStream; const Value: integer);// multibyte
|
||||
|
||||
procedure WriteLRSReversedWord(s: TStream; w: word);
|
||||
procedure WriteLRS4BytesReversed(s: TStream; p: Pointer);
|
||||
@ -2449,6 +2453,12 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
function ReadLRSByte(s: TStream): byte;
|
||||
begin
|
||||
Result:=0;
|
||||
s.Read(Result,1);
|
||||
end;
|
||||
|
||||
function ReadLRSWord(s: TStream): word;
|
||||
begin
|
||||
Result:=0;
|
||||
@ -2551,6 +2561,29 @@ begin
|
||||
Result:=ConvertLRSExtendedToDouble(@e);
|
||||
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);
|
||||
begin
|
||||
w:=(w shr 8) or ((w and $ff) shl 8);
|
||||
@ -2741,6 +2774,39 @@ begin
|
||||
{$ENDIF}
|
||||
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 }
|
||||
|
||||
procedure TLRSObjectReader.Read(var Buf; Count: LongInt);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user