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

IDEIntf: moved TAbstractIDEProjectOptions to unit projectintf, added TAbstractIDEProjectOptions.GetProject

Browse Source 
git-svn-id: trunk@57024 -
This commit is contained in:
mattias 2018-01-09 11:35:58 +00:00
parent 76a5a3cd5d
commit 391b8ffa36
6 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/ideintf/ideoptionsintf.pas
View File

@ -121,7 +121,6 @@ type
TAbstractIDEOptionsClass = class of TAbstractIDEOptions;
TAbstractIDEEnvironmentOptions = class(TAbstractIDEOptions);
TAbstractIDEProjectOptions = class(TAbstractIDEOptions);
TAbstractIDEHelpOptions = class(TAbstractIDEEnvironmentOptions);
TOnAddToRecent = procedure(Sender: TObject; AFileName: string; var AAllow: Boolean) of object;

1
components/ideintf/idewindowintf.pas
View File

@ -1150,6 +1150,7 @@ procedure TSimpleWindowLayout.LoadFromConfig(Config: TConfigStorage;
var
P: string;
begin
if FileVersion=0 then ;
// set all values to default
Clear;
// read settings

2
components/ideintf/maskpropedit.pas
View File

@ -44,7 +44,7 @@ type
TestMaskEdit: TMaskEdit;
OpenDialog1: TOpenDialog;
TestInputPanel: TPanel;
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure LoadSampleMasksButtonClick(Sender: TObject);
procedure SampleMasksListBoxDrawItem(Control: TWinControl; Index: Integer;
ARect: TRect; {%H-}State: TOwnerDrawState);

12
components/ideintf/projectintf.pas
View File

@ -16,9 +16,11 @@ unit ProjectIntf;
interface
uses
Classes, SysUtils, FileUtil, LazFileUtils, Controls, Forms, AvgLvlTree,
NewItemIntf, ProjPackIntf, CompOptsIntf, ObjInspStrConsts, IDEImagesIntf,
LazFileCache, LazMethodList, ImgList, Graphics, Contnrs;
Classes, SysUtils, Contnrs,
FileUtil, LazFileUtils, LazFileCache, LazMethodList, AvgLvlTree,
Controls, Forms, ImgList, Graphics,
IDEOptionsIntf, NewItemIntf, ProjPackIntf, CompOptsIntf, ObjInspStrConsts,
IDEImagesIntf;
const
FileDescGroupName = 'File';
@ -587,6 +589,10 @@ type
TLazProjectClass = class of TLazProject;
TAbstractIDEProjectOptions = class(TAbstractIDEOptions)
public
function GetProject: TLazProject; virtual; abstract;
end;
{ TProjectDescriptors }

1
components/pas2js/pjsprojectoptions.pp
View File

@ -38,7 +38,6 @@ type
procedure CheckServerOptions(aEnabled: Boolean);
function FillFilesCombo(PRJ: TLazProject): Integer;
procedure ToggleCB(CB: TCheckBox; aEnabled: Boolean);
public
function GetTitle: string; override;
procedure Setup({%H-}ADialog: TAbstractOptionsEditorDialog); override;

6
ide/project.pp
View File

@ -680,6 +680,7 @@ type
public
constructor Create(AProject: TProject);
destructor Destroy; override;
function GetProject: TLazProject; override;
class function GetInstance: TAbstractIDEOptions; override;
class function GetGroupCaption: string; override;
property Project: TProject read FProject;
@ -2639,6 +2640,11 @@ begin
inherited Destroy;
end;
function TProjectIDEOptions.GetProject: TLazProject;
begin
Result:=FProject;
end;
class function TProjectIDEOptions.GetInstance: TAbstractIDEOptions;
begin
if Project1<>nil then