paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 01:19:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented saving breakpoints and watches

Browse Source 
git-svn-id: trunk@3088 -
This commit is contained in:
mattias 2002-08-18 08:57:34 +00:00
parent 7cf4e02090
commit 98132a1c7e
1 changed files with 55 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

109
ide/uniteditor.pp
View File

@ -60,8 +60,11 @@ type
TSourceNoteBook = class; TSourceNoteBook = class;
// -------------------------------------------------------------------------- // --------------------------------------------------------------------------
TSrcEditMarkerType = (semActiveBreakPoint, semInactiveBreakPoint, TSrcEditMarkerType = (
semInvalidBreakPoint); semActiveBreakPoint,
semInactiveBreakPoint,
semInvalidBreakPoint
);
TSrcEditMarkerTypes = set of TSrcEditMarkerType; TSrcEditMarkerTypes = set of TSrcEditMarkerType;
// -------------------------------------------------------------------------- // --------------------------------------------------------------------------
@ -285,21 +288,23 @@ type
property FileName: AnsiString read GetFileName; property FileName: AnsiString read GetFileName;
property InsertMode: Boolean read GetInsertmode; property InsertMode: Boolean read GetInsertmode;
property Modified: Boolean read GetModified write SetModified; property Modified: Boolean read GetModified write SetModified;
property OnAfterClose : TNotifyEvent read FOnAfterClose write FOnAfterClose; property OnAfterClose: TNotifyEvent read FOnAfterClose write FOnAfterClose;
property OnBeforeClose : TNotifyEvent read FOnBeforeClose write FOnBeforeClose; property OnBeforeClose: TNotifyEvent read FOnBeforeClose
property OnAfterOpen : TNotifyEvent read FOnAfterOpen write FOnAfterOpen; write FOnBeforeClose;
property OnBeforeOpen : TNotifyEvent read FOnBeforeOpen write FOnBeforeOpen; property OnAfterOpen: TNotifyEvent read FOnAfterOpen write FOnAfterOpen;
property OnAfterSave : TNotifyEvent read FOnAfterSave write FOnAfterSave; property OnBeforeOpen: TNotifyEvent read FOnBeforeOpen write FOnBeforeOpen;
property OnBeforeSave : TNotifyEvent read FOnBeforeSave write FOnBeforeSave; property OnAfterSave: TNotifyEvent read FOnAfterSave write FOnAfterSave;
property OnEditorChange: TNotifyEvent read FOnEditorChange write FOnEditorChange; property OnBeforeSave: TNotifyEvent read FOnBeforeSave write FOnBeforeSave;
property OnEditorChange: TNotifyEvent read FOnEditorChange
write FOnEditorChange;
property OnCreateBreakPoint: TOnCreateDeleteBreakPoint property OnCreateBreakPoint: TOnCreateDeleteBreakPoint
read FOnCreateBreakPoint write FOnCreateBreakPoint; read FOnCreateBreakPoint write FOnCreateBreakPoint;
property OnDeleteBreakPoint: TOnCreateDeleteBreakPoint property OnDeleteBreakPoint: TOnCreateDeleteBreakPoint
read FOnDeleteBreakPoint write FOnDeleteBreakPoint; read FOnDeleteBreakPoint write FOnDeleteBreakPoint;
property OnMouseMove : TMouseMoveEvent read FOnMouseMove write FOnMouseMove; property OnMouseMove: TMouseMoveEvent read FOnMouseMove write FOnMouseMove;
property OnMouseDown : TMouseEvent read FOnMouseDown write FOnMouseDown; property OnMouseDown: TMouseEvent read FOnMouseDown write FOnMouseDown;
property OnMouseUp : TMouseEvent read FOnMouseUp write FOnMouseUp; property OnMouseUp: TMouseEvent read FOnMouseUp write FOnMouseUp;
property OnKeyDown : TKeyEvent read FOnKeyDown write FOnKeyDown; property OnKeyDown: TKeyEvent read FOnKeyDown write FOnKeyDown;
property Owner: TComponent read FAOwner; property Owner: TComponent read FAOwner;
property PageName: string read FPageName write SetPageName; property PageName: string read FPageName write SetPageName;
property PopupMenu: TPopupMenu read FPopUpMenu write SetPopUpMenu; property PopupMenu: TPopupMenu read FPopUpMenu write SetPopUpMenu;
@ -555,61 +560,59 @@ type
SetBookmarkMenuItem : TMenuItem; SetBookmarkMenuItem : TMenuItem;
GotoBookmarkMenuItem : TMenuItem; GotoBookmarkMenuItem : TMenuItem;
property OnAddJumpPoint: TOnAddJumpPoint property OnAddJumpPoint: TOnAddJumpPoint
read FOnAddJumpPoint write FOnAddJumpPoint; read FOnAddJumpPoint write FOnAddJumpPoint;
property OnCloseClicked : TNotifyEvent property OnCloseClicked : TNotifyEvent
read FOnCloseClicked write FOnCloseClicked; read FOnCloseClicked write FOnCloseClicked;
property OnCtrlMouseUp: TMouseEvent property OnCtrlMouseUp: TMouseEvent
read FOnCtrlMouseUp write FOnCtrlMouseUp; read FOnCtrlMouseUp write FOnCtrlMouseUp;
property OnDeleteLastJumpPoint: TNotifyEvent property OnDeleteLastJumpPoint: TNotifyEvent
read FOnDeleteLastJumpPoint write FOnDeleteLastJumpPoint; read FOnDeleteLastJumpPoint write FOnDeleteLastJumpPoint;
property OnEditorVisibleChanged: TNotifyEvent property OnEditorVisibleChanged: TNotifyEvent
read FOnEditorVisibleChanged write FOnEditorVisibleChanged; read FOnEditorVisibleChanged write FOnEditorVisibleChanged;
property OnEditorChanged: TNotifyEvent property OnEditorChanged: TNotifyEvent
read FOnEditorChanged write FOnEditorChanged; read FOnEditorChanged write FOnEditorChanged;
property OnEditorPropertiesClicked: TNotifyEvent property OnEditorPropertiesClicked: TNotifyEvent
read FOnEditorPropertiesClicked write FOnEditorPropertiesClicked; read FOnEditorPropertiesClicked write FOnEditorPropertiesClicked;
property OnFindDeclarationClicked : TNotifyEvent property OnFindDeclarationClicked : TNotifyEvent
read FOnFindDeclarationClicked write FOnFindDeclarationClicked; read FOnFindDeclarationClicked write FOnFindDeclarationClicked;
property OnInitIdentCompletion: TOnInitIdentCompletion property OnInitIdentCompletion: TOnInitIdentCompletion
read FOnInitIdentCompletion write FOnInitIdentCompletion; read FOnInitIdentCompletion write FOnInitIdentCompletion;
property OnJumpToHistoryPoint: TOnJumpToHistoryPoint property OnJumpToHistoryPoint: TOnJumpToHistoryPoint
read FOnJumpToHistoryPoint write FOnJumpToHistoryPoint; read FOnJumpToHistoryPoint write FOnJumpToHistoryPoint;
property OnMovingPage: TOnMovingPage property OnMovingPage: TOnMovingPage read FOnMovingPage write FOnMovingPage;
read FOnMovingPage write FOnMovingPage; property OnNewClicked: TNotifyEvent read FOnNewClicked write FOnNewClicked;
property OnNewClicked : TNotifyEvent property OnOpenClicked: TNotifyEvent
read FOnNewClicked write FOnNewClicked; read FOnOPenClicked write FOnOpenClicked;
property OnOpenClicked : TNotifyEvent
read FOnOPenClicked write FOnOpenClicked;
property OnOpenFileAtCursorClicked : TNotifyEvent property OnOpenFileAtCursorClicked : TNotifyEvent
read FOnOpenFileAtCursorClicked write FOnOpenFileAtCursorClicked; read FOnOpenFileAtCursorClicked write FOnOpenFileAtCursorClicked;
property OnReadOnlyChanged: TNotifyEvent property OnReadOnlyChanged: TNotifyEvent
read fOnReadOnlyChanged write fOnReadOnlyChanged; read fOnReadOnlyChanged write fOnReadOnlyChanged;
property OnSaveAsClicked : TNotifyEvent property OnSaveAsClicked: TNotifyEvent
read FOnSaveAsClicked write FOnSaveAsClicked; read FOnSaveAsClicked write FOnSaveAsClicked;
property OnSaveAllClicked : TNotifyEvent property OnSaveAllClicked: TNotifyEvent
read FOnSaveAllClicked write FOnSaveAllClicked; read FOnSaveAllClicked write FOnSaveAllClicked;
property OnSaveClicked : TNotifyEvent property OnSaveClicked: TNotifyEvent
read FOnSaveClicked write FOnSaveClicked; read FOnSaveClicked write FOnSaveClicked;
property OnShowHintForSource: TOnShowHintForSource property OnShowHintForSource: TOnShowHintForSource
read FOnShowHintForSource write FOnShowHintForSource; read FOnShowHintForSource write FOnShowHintForSource;
property OnShowUnitInfo: TNotifyEvent property OnShowUnitInfo: TNotifyEvent
read FOnShowUnitInfo write FOnShowUnitInfo; read FOnShowUnitInfo write FOnShowUnitInfo;
property OnToggleFormUnitClicked : TNotifyEvent property OnToggleFormUnitClicked : TNotifyEvent
read FOnToggleFormUnitClicked write FOnToggleFormUnitClicked; read FOnToggleFormUnitClicked write FOnToggleFormUnitClicked;
property OnToggleObjectInspClicked : TNotifyEvent property OnToggleObjectInspClicked : TNotifyEvent
read FOnToggleObjectInspClicked write FOnToggleObjectInspClicked; read FOnToggleObjectInspClicked write FOnToggleObjectInspClicked;
property OnProcessUserCommand: TOnProcessUserCommand property OnProcessUserCommand: TOnProcessUserCommand
read FOnProcessUserCommand write FOnProcessUserCommand; read FOnProcessUserCommand write FOnProcessUserCommand;
property OnUserCommandProcessed: TOnUserCommandProcessed property OnUserCommandProcessed: TOnUserCommandProcessed
read FOnUserCommandProcessed write FOnUserCommandProcessed; read FOnUserCommandProcessed write FOnUserCommandProcessed;
property OnViewJumpHistory: TNotifyEvent property OnViewJumpHistory: TNotifyEvent
read FOnViewJumpHistory write FOnViewJumpHistory; read FOnViewJumpHistory write FOnViewJumpHistory;
property OnAddWatchAtCursor: TNotifyEvent property OnAddWatchAtCursor: TNotifyEvent
read FOnAddWatchAtCursor write FOnAddWatchAtCursor; read FOnAddWatchAtCursor write FOnAddWatchAtCursor;
property OnCreateBreakPoint: TOnCreateDeleteBreakPoint property OnCreateBreakPoint: TOnCreateDeleteBreakPoint
read FOnCreateBreakPoint write FOnCreateBreakPoint; read FOnCreateBreakPoint write FOnCreateBreakPoint;
property OnDeleteBreakPoint: TOnCreateDeleteBreakPoint property OnDeleteBreakPoint: TOnCreateDeleteBreakPoint
read FOnDeleteBreakPoint write FOnDeleteBreakPoint; read FOnDeleteBreakPoint write FOnDeleteBreakPoint;
end; end;
//============================================================================= //=============================================================================
@ -1176,8 +1179,7 @@ begin
for n := 1 to maxMarks do for n := 1 to maxMarks do
begin begin
Result := AllMarks[n]; Result := AllMarks[n];
if IsBreakPointMark(Result) if IsBreakPointMark(Result) then Exit;
then Exit;
end; end;
Result := nil; Result := nil;
end; end;
@ -1197,7 +1199,6 @@ begin
end; end;
BreakPtMark.Visible := True; BreakPtMark.Visible := True;
BreakPtMark.ImageIndex := SRCEDITMARKERIMGINDEX[AType]; BreakPtMark.ImageIndex := SRCEDITMARKERIMGINDEX[AType];
FModified:=true;
end; end;
procedure TSourceEditor.RemoveBreakPoint(const ALine: Integer); procedure TSourceEditor.RemoveBreakPoint(const ALine: Integer);
@ -3991,13 +3992,13 @@ end;
Procedure TSourceNotebook.BreakPointCreated(Sender : TObject; Line : Integer); Procedure TSourceNotebook.BreakPointCreated(Sender : TObject; Line : Integer);
begin begin
if Assigned(OnCreateBreakPoint) then if Assigned(OnCreateBreakPoint) then
OnCreateBreakPoint(self,Line); OnCreateBreakPoint(self,Line);
end; end;
Procedure TSourceNotebook.BreakPointDeleted(Sender : TObject; Line : Integer); Procedure TSourceNotebook.BreakPointDeleted(Sender : TObject; Line : Integer);
begin begin
if Assigned(OnDeleteBreakPoint) then if Assigned(OnDeleteBreakPoint) then
OnDeleteBreakPoint(self,Line); OnDeleteBreakPoint(self,Line);
end; end;
procedure TSourceNotebook.SetIncrementalSearchStr(const AValue: string); procedure TSourceNotebook.SetIncrementalSearchStr(const AValue: string);