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

IDE: fixed compilation

Browse Source 
git-svn-id: trunk@36211 -
This commit is contained in:
mattias 2012-03-22 08:13:40 +00:00
parent 633e9a700f
commit 71c8824d00
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packager/pkgmanager.pas
View File

@ -215,7 +215,7 @@ type
function GetSourceFilesOfOwners(OwnerList: TFPList): TStrings; override;
function GetPossibleOwnersOfUnit(const UnitFilename: string;
Flags: TPkgIntfOwnerSearchFlags): TFPList; override;
function GetPackageOfCurrentSourceEditor(out APackage: TLazPackage): TPkgFile;
function GetPackageOfCurrentSourceEditor(out APackage: TIDEPackage): TPkgFile;
function GetPackageOfSourceEditor(out APackage: TIDEPackage; ASrcEdit: TObject): TLazPackageFile; override;
function IsOwnerDependingOnPkg(AnOwner: TObject; const PkgName: string;
out DependencyOwner: TObject): boolean; override;
@ -516,11 +516,11 @@ end;
procedure TPkgManager.OnOpenPackageForCurrentSrcEditFile(Sender: TObject);
var
APackage: TLazPackage;
APackage: TIDEPackage;
begin
GetPackageOfCurrentSourceEditor(APackage);
if APackage<>nil then
DoOpenPackage(APackage,[],false);
if APackage is TLazPackage then
DoOpenPackage(TLazPackage(APackage),[],false);
end;
procedure TPkgManager.CreateIDEWindow(Sender: TObject; aFormName: string; var
@ -1716,7 +1716,7 @@ end;
procedure TPkgManager.OnSourceEditorPopupMenu(
const AddMenuItemProc: TAddMenuItemProc);
var
APackage: TLazPackage;
APackage: TIDEPackage;
begin
GetPackageOfCurrentSourceEditor(APackage);
if APackage<>nil then
@ -3185,7 +3185,7 @@ begin
FreeThenNil(Result);
end;
function TPkgManager.GetPackageOfCurrentSourceEditor(out APackage: TLazPackage
function TPkgManager.GetPackageOfCurrentSourceEditor(out APackage: TIDEPackage
): TPkgFile;
var
SrcEdit: TSourceEditor;