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

IDE: clean up

Browse Source 
git-svn-id: trunk@45273 -
This commit is contained in:
mattias 2014-05-31 23:20:10 +00:00
parent 46713481f5
commit 4e49bc99a1
2 changed files with 1 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/sourceeditor.pp
View File

@ -1141,7 +1141,6 @@ type
procedure OnWordCompletionGetSource(var Source: TStrings; SourceIndex: integer);
procedure OnSourceCompletionTimer(Sender: TObject);
// marks
function OnSourceMarksGetFilename(ASourceEditor: TObject): string;
procedure OnSourceMarksAction(AMark: TSourceMark; AAction: TMarksAction);
{$IFDEF EnableNewExtTools}
procedure OnSourceMarksGetSynEdit(Sender: TObject; aFilename: string;
@ -10394,14 +10393,6 @@ begin
end;
end;
function TSourceEditorManager.OnSourceMarksGetFilename(ASourceEditor: TObject
): string;
begin
if (ASourceEditor = nil) or (not (ASourceEditor is TSourceEditor)) then
RaiseException('TSourceNotebook.OnSourceMarksGetFilename');
Result := TSourceEditor(ASourceEditor).Filename;
end;
procedure TSourceEditorManager.OnSourceMarksAction(AMark: TSourceMark;
AAction: TMarksAction);
var
@ -10478,7 +10469,6 @@ begin
// marks
SourceEditorMarks:=TSourceMarks.Create(Self);
SourceEditorMarks.OnGetFilename:=@OnSourceMarksGetFilename;
SourceEditorMarks.OnAction:=@OnSourceMarksAction;
{$IFDEF EnableNewExtTools}
SourceEditorMarks.ExtToolsMarks.OnGetSynEditOfFile:=@OnSourceMarksGetSynEdit;
@ -10513,7 +10503,6 @@ end;
destructor TSourceEditorManager.Destroy;
begin
SourceEditorMarks.OnGetFilename := nil;
SourceEditorMarks.OnAction := nil;
Application.RemoveAllHandlersOfObject(Self);
// aWordCompletion is released in InternalFinal

16
ide/sourcemarks.pas
View File

@ -201,7 +201,6 @@ type
fInvalidDisabledBreakPointImg: Integer;
fItems: TList;// list of TSourceMark
fMultiBreakPointImg: Integer;
FOnGetFilename: TGetFilenameEvent;
FOnAction: TMarksActionEvent;
fSortedItems: TAVLTree;// tree of TSourceMark
fUnknownBreakPointImg: Integer;
@ -219,7 +218,6 @@ type
function AddCustomMark(TheOwner: TSourceEditorBase; Data: TObject;
MarkClass: TSourceMarkClass): TSourceMark;
function AddImage(const ResName: string): integer;
function GetFilename(AMark: TSourceMark): string;
procedure Clear;
procedure Delete(Index: integer);
procedure Remove(AMark: TSourceMark);
@ -234,8 +232,6 @@ type
public
property ImgList: TImageList read FImgList write FImgList;
property Items[Index: integer]: TSourceMark read GetItems; default;
property OnGetFilename: TGetFilenameEvent read FOnGetFilename
write FOnGetFilename;
property OnAction: TMarksActionEvent read FOnAction write FOnAction;
{$IFDEF EnableNewExtTools}
property ExtToolsMarks: TETMarks read FExtToolsMarks;
@ -458,9 +454,7 @@ end;
function TSourceMark.GetFilename: string;
begin
Result:='';
if FSourceMarks=nil then exit;
Result:=FSourceMarks.GetFilename(Self);
Result:=FSourceEditorID.Filename;
end;
function TSourceMark.GetHint: string;
@ -827,14 +821,6 @@ begin
Result := ImgList.AddResourceName(HInstance, Resname);
end;
function TSourceMarks.GetFilename(AMark: TSourceMark): string;
begin
Result:='';
if (AMark=nil) or (not Assigned(OnGetFilename)) then exit;
if AMark.SourceEditor=nil then exit;
Result:=OnGetFilename(AMark.SourceEditor);
end;
initialization
SourceEditorMarks:=nil;