paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 03:37:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: checked compiler warnings, clean up, fixed compile with fpc 2.6.4

Browse Source 
git-svn-id: trunk@48228 -
This commit is contained in:
mattias 2015-03-10 15:28:11 +00:00
parent a950c69696
commit b98e5b914f
21 changed files with 23 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
converter/convcodetool.pas
View File

@ -38,7 +38,7 @@ uses
LazarusIDEStrConsts, LazIDEIntf, FormEditor, IDEExternToolIntf,
// codetools
CodeToolManager, StdCodeTools, CodeTree, CodeAtom,
FindDeclarationTool, PascalReaderTool, PascalParserTool, LFMTrees,
FindDeclarationTool, LFMTrees,
ExprEval, KeywordFuncLists, BasicCodeTools, LinkScanner,
CodeCache, SourceChanger, CustomCodeTool, CodeToolsStructs,
// Converter

2
debugger/debugattachdialog.pas
View File

@ -9,7 +9,7 @@ interface
uses
Classes, SysUtils, FileUtil, DbgIntfDebuggerBase, Forms, Controls, Graphics, Dialogs,
StdCtrls, ComCtrls, LCLType, Contnrs, LazarusIDEStrConsts, BaseDebugManager, Debugger;
StdCtrls, ComCtrls, LCLType, LazarusIDEStrConsts, BaseDebugManager, Debugger;
type

2
designer/objinspext.pas
View File

@ -19,7 +19,7 @@ interface
uses
Classes, SysUtils, LCLProc, Forms, Controls, Buttons, StdCtrls, TypInfo,
ExtCtrls, Dialogs, Menus, ComCtrls, Grids, CustomTimer,
DirectoryCacher, CodeToolManager, CodeCache, PropEdits,
CodeToolManager, CodeCache, PropEdits,
LazIDEIntf, ProjectIntf, ObjectInspector, OIFavoriteProperties,
DialogProcs, FileUtil, LazConf, BaseIDEIntf, IDEDialogs, LazConfigStorage,
LazarusIDEStrConsts;

2
ide/addtoprojectdlg.pas
View File

@ -81,7 +81,7 @@ type
FilesListView: TListView;
procedure AddFileButtonClick(Sender: TObject);
procedure AddFileListViewSelectItem(Sender: TObject; {%H-}Item: TListItem;
Selected: Boolean);
{%H-}Selected: Boolean);
procedure AddToProjectDialogClose(Sender: TObject;
var {%H-}CloseAction: TCloseAction);
procedure DependPkgNameComboBoxChange(Sender: TObject);

2
ide/checkcompileropts.pas
View File

@ -34,7 +34,7 @@ interface
uses
Classes, SysUtils, LCLProc, Forms, Controls, Graphics, Dialogs, FileUtil,
Clipbrd, StdCtrls, Buttons, Process, AVL_Tree, Menus, ExtCtrls,
UTF8Process, ButtonPanel, ComCtrls,
ButtonPanel, ComCtrls,
// codetools
KeywordFuncLists, CodeToolManager, FileProcs, DefineTemplates,
CodeToolsStructs,

6
ide/codebrowser.pas
View File

