paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 01:29:08 +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

23
ide/uniteditor.pp
View File

@ -60,8 +60,11 @@ type
TSourceNoteBook = class;
// --------------------------------------------------------------------------
TSrcEditMarkerType = (semActiveBreakPoint, semInactiveBreakPoint,
semInvalidBreakPoint);
TSrcEditMarkerType = (
semActiveBreakPoint,
semInactiveBreakPoint,
semInvalidBreakPoint
);
TSrcEditMarkerTypes = set of TSrcEditMarkerType;
// --------------------------------------------------------------------------
@ -286,12 +289,14 @@ type
property InsertMode: Boolean read GetInsertmode;
property Modified: Boolean read GetModified write SetModified;
property OnAfterClose: TNotifyEvent read FOnAfterClose write FOnAfterClose;
property OnBeforeClose : TNotifyEvent read FOnBeforeClose write FOnBeforeClose;
property OnBeforeClose: TNotifyEvent read FOnBeforeClose
write FOnBeforeClose;
property OnAfterOpen: TNotifyEvent read FOnAfterOpen write FOnAfterOpen;
property OnBeforeOpen: TNotifyEvent read FOnBeforeOpen write FOnBeforeOpen;
property OnAfterSave: TNotifyEvent read FOnAfterSave write FOnAfterSave;
property OnBeforeSave: TNotifyEvent read FOnBeforeSave write FOnBeforeSave;
property OnEditorChange: TNotifyEvent read FOnEditorChange write FOnEditorChange;
property OnEditorChange: TNotifyEvent read FOnEditorChange
write FOnEditorChange;
property OnCreateBreakPoint: TOnCreateDeleteBreakPoint
read FOnCreateBreakPoint write FOnCreateBreakPoint;
property OnDeleteBreakPoint: TOnCreateDeleteBreakPoint
@ -574,10 +579,8 @@ type
read FOnInitIdentCompletion write FOnInitIdentCompletion;
property OnJumpToHistoryPoint: TOnJumpToHistoryPoint
read FOnJumpToHistoryPoint write FOnJumpToHistoryPoint;
property OnMovingPage: TOnMovingPage
read FOnMovingPage write FOnMovingPage;
property OnNewClicked : TNotifyEvent
read FOnNewClicked write FOnNewClicked;
property OnMovingPage: TOnMovingPage read FOnMovingPage write FOnMovingPage;
property OnNewClicked: TNotifyEvent read FOnNewClicked write FOnNewClicked;
property OnOpenClicked: TNotifyEvent
read FOnOPenClicked write FOnOpenClicked;
property OnOpenFileAtCursorClicked : TNotifyEvent
@ -1176,8 +1179,7 @@ begin
for n := 1 to maxMarks do
begin
Result := AllMarks[n];
if IsBreakPointMark(Result)
then Exit;
if IsBreakPointMark(Result) then Exit;
end;
Result := nil;
end;
@ -1197,7 +1199,6 @@ begin
end;
BreakPtMark.Visible := True;
BreakPtMark.ImageIndex := SRCEDITMARKERIMGINDEX[AType];
FModified:=true;
end;
procedure TSourceEditor.RemoveBreakPoint(const ALine: Integer);