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

ide: fix compilation with the fpc trunk

Browse Source 
git-svn-id: trunk@23410 -
This commit is contained in:
paul 2010-01-09 18:56:43 +00:00
parent ae015bc313
commit 4a17de49ea
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/mainintf.pas
View File

@ -183,8 +183,8 @@ type
procedure FindInFilesPerDialog(AProject: TProject); virtual; abstract;
procedure FindInFiles(AProject: TProject; const FindText: string); virtual; abstract;
function GetPrimaryConfigPath: String; override;
function GetSecondaryConfigPath: String; override;
class function GetPrimaryConfigPath: String; override;
class function GetSecondaryConfigPath: String; override;
procedure CopySecondaryConfigFile(const AFilename: String); override;
function GetRemoteControlFilename: string;
@ -375,12 +375,12 @@ begin
UpdateCaption;
end;
function TMainIDEInterface.GetPrimaryConfigPath: String;
class function TMainIDEInterface.GetPrimaryConfigPath: String;
begin
Result:=LazConf.GetPrimaryConfigPath;
end;
function TMainIDEInterface.GetSecondaryConfigPath: String;
class function TMainIDEInterface.GetSecondaryConfigPath: String;
begin
Result:=LazConf.GetSecondaryConfigPath;
end;

4
ideintf/lazideintf.pas
View File

@ -212,8 +212,8 @@ type
Flags: TProjectBuildFlags): TModalResult; virtual; abstract;
// configs
function GetPrimaryConfigPath: String; virtual; abstract;
function GetSecondaryConfigPath: String; virtual; abstract;
class function GetPrimaryConfigPath: String; virtual; abstract;
class function GetSecondaryConfigPath: String; virtual; abstract;
procedure CopySecondaryConfigFile(const AFilename: String); virtual; abstract;
procedure DoOpenIDEOptions(AEditor: TAbstractIDEOptionsEditorClass = nil;
ACaption: String = '';