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

SrcEdit: Made menu callback a method

Browse Source 
git-svn-id: trunk@36207 -
This commit is contained in:
martin 2012-03-22 01:49:18 +00:00
parent d3f4aeb959
commit 936ca11193
1 changed files with 13 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
ide/sourceeditor.pp
View File

@ -558,6 +558,7 @@ type
FBaseCaption: String;
FIsClosing: Boolean;
TabPopUpMenu, SrcPopUpMenu, DbgPopUpMenu: TPopupMenu;
procedure ExecuteEditorItemClick(Sender: TObject);
protected
procedure CompleteCodeMenuItemClick(Sender: TObject);
procedure ExtractProcMenuItemClick(Sender: TObject);
@ -1246,17 +1247,6 @@ begin
Result := TSourceEditorManager(SourceEditorManagerIntf);
end;
procedure ExecuteEditorItemClick(Sender: TObject);
var
Editor: TSourceEditor;
begin
if SourceEditorManager = nil then exit;
Editor := TSourceEditor((sender as TIDEMenuCommand).UserTag);
SourceEditorManager.ActiveEditor :=Editor;
SourceEditorManager.ShowActiveWindowOnTop(True);
end;
procedure ExecuteIdeMenuClick(Sender: TObject);
var
ActEdit: TSourceEditor;
@ -5464,7 +5454,7 @@ begin
if S <> EditorCur.FileName then
S := S +' in '+ExtractFileDir(EditorCur.FileName);
RegisterIDEMenuCommand(SrcEditMenuSectionEditors, 'File'+IntToStr(i),
s, nil, @ExecuteEditorItemClick, nil, '', PtrUInt(EditorCur));
s, @ExecuteEditorItemClick, nil, nil, '', PtrUInt(EditorCur));
end;
PageList.Free;
end;
@ -6867,6 +6857,17 @@ begin
Cursor:=crDefault;
end;
procedure TSourceNotebook.ExecuteEditorItemClick(Sender: TObject);
var
Editor: TSourceEditor;
begin
if SourceEditorManager = nil then exit;
Editor := TSourceEditor((sender as TIDEMenuCommand).UserTag);
SourceEditorManager.ActiveEditor :=Editor;
SourceEditorManager.ShowActiveWindowOnTop(True);
end;
procedure TSourceNotebook.CloseTabClicked(Sender: TObject);
begin
CloseClicked(Sender,