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

ideintf, ide: change result type of TMainIDEBase.GetMainBar from TComponent to TForm.

Browse Source 
It was an unnecessary limitation because there is Forms dependency in both units already.

git-svn-id: trunk@51050 -
This commit is contained in:
ondrej 2015-12-27 11:38:55 +00:00
parent 574bda0e99
commit f1c10c63a7
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/lazideintf.pas
View File

@ -297,7 +297,7 @@ type
property ToolStatus: TLazToolStatus read FToolStatus write SetToolStatus;
// the main window with the IDE menu
function GetMainBar: TComponent; virtual; abstract;
function GetMainBar: TForm; virtual; abstract;
property MainBarSubTitle: string read FMainBarSubTitle write SetMainBarSubTitle;
// find file

4
ide/mainbase.pas
View File

@ -137,7 +137,7 @@ type
procedure StartIDE; virtual; abstract;
destructor Destroy; override;
procedure CreateOftenUsedForms; virtual; abstract;
function GetMainBar: TComponent; override;
function GetMainBar: TForm; override;
procedure SetRecentProjectFilesMenu;
procedure SetRecentFilesMenu;
function BeginCodeTool(var ActiveSrcEdit: TSourceEditor;
@ -705,7 +705,7 @@ begin
ActiveUnitInfo:=AnUnitInfo;
end;
function TMainIDEBase.GetMainBar: TComponent;
function TMainIDEBase.GetMainBar: TForm;
begin
Result:=MainIDEBar;
end;