paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-29 14:11:37 +01: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 interface
uses uses
Classes, SysUtils, cgiApp, cgiModules, LazIDEIntf, ProjectIntf; Classes, SysUtils, cgiApp, cgiModules, LazIDEIntf, ProjectIntf,
Controls, Forms;
type type
{ TCGIApplicationDescriptor } { TCGIApplicationDescriptor }
@ -44,8 +45,8 @@ type
constructor Create; override; constructor Create; override;
function GetLocalizedName: string; override; function GetLocalizedName: string; override;
function GetLocalizedDescription: string; override; function GetLocalizedDescription: string; override;
procedure InitProject(AProject: TLazProject); override; function InitProject(AProject: TLazProject): TModalResult; override;
procedure CreateStartFiles(AProject: TLazProject); override; function CreateStartFiles(AProject: TLazProject): TModalResult; override;
end; end;
{ TFileDescPascalUnitWithCGIDataModule } { TFileDescPascalUnitWithCGIDataModule }
@ -94,7 +95,7 @@ begin
+'automatically maintained by Lazarus.'; +'automatically maintained by Lazarus.';
end; end;
procedure TCGIApplicationDescriptor.InitProject(AProject: TLazProject); function TCGIApplicationDescriptor.InitProject(AProject: TLazProject): TModalResult;
var var
le: string; le: string;
NewSource: String; NewSource: String;
@ -132,12 +133,14 @@ begin
// compiler options // compiler options
AProject.LazCompilerOptions.Win32GraphicApp:=false; AProject.LazCompilerOptions.Win32GraphicApp:=false;
Result:= mrOK;
end; end;
procedure TCGIApplicationDescriptor.CreateStartFiles(AProject: TLazProject); function TCGIApplicationDescriptor.CreateStartFiles(AProject: TLazProject): TModalResult;
begin begin
LazarusIDE.DoNewEditorFile(FileDescriptorCGIModule,'','', LazarusIDE.DoNewEditorFile(FileDescriptorCGIModule,'','',
[nfIsPartOfProject,nfOpenInEditor,nfCreateDefaultSrc]); [nfIsPartOfProject,nfOpenInEditor,nfCreateDefaultSrc]);
Result:= mrOK;
end; end;
{ TFileDescPascalUnitWithCGIDataModule } { TFileDescPascalUnitWithCGIDataModule }

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

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