paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 08:59:13 +02: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; property ToolStatus: TLazToolStatus read FToolStatus write SetToolStatus;
// the main window with the IDE menu // the main window with the IDE menu
function GetMainBar: TComponent; virtual; abstract; function GetMainBar: TForm; virtual; abstract;
property MainBarSubTitle: string read FMainBarSubTitle write SetMainBarSubTitle; property MainBarSubTitle: string read FMainBarSubTitle write SetMainBarSubTitle;
// find file // find file

4
ide/mainbase.pas
View File

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