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

adjusted to changes in projectinf

Browse Source 
git-svn-id: trunk@7213 -
This commit is contained in:
vincents 2005-05-29 07:46:36 +00:00
parent e41957a477
commit e87eaba40e
2 changed files with 22 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/cgi/ide/cgilazideintf.pas
View File

@ -34,7 +34,8 @@ unit CGILazIDEIntf;
interface
uses
Classes, SysUtils, cgiApp, cgiModules, LazIDEIntf, ProjectIntf;
Classes, SysUtils, cgiApp, cgiModules, LazIDEIntf, ProjectIntf,
Controls, Forms;
type
{ TCGIApplicationDescriptor }
@ -44,8 +45,8 @@ type
constructor Create; override;
function GetLocalizedName: string; override;
function GetLocalizedDescription: string; override;
procedure InitProject(AProject: TLazProject); override;
procedure CreateStartFiles(AProject: TLazProject); override;
function InitProject(AProject: TLazProject): TModalResult; override;
function CreateStartFiles(AProject: TLazProject): TModalResult; override;
end;
{ TFileDescPascalUnitWithCGIDataModule }
@ -94,7 +95,7 @@ begin
+'automatically maintained by Lazarus.';
end;
procedure TCGIApplicationDescriptor.InitProject(AProject: TLazProject);
function TCGIApplicationDescriptor.InitProject(AProject: TLazProject): TModalResult;
var
le: string;
NewSource: String;
@ -132,12 +133,14 @@ begin
// compiler options
AProject.LazCompilerOptions.Win32GraphicApp:=false;
Result:= mrOK;
end;
procedure TCGIApplicationDescriptor.CreateStartFiles(AProject: TLazProject);
function TCGIApplicationDescriptor.CreateStartFiles(AProject: TLazProject): TModalResult;
begin
LazarusIDE.DoNewEditorFile(FileDescriptorCGIModule,'','',
[nfIsPartOfProject,nfOpenInEditor,nfCreateDefaultSrc]);
Result:= mrOK;
end;
{ TFileDescPascalUnitWithCGIDataModule }

24
components/fpcunit/ide/fpcunitlazideintf.pas
View File

@ -42,8 +42,8 @@ type
constructor Create; override;
function GetLocalizedName: string; override;
function GetLocalizedDescription: string; override;
procedure InitProject(AProject: TLazProject); override;
procedure CreateStartFiles(AProject: TLazProject); override;
function InitProject(AProject: TLazProject): TModalResult; override;
function CreateStartFiles(AProject: TLazProject): TModalResult; override;
end;
{ TFPCUnitConsoleApplicationDescriptor }
@ -53,8 +53,8 @@ type
constructor Create; override;
function GetLocalizedName: string; override;
function GetLocalizedDescription: string; override;
procedure InitProject(AProject: TLazProject); override;
procedure CreateStartFiles(AProject: TLazProject); override;
function InitProject(AProject: TLazProject): TModalResult; override;
function CreateStartFiles(AProject: TLazProject): TModalResult; override;
end;
{ TFileDescPascalUnitFPCUnitTestCase }
@ -123,7 +123,7 @@ begin
+'automatically maintained by Lazarus.';
end;
procedure TFPCUnitApplicationDescriptor.InitProject(AProject: TLazProject);
function TFPCUnitApplicationDescriptor.InitProject(AProject: TLazProject): TModalResult;
var
le: string;
NewSource: String;
@ -160,12 +160,14 @@ begin
// compiler options
AProject.LazCompilerOptions.UseLineInfoUnit:=true;
Result:=mrOK;
end;
procedure TFPCUnitApplicationDescriptor.CreateStartFiles(AProject: TLazProject);
function TFPCUnitApplicationDescriptor.CreateStartFiles(AProject: TLazProject): TModalResult;
begin
LazarusIDE.DoNewEditorFile(FileDescriptorFPCUnitTestCase,'','',
[nfIsPartOfProject,nfOpenInEditor,nfCreateDefaultSrc]);
Result:=mrOK;
end;
{ TFileDescPascalUnitFPCUnitTestCase }
@ -323,8 +325,8 @@ begin
+'automatically maintained by Lazarus.';
end;
procedure TFPCUnitConsoleApplicationDescriptor.InitProject(
AProject: TLazProject);
function TFPCUnitConsoleApplicationDescriptor.InitProject(
AProject: TLazProject): TModalResult;
var
le: string;
NewSource: string;
@ -463,13 +465,15 @@ begin
// compiler options
AProject.LazCompilerOptions.UseLineInfoUnit:=true;
Result:=mrOK;
end;
procedure TFPCUnitConsoleApplicationDescriptor.CreateStartFiles(
AProject: TLazProject);
function TFPCUnitConsoleApplicationDescriptor.CreateStartFiles(
AProject: TLazProject): TModalResult;
begin
LazarusIDE.DoNewEditorFile(FileDescriptorFPCUnitTestCase,'','',
[nfIsPartOfProject,nfOpenInEditor,nfCreateDefaultSrc]);
Result:=mrOK;
end;
end.