paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 20:59:12 +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; TSourceNoteBook = class;
// -------------------------------------------------------------------------- // --------------------------------------------------------------------------
TSrcEditMarkerType = (semActiveBreakPoint, semInactiveBreakPoint, TSrcEditMarkerType = (
semInvalidBreakPoint); semActiveBreakPoint,
semInactiveBreakPoint,
semInvalidBreakPoint
);
TSrcEditMarkerTypes = set of TSrcEditMarkerType; TSrcEditMarkerTypes = set of TSrcEditMarkerType;
// -------------------------------------------------------------------------- // --------------------------------------------------------------------------
@ -286,12 +289,14 @@ type
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
write FOnBeforeClose;
property OnAfterOpen: TNotifyEvent read FOnAfterOpen write FOnAfterOpen; property OnAfterOpen: TNotifyEvent read FOnAfterOpen write FOnAfterOpen;
property OnBeforeOpen: TNotifyEvent read FOnBeforeOpen write FOnBeforeOpen; property OnBeforeOpen: TNotifyEvent read FOnBeforeOpen write FOnBeforeOpen;
property OnAfterSave: TNotifyEvent read FOnAfterSave write FOnAfterSave; property OnAfterSave: TNotifyEvent read FOnAfterSave write FOnAfterSave;
property OnBeforeSave: TNotifyEvent read FOnBeforeSave write FOnBeforeSave; property OnBeforeSave: TNotifyEvent read FOnBeforeSave write FOnBeforeSave;
property OnEditorChange: TNotifyEvent read FOnEditorChange write FOnEditorChange; 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
@ -574,10 +579,8 @@ type
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
read FOnNewClicked write FOnNewClicked;
property OnOpenClicked: TNotifyEvent property OnOpenClicked: TNotifyEvent
read FOnOPenClicked write FOnOpenClicked; read FOnOPenClicked write FOnOpenClicked;
property OnOpenFileAtCursorClicked : TNotifyEvent property OnOpenFileAtCursorClicked : TNotifyEvent
@ -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);