@ -49,7 +49,7 @@ uses
Dialogs, Clipbrd, LCLIntf, AVL_Tree, StdCtrls, ExtCtrls, ComCtrls, Buttons,
Menus, HelpIntfs,
// codetools
CodeAtom, BasicCodeTools, DefineTemplates, CodeTree, CodeCache,
BasicCodeTools, DefineTemplates, CodeTree, CodeCache,
CodeToolsStructs, CodeToolManager, PascalParserTool, LinkScanner, FileProcs,
CodeIndex, StdCodeTools, SourceLog, CustomCodeTool,
// IDEIntf
@ -383,7 +383,7 @@ type
public
function IsApplicable(Msg: TMessageLine; out Identifier: string): boolean;
procedure CreateMenuItems(Fixes: TMsgQuickFixes); override;
procedure QuickFix(Fixes: TMsgQuickFixes; Msg: TMessageLine); override;
procedure QuickFix({%H-}Fixes: TMsgQuickFixes; Msg: TMessageLine); override;
end;
var
CodeBrowserView: TCodeBrowserView = nil;
@ -1878,8 +1878,6 @@ procedure TCodeBrowserView.GetNodeIdentifier(Tool: TStandardCodeTool;
Result:=LeftStr(Result, MAX_LEN)+'...';
end;
const
NodeFlags = [];
begin
if CTNode.StartPos>=CTNode.EndPos then begin
Identifier:='';

2
ide/codecontextform.pas
View File

@ -41,7 +41,7 @@ uses
Graphics, Dialogs, LCLType, LCLIntf, Themes, Buttons, SynEdit, SynEditKeyCmds,
BasicCodeTools, KeywordFuncLists, LinkScanner, CodeCache, FindDeclarationTool,
IdentCompletionTool, CodeTree, CodeAtom, PascalParserTool, CodeToolManager,
SourceChanger, SrcEditorIntf, LazIDEIntf, IDEProcs, LazarusIDEStrConsts;
SrcEditorIntf, LazIDEIntf, IDEProcs, LazarusIDEStrConsts;
type

2
ide/codehelp.pas
View File

@ -302,7 +302,7 @@ type
out CacheWasUsed: boolean): TCodeHelpParseResult;
function GetCodeContext(CodePos: PCodeXYPosition;
out FindContext: TFindContext;
Complete: boolean;
{%H-}Complete: boolean;
out CacheWasUsed: boolean): TCodeHelpParseResult;
function GetElementChain(Code: TCodeBuffer; X, Y: integer; Complete: boolean;
out Chain: TCodeHelpElementChain;

4
ide/findreplacedialog.pp
View File

@ -32,7 +32,7 @@ unit FindReplaceDialog;
interface
uses
Classes, Math, SysUtils, LCLProc, LCLType, Controls, StdCtrls, Forms, Buttons,
Classes, SysUtils, LCLProc, LCLType, Controls, StdCtrls, Forms, Buttons,
ExtCtrls, Dialogs, Graphics, ButtonPanel,
SynEditTypes, SynRegExpr, SynEdit,
IDEHelpIntf, IDEImagesIntf, IDEWindowIntf, IDEDialogs,
@ -69,7 +69,7 @@ type
WholeWordsOnlyCheckBox: TCheckBox;
procedure EnableAutoCompleteSpeedButtonClick(Sender: TObject);
procedure FormChangeBounds(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure HelpButtonClick(Sender: TObject);
procedure OptionsGroupBoxResize(Sender: TObject);
procedure ReplaceWithCheckboxChange(Sender: TObject);

1
ide/fpdochints.pas
View File

@ -32,7 +32,6 @@ interface
uses
Classes, SysUtils, LCLProc, Forms, Controls, Graphics, StdCtrls,
CodeToolManager, CodeCache, IdentCompletionTool, CodeTree,
CodeAtom,
IDEHelpIntf, SrcEditorIntf, SrcEditHintFrm, CodeHelp;
type

2
ide/frames/componentpalette_options.pas
View File

@ -25,7 +25,7 @@ unit componentpalette_options;
interface
uses
Classes, SysUtils, fgl, Graphics, Forms, Controls, StdCtrls, Dialogs, Buttons,
Classes, SysUtils, Graphics, Forms, Controls, StdCtrls, Dialogs, Buttons,
ComCtrls, ExtCtrls, FileUtil, LCLProc, LCLType, Menus, IDEProcs, Laz2_XMLCfg,
EnvironmentOpts, LazarusIDEStrConsts, IDEOptionsIntf,
IDEImagesIntf, DividerBevel, ComponentReg, ComponentPalette, IDEOptionDefs,

2
ide/ideoptionsdlg.pas
View File

@ -31,7 +31,7 @@ interface
uses
Classes, SysUtils, LCLProc, LCLType, Controls, Forms, ComCtrls, Buttons,
ButtonPanel, ExtCtrls, EditBtn, StdCtrls, Dialogs, TreeFilterEdit,
ButtonPanel, ExtCtrls, StdCtrls, Dialogs, TreeFilterEdit,
IDEWindowIntf, IDEOptionsIntf, IDECommands, IDEHelpIntf, ProjectIntf,
EnvironmentOpts, LazarusIDEStrConsts, EditorOptions,
BuildModesManager, TransferMacros, project_save_options, Project,

2
ide/include/ide.inc
View File

@ -54,7 +54,7 @@
{$OPTIMIZATION NOSTACKFRAME}
{$ENDIF}
{$IF defined(Windows) and defined(HEAPTRC_WINDOW) and FPC_FULLVERSION>=20701}
{$IF defined(Windows) and defined(HEAPTRC_WINDOW) and (FPC_FULLVERSION>=20701)}
{$DEFINE EnableRedirectStdErr}
{$ENDIF}

2
ide/initialsetupdlgs.pas
View File

@ -40,7 +40,7 @@ unit InitialSetupDlgs;
interface
uses
Classes, SysUtils, contnrs, LCLProc, Forms, Controls, Buttons,
Classes, SysUtils, LCLProc, Forms, Controls, Buttons,
Dialogs, FileUtil, lazutf8classes, LazFileUtils, LazFileCache,
LazLogger, Graphics, ComCtrls, ExtCtrls, StdCtrls, DefineTemplates,
CodeToolManager, FileProcs, TransferMacros, MacroDefIntf, GDBMIDebugger,

4
ide/macropromptdlg.pas
View File

@ -38,7 +38,7 @@ uses
{$IFDEF IDE_MEM_CHECK}
MemCheck,
{$ENDIF}
Classes, SysUtils, LCLType, Controls, Forms, Buttons, StdCtrls, ComCtrls,
Classes, SysUtils, LCLType, Controls, Forms, Buttons, StdCtrls,
Dialogs, LResources, LazarusIDEStrConsts;
@ -51,7 +51,7 @@ type
procedure MacroPrompDialogResize(Sender: TObject);
procedure OkButtonClick(Sender: TObject);
procedure CancelButtonClick(Sender: TObject);
procedure DataEditKeyDown(Sender: TObject; var Key:Word; Shift:TShiftState);
procedure DataEditKeyDown(Sender: TObject; var Key:Word; {%H-}Shift:TShiftState);
public
constructor Create(AnOwner: TComponent); override;
end;

2
ide/main.pp
View File

@ -64,7 +64,7 @@ uses
AsyncProcess,
{$ENDIF}
// lazutils
LazUTF8, Laz2_XMLCfg, AvgLvlTree,
LazUTF8, Laz2_XMLCfg,
// lcl
LCLProc, LCLType, LCLIntf, LConvEncoding, ComCtrls,
FileUtil, LResources, Forms, Buttons, Menus, Controls, GraphType,

2
ide/patheditordlg.pas
View File

@ -22,7 +22,7 @@ interface
uses
Classes, SysUtils, types, Forms, Controls, Buttons, StdCtrls, Dialogs,
FileUtil, ButtonPanel, ExtCtrls, EditBtn, MacroIntf, IDEImagesIntf, LCLType,
FileUtil, ButtonPanel, ExtCtrls, MacroIntf, IDEImagesIntf, LCLType,
Graphics, Menus, TransferMacros, LazarusIDEStrConsts, shortpathedit, Clipbrd,
LCLProc;

2
ide/sourceeditprocs.pas
View File

@ -40,7 +40,7 @@ uses
SynEditHighlighter, SynRegExpr, SynCompletion, BasicCodeTools, CodeTree,
CodeAtom, CodeCache, SourceChanger, CustomCodeTool, CodeToolManager,
PascalParserTool, KeywordFuncLists, FileProcs, IdentCompletionTool,
PascalReaderTool, SourceLog,
PascalReaderTool,
LazIDEIntf, TextTools, IDETextConverter, DialogProcs, EditorOptions,
IDEImagesIntf, CodeToolsOptions;

2
ide/useunitdlg.pas
View File

@ -31,7 +31,7 @@ interface
uses
Classes, SysUtils, Forms, Controls, StdCtrls, ExtCtrls, Buttons,
ButtonPanel, Dialogs, LCLProc, FileProcs, Graphics, LCLType, EditBtn,
ButtonPanel, Dialogs, LCLProc, FileProcs, Graphics, LCLType,
SourceEditor, LazIDEIntf, IDEImagesIntf, LazarusIDEStrConsts, ProjectIntf,
Project, CodeCache, CodeToolManager, IdentCompletionTool, CodeTree,
ListFilterEdit, LinkScanner;

2
ide/viewunit_dlg.pp
View File

@ -42,7 +42,7 @@ interface
uses
SysUtils, Classes, Controls, Forms, Dialogs, Buttons, StdCtrls,
LazarusIdeStrConsts, IDEProcs, CustomFormEditor, LCLType, LCLIntf,
ExtCtrls, ButtonPanel, Menus, AVL_Tree, ImgList, ComCtrls,
ExtCtrls, ButtonPanel, Menus, AVL_Tree, ComCtrls,
PackageDefs, IDEWindowIntf, IDEHelpIntf, IDEImagesIntf, ListFilterEdit,
CodeToolsStructs, CodeToolManager, FileProcs, lazutf8sysutils, LazFileUtils,
LazLogger;

2
packager/installpkgsetdlg.pas
View File

@ -39,7 +39,7 @@ interface
uses
Classes, SysUtils, contnrs, LCLProc, Forms, Controls, Graphics, Dialogs,
KeywordFuncLists, BasicCodeTools, StdCtrls, Buttons, FileUtil, ExtCtrls,
ComCtrls, EditBtn, LCLType, ImgList, AvgLvlTree, Laz2_XMLCfg, LazUTF8,
ComCtrls, LCLType, ImgList, AvgLvlTree, Laz2_XMLCfg, LazUTF8,
LazFileUtils, TreeFilterEdit, PackageIntf, IDEImagesIntf, IDEHelpIntf,
IDEDialogs, IDEWindowIntf, LazarusIDEStrConsts, EnvironmentOpts, InputHistory,
LazConf, IDEProcs, PackageDefs, PackageSystem, PackageLinks,