paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 10:56:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

merge r51050: ideintf, ide: change result type of TMainIDEBase.GetMainBar from TComponent to TForm. (needed for r51051 and r51055 #c91d201731)

Browse Source 
git-svn-id: branches/fixes_1_6@51057 -
This commit is contained in:
ondrej 2015-12-27 20:34:22 +00:00
parent 5334de92de
commit 6f2a1d05b7
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;