From 8e235a5d364d65c5539613be0dab0478874cbd27 Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 12 Mar 2013 09:17:15 +0000 Subject: [PATCH] fpcunit: clean up git-svn-id: trunk@40532 - --- components/fpcunit/ide/fpcunitlazideintf.pas | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/components/fpcunit/ide/fpcunitlazideintf.pas b/components/fpcunit/ide/fpcunitlazideintf.pas index 24b9589c44..55d21e13d4 100644 --- a/components/fpcunit/ide/fpcunitlazideintf.pas +++ b/components/fpcunit/ide/fpcunitlazideintf.pas @@ -43,7 +43,7 @@ type function GetLocalizedName: string; override; function GetLocalizedDescription: string; override; function InitProject(AProject: TLazProject): TModalResult; override; - function CreateStartFiles(AProject: TLazProject): TModalResult; override; + function CreateStartFiles({%H-}AProject: TLazProject): TModalResult; override; end; { TFPCUnitConsoleApplicationDescriptor } @@ -54,7 +54,7 @@ type function GetLocalizedName: string; override; function GetLocalizedDescription: string; override; function InitProject(AProject: TLazProject): TModalResult; override; - function CreateStartFiles(AProject: TLazProject): TModalResult; override; + function CreateStartFiles({%H-}AProject: TLazProject): TModalResult; override; end; { TFileDescPascalUnitFPCUnitTestCase } @@ -71,10 +71,10 @@ type function GetInterfaceUsesSection: string; override; function GetLocalizedName: string; override; function GetLocalizedDescription: string; override; - function GetInterfaceSource(const Filename, SourceName, - ResourceName: string): string;override; - function GetImplementationSource(const Filename, SourceName, - ResourceName: string): string; override; + function GetInterfaceSource(const {%H-}Filename, {%H-}SourceName, + {%H-}ResourceName: string): string;override; + function GetImplementationSource(const {%H-}Filename, {%H-}SourceName, + {%H-}ResourceName: string): string; override; property TestCaseName: string read FTestCaseName write FTestCaseName; property CreateSetup: boolean read FCreateSetup write FCreateSetup; property CreateTeardown: boolean read FCreateTeardown write FCreateTeardown;