mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-22 05:59:28 +02:00
added keys for adding/deleting breakpoints
git-svn-id: trunk@5529 -
This commit is contained in:
mattias
parent
99c7244234
commit
39b476ca50
@ -79,14 +79,6 @@ const
|
||||
ecOpenFileAtCursor = ecUserFirst + 23;
|
||||
ecGotoIncludeDirective = ecUserFirst + 24;
|
||||
|
||||
// source notebook
|
||||
ecNextEditor = ecUserFirst + 30;
|
||||
ecPrevEditor = ecUserFirst + 31;
|
||||
ecMoveEditorLeft = ecUserFirst + 32;
|
||||
ecMoveEditorRight = ecUserFirst + 33;
|
||||
|
||||
ecPeriod = ecUserFirst + 40;
|
||||
|
||||
// edit selection
|
||||
ecSelectionUpperCase = ecUserFirst + 50;
|
||||
ecSelectionLowerCase = ecUserFirst + 51;
|
||||
@ -163,6 +155,12 @@ const
|
||||
ecToggleSearchResults = ecUserFirst + 314;
|
||||
|
||||
// sourcenotebook commands
|
||||
ecNextEditor = ecUserFirst + 330;
|
||||
ecPrevEditor = ecUserFirst + 331;
|
||||
ecMoveEditorLeft = ecUserFirst + 332;
|
||||
ecMoveEditorRight = ecUserFirst + 333;
|
||||
ecAddBreakPoint = ecUserFirst + 334;
|
||||
ecRemoveBreakPoint = ecUserFirst + 335;
|
||||
ecGotoEditor1 = ecUserFirst + 350;
|
||||
ecGotoEditor2 = ecGotoEditor1 + 1;
|
||||
ecGotoEditor3 = ecGotoEditor2 + 1;
|
||||
@ -572,6 +570,10 @@ begin
|
||||
// source notebook
|
||||
ecNextEditor: SetResult(VK_TAB, [ssCtrl], VK_UNKNOWN, []);
|
||||
ecPrevEditor: SetResult(VK_TAB, [ssShift,ssCtrl], VK_UNKNOWN, []);
|
||||
ecResetDebugger: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
|
||||
ecAddBreakPoint: SetResult(VK_F5,[],VK_UNKNOWN,[]);
|
||||
ecMoveEditorLeft: SetResult(VK_UNKNOWN, [], VK_UNKNOWN, []);
|
||||
ecMoveEditorRight: SetResult(VK_UNKNOWN, [], VK_UNKNOWN, []);
|
||||
ecGotoEditor1: SetResult(VK_1,[ssAlt],VK_UNKNOWN,[]);
|
||||
ecGotoEditor2: SetResult(VK_2,[ssAlt],VK_UNKNOWN,[]);
|
||||
ecGotoEditor3: SetResult(VK_3,[ssAlt],VK_UNKNOWN,[]);
|
||||
@ -582,8 +584,6 @@ begin
|
||||
ecGotoEditor8: SetResult(VK_8,[ssAlt],VK_UNKNOWN,[]);
|
||||
ecGotoEditor9: SetResult(VK_9,[ssAlt],VK_UNKNOWN,[]);
|
||||
ecGotoEditor0: SetResult(VK_0,[ssAlt],VK_UNKNOWN,[]);
|
||||
ecMoveEditorLeft: SetResult(VK_UNKNOWN, [], VK_UNKNOWN, []);
|
||||
ecMoveEditorRight: SetResult(VK_UNKNOWN, [], VK_UNKNOWN, []);
|
||||
|
||||
// file menu
|
||||
ecNew: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
|
||||
@ -640,7 +640,7 @@ begin
|
||||
ecStepOver: SetResult(VK_F8,[],VK_UNKNOWN,[]);
|
||||
ecRunToCursor: SetResult(VK_F4,[],VK_UNKNOWN,[]);
|
||||
ecStopProgram: SetResult(VK_F2,[SSCtrl],VK_UNKNOWN,[]);
|
||||
ecResetDebugger: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
|
||||
ecRemoveBreakPoint: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
|
||||
ecCompilerOptions: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
|
||||
ecRunParameters: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
|
||||
ecBuildFile: SetResult(VK_UNKNOWN,[],VK_UNKNOWN,[]);
|
||||
@ -1051,7 +1051,6 @@ begin
|
||||
ecGotoMarker9 : Result:= Format(srkmecGotoMarker,[cmd-ecGotoMarker0]);
|
||||
ecSetMarker0 ..
|
||||
ecSetMarker9 : Result:= Format(srkmecSetMarker,[cmd-ecSetMarker0]);
|
||||
ecPeriod : Result:= srkmecPeriod;
|
||||
|
||||
// sourcenotebook
|
||||
ecJumpToEditor : Result:= srkmecJumpToEditor;
|
||||
@ -1059,6 +1058,8 @@ begin
|
||||
ecPrevEditor : Result:= srkmecPrevEditor;
|
||||
ecMoveEditorLeft : Result:= srkmecMoveEditorLeft;
|
||||
ecMoveEditorRight : Result:= srkmecMoveEditorRight;
|
||||
ecAddBreakPoint : Result:= srkmecAddBreakPoint;
|
||||
ecRemoveBreakPoint : Result:= srkmecRemoveBreakPoint;
|
||||
ecGotoEditor1..
|
||||
ecGotoEditor0 : Result:= Format(srkmecGotoEditor,[cmd-ecGotoEditor1]);
|
||||
|
||||
@ -1940,6 +1941,10 @@ begin
|
||||
C:=Categories[AddCategory('SourceNotebook',srkmCatSrcNoteBook,caAll)];
|
||||
AddDefault(C,'Go to next editor',ecNextEditor);
|
||||
AddDefault(C,'Go to prior editor',ecPrevEditor);
|
||||
AddDefault(C,'Add break point',ecAddBreakPoint);
|
||||
AddDefault(C,'Remove break point',ecRemoveBreakPoint);
|
||||
AddDefault(C,'Move editor left',ecMoveEditorLeft);
|
||||
AddDefault(C,'Move editor right',ecMoveEditorRight);
|
||||
AddDefault(C,'Go to source editor 1',ecGotoEditor1);
|
||||
AddDefault(C,'Go to source editor 2',ecGotoEditor2);
|
||||
AddDefault(C,'Go to source editor 3',ecGotoEditor3);
|
||||
@ -1950,8 +1955,6 @@ begin
|
||||
AddDefault(C,'Go to source editor 8',ecGotoEditor8);
|
||||
AddDefault(C,'Go to source editor 9',ecGotoEditor9);
|
||||
AddDefault(C,'Go to source editor 10',ecGotoEditor0);
|
||||
AddDefault(C,'Move editor left',ecMoveEditorLeft);
|
||||
AddDefault(C,'Move editor right',ecMoveEditorRight);
|
||||
|
||||
// file menu
|
||||
C:=Categories[AddCategory('FileMenu',srkmCatFileMenu,caAll)];
|
||||
|
||||
@ -1103,7 +1103,6 @@ resourcestring
|
||||
srkmecUserFirst = 'User First';
|
||||
srkmecGotoMarker = 'Go to Marker %d';
|
||||
srkmecSetMarker = 'Set Marker %d';
|
||||
srkmecPeriod = 'period';
|
||||
|
||||
// sourcenotebook
|
||||
srkmecJumpToEditor = 'Focus to source editor';
|
||||
@ -1185,6 +1184,8 @@ resourcestring
|
||||
srkmecPause = 'pause program';
|
||||
srkmecStopProgram = 'stop program';
|
||||
srkmecResetDebugger = 'reset debugger';
|
||||
srkmecAddBreakPoint = 'add break point';
|
||||
srkmecRemoveBreakPoint = 'remove break point';
|
||||
srkmecRunParameters = 'run parameters';
|
||||
srkmecCompilerOptions = 'compiler options';
|
||||
srkmecBuildFile = 'build file';
|
||||
|
||||
@ -2021,6 +2021,12 @@ begin
|
||||
|
||||
ecAboutLazarus:
|
||||
mnuHelpAboutLazarusClicked(Self);
|
||||
|
||||
ecAddBreakPoint:
|
||||
SourceNotebook.AddBreakpointClicked(Self);
|
||||
|
||||
ecRemoveBreakPoint:
|
||||
SourceNotebook.DeleteBreakpointClicked(Self);
|
||||
|
||||
else
|
||||
Handled:=false;
|
||||
@ -10414,6 +10420,9 @@ end.
|
||||
|
||||
{ =============================================================================
|
||||
$Log$
|
||||
Revision 1.728 2004/05/29 18:56:05 mattias
|
||||
added keys for adding/deleting breakpoints
|
||||
|
||||
Revision 1.727 2004/05/29 17:20:05 mattias
|
||||
implemented handling keys in IDE windows
|
||||
|
||||
|
||||
@ -339,6 +339,7 @@ type
|
||||
ViewCallStackMenuItem: TMenuItem;
|
||||
EditorPropertiesMenuItem: TMenuItem;
|
||||
Procedure AddBreakpointClicked(Sender: TObject);
|
||||
Procedure DeleteBreakpointClicked(Sender: TObject);
|
||||
procedure RunToClicked(Sender: TObject);
|
||||
procedure ViewCallStackClick(Sender: TObject);
|
||||
Procedure AddWatchAtCursor(Sender: TObject);
|
||||
@ -979,7 +980,7 @@ end;
|
||||
Procedure TSourceEditor.ProcessUserCommand(Sender: TObject;
|
||||
var Command: TSynEditorCommand; var AChar: char; Data: pointer);
|
||||
var
|
||||
Y,I: Integer;
|
||||
I: Integer;
|
||||
P: TPoint;
|
||||
Texts, Texts2: String;
|
||||
Handled: boolean;
|
||||
@ -1048,20 +1049,6 @@ Begin
|
||||
ecGotoLineNumber :
|
||||
ShowGotoLineDialog;
|
||||
|
||||
ecPeriod :
|
||||
Begin
|
||||
Y := CurrentCursorYLine;
|
||||
Texts := Lowercase(Source.Strings[Y-1]);
|
||||
if InsertMode then
|
||||
Texts := Copy(Texts,1,CurrentCursorXLine)+'.'
|
||||
+Copy(Texts,CurrentCursorXLine+1,Length(Texts))
|
||||
else
|
||||
Texts[CurrentCursorXLine] := '.';
|
||||
Source.Strings[Y-1] := Texts;
|
||||
IdentCompletionTimer.OnTimer := @CCOnTimer;
|
||||
IdentCompletionTimer.Enabled := True;
|
||||
end;
|
||||
|
||||
ecSelectionEnclose:
|
||||
EncloseSelection;
|
||||
|
||||
@ -3814,6 +3801,16 @@ begin
|
||||
ASrcEdit.EditorComponent.CaretY);
|
||||
end;
|
||||
|
||||
procedure TSourceNotebook.DeleteBreakpointClicked(Sender: TObject);
|
||||
var
|
||||
ASrcEdit: TSourceEditor;
|
||||
begin
|
||||
ASrcEdit:=GetActiveSE;
|
||||
if ASrcEdit=nil then exit;
|
||||
DebugBoss.DoDeleteBreakPoint(ASrcEdit.Filename,
|
||||
ASrcEdit.EditorComponent.CaretY);
|
||||
end;
|
||||
|
||||
procedure TSourceNotebook.RunToClicked(Sender: TObject);
|
||||
var
|
||||
ASrcEdit: TSourceEditor;
|
||||
|
||||
Loading…
Reference in New Issue
Block a user