paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 18:00:37 +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; FBaseCaption: String;
FIsClosing: Boolean; FIsClosing: Boolean;
TabPopUpMenu, SrcPopUpMenu, DbgPopUpMenu: TPopupMenu; TabPopUpMenu, SrcPopUpMenu, DbgPopUpMenu: TPopupMenu;
procedure ExecuteEditorItemClick(Sender: TObject);
protected protected
procedure CompleteCodeMenuItemClick(Sender: TObject); procedure CompleteCodeMenuItemClick(Sender: TObject);
procedure ExtractProcMenuItemClick(Sender: TObject); procedure ExtractProcMenuItemClick(Sender: TObject);
@ -1246,17 +1247,6 @@ begin
Result := TSourceEditorManager(SourceEditorManagerIntf); Result := TSourceEditorManager(SourceEditorManagerIntf);
end; 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); procedure ExecuteIdeMenuClick(Sender: TObject);
var var
ActEdit: TSourceEditor; ActEdit: TSourceEditor;
@ -5464,7 +5454,7 @@ begin
if S <> EditorCur.FileName then if S <> EditorCur.FileName then
S := S +' in '+ExtractFileDir(EditorCur.FileName); S := S +' in '+ExtractFileDir(EditorCur.FileName);
RegisterIDEMenuCommand(SrcEditMenuSectionEditors, 'File'+IntToStr(i), RegisterIDEMenuCommand(SrcEditMenuSectionEditors, 'File'+IntToStr(i),
s, nil, @ExecuteEditorItemClick, nil, '', PtrUInt(EditorCur)); s, @ExecuteEditorItemClick, nil, nil, '', PtrUInt(EditorCur));
end; end;
PageList.Free; PageList.Free;
end; end;
@ -6867,6 +6857,17 @@ begin
Cursor:=crDefault; Cursor:=crDefault;
end; 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); procedure TSourceNotebook.CloseTabClicked(Sender: TObject);
begin begin
CloseClicked(Sender, CloseClicked(Sender,