paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 17:19:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: less hints

Browse Source 
git-svn-id: trunk@35711 -
This commit is contained in:
mattias 2012-03-04 18:12:15 +00:00
parent 79987dc92a
commit b02630ac58
9 changed files with 75 additions and 74 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

108
ide/buildmanager.pas
View File

@ -64,60 +64,60 @@ type
function OnSubstituteCompilerOption(Options: TParsedCompilerOptions; function OnSubstituteCompilerOption(Options: TParsedCompilerOptions;
const UnparsedValue: string; const UnparsedValue: string;
PlatformIndependent: boolean): string; PlatformIndependent: boolean): string;
function MacroFuncEnv(const Param: string; const Data: PtrInt; function MacroFuncEnv(const Param: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncFPCMsgFile(const Param: string; const Data: PtrInt; function MacroFuncFPCMsgFile(const {%H-}Param: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncFPCVer(const Param: string; const Data: PtrInt; function MacroFuncFPCVer(const {%H-}Param: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncLCLWidgetType(const Param: string; const Data: PtrInt; function MacroFuncLCLWidgetType(const {%H-}Param: string; const Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncMake(const Param: string; const Data: PtrInt; function MacroFuncMake(const {%H-}Param: string; const {%H-}Data: PtrInt;
var Abort: boolean): string;// make utility var {%H-}Abort: boolean): string;// make utility
function MacroFuncMakeExe(const Filename: string; const Data: PtrInt; function MacroFuncMakeExe(const Filename: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncMakeLib(const Filename: string; const Data: PtrInt; function MacroFuncMakeLib(const Filename: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncInstantFPCCache(const Param: string; const Data: PtrInt; function MacroFuncInstantFPCCache(const {%H-}Param: string; const {%H-}Data: PtrInt;
var Abort: boolean): string;// path of the instantfpc cache var {%H-}Abort: boolean): string;// path of the instantfpc cache
function MacroFuncParams(const Param: string; const Data: PtrInt; function MacroFuncParams(const {%H-}Param: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncProject(const Param: string; const Data: PtrInt; function MacroFuncProject(const Param: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncProjFile(const Param: string; const Data: PtrInt; function MacroFuncProjFile(const {%H-}Param: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncProjIncPath(const Param: string; const Data: PtrInt; function MacroFuncProjIncPath(const {%H-}Param: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncProjOutDir(const Param: string; const Data: PtrInt; function MacroFuncProjOutDir(const {%H-}Param: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncProjPath(const Param: string; const Data: PtrInt; function MacroFuncProjPath(const {%H-}Param: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncProjPublishDir(const Param: string; const Data: PtrInt; function MacroFuncProjPublishDir(const {%H-}Param: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncProjSrcPath(const Param: string; const Data: PtrInt; function MacroFuncProjSrcPath(const {%H-}Param: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncProjUnitPath(const Param: string; const Data: PtrInt; function MacroFuncProjUnitPath(const {%H-}Param: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncRunCmdLine(const Param: string; const Data: PtrInt; function MacroFuncRunCmdLine(const {%H-}Param: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncSrcOS(const Param: string; const Data: PtrInt; function MacroFuncSrcOS(const {%H-}Param: string; const Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncTargetCmdLine(const Param: string; const Data: PtrInt; function MacroFuncTargetCmdLine(const {%H-}Param: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncTargetCPU(const Param: string; const Data: PtrInt; function MacroFuncTargetCPU(const {%H-}Param: string; const Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncTargetFile(const Param: string; const Data: PtrInt; function MacroFuncTargetFile(const {%H-}Param: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncTargetOS(const Param: string; const Data: PtrInt; function MacroFuncTargetOS(const {%H-}Param: string; const Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncIDEBuildOptions(const Param: string; const Data: PtrInt; function MacroFuncIDEBuildOptions(const {%H-}Param: string; const Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncPrimaryConfigPath(const Param: string; const Data: PtrInt; function MacroFuncPrimaryConfigPath(const {%H-}Param: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncSecondaryConfigPath(const Param: string; const Data: PtrInt; function MacroFuncSecondaryConfigPath(const {%H-}Param: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFuncFallbackOutputRoot(const Param: string; const Data: PtrInt; function MacroFuncFallbackOutputRoot(const {%H-}Param: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function CTMacroFuncProjectUnitPath(Data: Pointer): boolean; function CTMacroFuncProjectUnitPath(Data: Pointer): boolean;
function CTMacroFuncProjectIncPath(Data: Pointer): boolean; function CTMacroFuncProjectIncPath(Data: Pointer): boolean;

2
ide/codetoolsoptions.pas
View File

@ -36,7 +36,7 @@ interface
uses uses
Classes, SysUtils, LazConf, Laz_XMLCfg, FileUtil, Classes, SysUtils, LazConf, Laz_XMLCfg, FileUtil,
LResources, Forms, Controls, Buttons, LclProc, ExtCtrls, ComCtrls, LResources, Forms, Controls, Buttons, LclProc, ExtCtrls,
Dialogs, CodeToolManager, DefineTemplates, SourceChanger, SynEdit, Dialogs, CodeToolManager, DefineTemplates, SourceChanger, SynEdit,
IDEOptionsIntf, IDEOptionDefs, EditDefineTree, LazarusIDEStrConsts, IDEProcs; IDEOptionsIntf, IDEOptionDefs, EditDefineTree, LazarusIDEStrConsts, IDEProcs;

9
ide/project.pp
View File

@ -838,7 +838,7 @@ type
procedure UpdateSourceDirectories; procedure UpdateSourceDirectories;
procedure EditorInfoAdd(EdInfo: TUnitEditorInfo); procedure EditorInfoAdd(EdInfo: TUnitEditorInfo);
procedure EditorInfoRemove(EdInfo: TUnitEditorInfo); procedure EditorInfoRemove(EdInfo: TUnitEditorInfo);
procedure OnMacroEngineSubstitution(TheMacro: TTransferMacro; procedure OnMacroEngineSubstitution({%H-}TheMacro: TTransferMacro;
const MacroName: string; var s: string; const MacroName: string; var s: string;
const Data: PtrInt; var Handled, Abort: boolean; Depth: integer); const Data: PtrInt; var Handled, Abort: boolean; Depth: integer);
protected protected
@ -958,7 +958,7 @@ type
// Application.CreateForm statements // Application.CreateForm statements
function AddCreateFormToProjectFile(const AClassName, AName:string):boolean; function AddCreateFormToProjectFile(const AClassName, AName:string):boolean;
function RemoveCreateFormFromProjectFile(const AClassName, function RemoveCreateFormFromProjectFile(const {%H-}AClassName,
AName: string):boolean; AName: string):boolean;
function FormIsCreatedInProjectFile(const AClassname, AName:string):boolean; function FormIsCreatedInProjectFile(const AClassname, AName:string):boolean;
@ -1164,6 +1164,7 @@ end;
function dbgs(Flag: TUnitInfoFlag): string; function dbgs(Flag: TUnitInfoFlag): string;
begin begin
Result:='';
WriteStr(Result, Flag); WriteStr(Result, Flag);
end; end;
@ -1718,7 +1719,7 @@ begin
then then
Bookmarks.Delete(i) Bookmarks.Delete(i)
else else
if TSynEdit(OpenEditorInfo[0].EditorComponent.EditorControl).GetBookMark(Bookmarks[i].ID, X, Y) if TSynEdit(OpenEditorInfo[0].EditorComponent.EditorControl).GetBookMark(Bookmarks[i].ID, X{%H-}, Y{%H-})
then then
Bookmarks[i].CursorPos := Point(X, Y); Bookmarks[i].CursorPos := Point(X, Y);
end; end;
@ -2641,7 +2642,7 @@ function TProject.WriteProject(ProjectWriteFlags: TProjectWriteFlags;
end; end;
end; end;
function UnitMustBeSaved(i: integer; SaveData, SaveSession: boolean): boolean; function UnitMustBeSaved(i: integer; {%H-}SaveData, SaveSession: boolean): boolean;
begin begin
Result:=false; Result:=false;
if not Units[i].IsPartOfProject then begin if not Units[i].IsPartOfProject then begin

2
ide/projectdefs.pas
View File

@ -318,7 +318,7 @@ type
function GetLocalizedName: string; override; function GetLocalizedName: string; override;
function GetLocalizedDescription: string; override; function GetLocalizedDescription: string; override;
function InitProject(AProject: TLazProject): TModalResult; override; function InitProject(AProject: TLazProject): TModalResult; override;
function CreateStartFiles(AProject: TLazProject): TModalResult; override; function CreateStartFiles({%H-}AProject: TLazProject): TModalResult; override;
end; end;
{ TProjectProgramDescriptor } { TProjectProgramDescriptor }

2
ide/runparamsopts.pas
View File

@ -49,7 +49,7 @@ uses
{$ENDIF} {$ENDIF}
Classes, SysUtils, LCLProc, Controls, Forms, Buttons, StdCtrls, ComCtrls, Classes, SysUtils, LCLProc, Controls, Forms, Buttons, StdCtrls, ComCtrls,
Dialogs, ExtCtrls, Laz_XMLCfg, Dialogs, ExtCtrls, Laz_XMLCfg,
BaseIDEIntf, IDEContextHelpEdit, IDEHelpIntf, ProjectIntf, BaseIDEIntf, IDEHelpIntf, ProjectIntf,
IDEProcs, SysVarUserOverrideDlg, InputHistory, LazarusIDEStrConsts, FileUtil, IDEProcs, SysVarUserOverrideDlg, InputHistory, LazarusIDEStrConsts, FileUtil,
ButtonPanel; ButtonPanel;

2
ide/sysvaruseroverridedlg.pas
View File

@ -36,7 +36,7 @@ uses
{$IFDEF IDE_MEM_CHECK} {$IFDEF IDE_MEM_CHECK}
MemCheck, MemCheck,
{$ENDIF} {$ENDIF}
Classes, SysUtils, Controls, Forms, Buttons, StdCtrls, ComCtrls, Dialogs, Classes, SysUtils, Controls, Forms, Buttons, StdCtrls, Dialogs,
LazarusIDEStrConsts, ButtonPanel; LazarusIDEStrConsts, ButtonPanel;
type type

2
packager/packagedefs.pas
View File

@ -380,7 +380,7 @@ type
function GetOwnerName: string; override; function GetOwnerName: string; override;
procedure InvalidateOptions; procedure InvalidateOptions;
function GetDefaultMainSourceFileName: string; override; function GetDefaultMainSourceFileName: string; override;
function CreateTargetFilename(const MainSourceFileName: string): string; override; function CreateTargetFilename(const {%H-}MainSourceFileName: string): string; override;
procedure LoadFromXMLConfig(AXMLConfig: TXMLConfig; const Path: string); override; procedure LoadFromXMLConfig(AXMLConfig: TXMLConfig; const Path: string); override;
procedure SaveToXMLConfig(AXMLConfig: TXMLConfig; const Path: string); override; procedure SaveToXMLConfig(AXMLConfig: TXMLConfig; const Path: string); override;

4
packager/packagelinks.pas
View File

@ -40,8 +40,8 @@ interface
uses uses
Classes, SysUtils, AVL_Tree, Laz_XMLCfg, FileProcs, CodeToolManager, Classes, SysUtils, AVL_Tree, Laz_XMLCfg, FileProcs, CodeToolManager,
CodeCache, CodeToolsStructs, LCLProc, FileUtil, MacroIntf, PackageIntf, CodeToolsStructs, LCLProc, FileUtil, MacroIntf, PackageIntf,
IDEProcs, DialogProcs, EnvironmentOpts, PackageDefs, LazConf; IDEProcs, EnvironmentOpts, PackageDefs, LazConf;
const const
PkgLinksFileVersion = 2; PkgLinksFileVersion = 2;

18
packager/packagesystem.pas
View File

@ -158,14 +158,14 @@ type
procedure EndUpdate; procedure EndUpdate;
function Updating: boolean; function Updating: boolean;
procedure RebuildDefineTemplates; procedure RebuildDefineTemplates;
function MacroFunctionPkgDir(const s: string; const Data: PtrInt; function MacroFunctionPkgDir(const s: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFunctionPkgSrcPath(const s: string; const Data: PtrInt; function MacroFunctionPkgSrcPath(const s: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFunctionPkgUnitPath(const s: string; const Data: PtrInt; function MacroFunctionPkgUnitPath(const s: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFunctionPkgIncPath(const s: string; const Data: PtrInt; function MacroFunctionPkgIncPath(const s: string; const {%H-}Data: PtrInt;
var Abort: boolean): string; var {%H-}Abort: boolean): string;
function MacroFunctionCTPkgDir(Data: Pointer): boolean; function MacroFunctionCTPkgDir(Data: Pointer): boolean;
function MacroFunctionCTPkgSrcPath(Data: Pointer): boolean; function MacroFunctionCTPkgSrcPath(Data: Pointer): boolean;
function MacroFunctionCTPkgUnitPath(Data: Pointer): boolean; function MacroFunctionCTPkgUnitPath(Data: Pointer): boolean;
@ -297,7 +297,7 @@ type
function GetFallbackOutputDir(APackage: TLazPackage): string; function GetFallbackOutputDir(APackage: TLazPackage): string;
function CheckAmbiguousPackageUnits(APackage: TLazPackage): TModalResult; function CheckAmbiguousPackageUnits(APackage: TLazPackage): TModalResult;
function SavePackageMainSource(APackage: TLazPackage; function SavePackageMainSource(APackage: TLazPackage;
Flags: TPkgCompileFlags; ShowAbort: boolean): TModalResult; {%H-}Flags: TPkgCompileFlags; ShowAbort: boolean): TModalResult;
function CompileRequiredPackages(APackage: TLazPackage; function CompileRequiredPackages(APackage: TLazPackage;
FirstDependency: TPkgDependency; FirstDependency: TPkgDependency;
SkipDesignTimePackages: boolean; SkipDesignTimePackages: boolean;