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

IDE: reduced compiler hints

Browse Source 
git-svn-id: trunk@14715 -
This commit is contained in:
vincents 2008-04-01 13:19:22 +00:00
parent e3c42137f2
commit 9081581c3b
5 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/editoroptions.pp
View File

@ -35,9 +35,9 @@ interface
uses
// RTL, FCL
Classes, Math, SysUtils,
Classes, SysUtils,
// LCL
Buttons, ComCtrls, Controls, Dialogs, ExtCtrls, FileCtrl, Forms, Graphics,
Buttons, ComCtrls, Controls, Dialogs, ExtCtrls, Forms, Graphics,
GraphType, LCLIntf, LCLProc, LCLType, LResources, StdCtrls,
// synedit
SynEdit, SynEditAutoComplete, SynEditHighlighter, SynEditKeyCmds,

3
ide/ideprocs.pp
View File

@ -2020,8 +2020,7 @@ end;
-------------------------------------------------------------------------------}
function CommentText(const s: string; CommentType: TCommentType): string;
procedure GetTextInfo(var Len, LineCount: integer;
var LastLineEmpty: boolean);
procedure GetTextInfo(out Len, LineCount: integer; out LastLineEmpty: boolean);
var
p: integer;
begin

2
ide/keymapping.pp
View File

@ -36,7 +36,7 @@ uses
Forms, Classes, SysUtils, Buttons, LResources, StdCtrls, Controls,
Dialogs, StringHashList,
SynEditKeyCmds, Laz_XMLCfg,
LazarusIDEStrConsts, TextTools, IDECommands;
LazarusIDEStrConsts, IDECommands;
type
TKeyMapScheme = (

4
ide/keymapschemedlg.pas
View File

@ -46,11 +46,11 @@ type
function GetKeymapScheme: string;
end;
function ShowChooseKeySchemeDialog(var NewScheme: string): TModalResult;
function ShowChooseKeySchemeDialog(out NewScheme: string): TModalResult;
implementation
function ShowChooseKeySchemeDialog(var NewScheme: string): TModalResult;
function ShowChooseKeySchemeDialog(out NewScheme: string): TModalResult;
var
ChooseKeySchemeDlg: TChooseKeySchemeDlg;
begin

3
ide/lazconf.pp
View File

@ -48,9 +48,6 @@ interface
uses
SysUtils, Classes, LCLProc, DefineTemplates, FileUtil, InterfaceBase;
type
TLCLPlatforms = set of TLCLPlatform;
const
LCLPlatformDisplayNames: array[TLCLPlatform] of string = (
'gtk',