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

IDE: Cleanup.

Browse Source 
git-svn-id: trunk@49280 -
This commit is contained in:
juha 2015-06-06 11:19:40 +00:00
parent 51d721b429
commit 71a92380d4
16 changed files with 21 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/IndustrialStuff/source/AdvLed.pas
View File

@ -19,7 +19,7 @@ unit AdvLed;
interface
uses
LCLIntf, LCLType,LResources,Classes, Types, ExtCtrls, Controls, Graphics;
LCLType, Classes, ExtCtrls, Controls, Graphics;
type

2
components/IndustrialStuff/source/indcyClasses.pas
View File

@ -49,7 +49,7 @@ unit indcyClasses;
interface
uses
LCLIntf, LCLType, Classes, Forms, Graphics, Math, Controls, ExtCtrls, SysUtils,
LCLIntf, Classes, Graphics, Controls, SysUtils,
indcyTypes, indcyGraphics;
type

3
components/codetools/ide/codyregistration.pas
View File

@ -36,8 +36,7 @@ uses
CodeToolManager,
CodyStrConsts, CodyUtils, CodyCtrls, CodyOpts,
PPUListDlg, AddAssignMethodDlg, AddWithBlockDlg,
CodyNodeInfoDlg, CodyFrm, DeclareVarDlg, CodyCopyDeclaration,
CodyIdentifiersDlg, CodyMiscOptsFrame;
CodyNodeInfoDlg, CodyFrm, DeclareVarDlg, CodyIdentifiersDlg, CodyMiscOptsFrame;
procedure Register;

1
components/customdrawn/customdrawn_wince.pas
View File

@ -164,7 +164,6 @@ procedure TCDDrawerWinCE.DrawCheckBoxSquare(ADest: TCanvas; ADestPos: TPoint;
ASize: TSize; AState: TCDControlState; AStateEx: TCDControlStateEx);
var
lHalf, lSquareHalf, lSquareHeight: Integer;
lColor: TColor;
begin
lHalf := ASize.cy div 2;
lSquareHalf := GetMeasures(TCDCHECKBOX_SQUARE_HALF_HEIGHT);

2
components/customdrawn/customdrawnextras.pas
View File

@ -430,8 +430,6 @@ procedure TCDPageControlEditor.ExecuteVerb(Index: integer);
var
NewPage: TCDTabSheet;
Hook: TPropertyEditorHook;
PageComponent: TPersistent;
OldPage: longint;
lPageName: String;
begin
if not GetHook(Hook) then exit;

2
components/customform/custforms.pp
View File

@ -81,7 +81,7 @@ Type
private
FFormDescr: TCustomFormDescr;
Public
Constructor Create(ADescr : TCustomFormDescr);
Constructor Create(ADescr : TCustomFormDescr); overload;
Property FormDescr : TCustomFormDescr Read FFormDescr;
Function GetLocalizedName : String; override;
Function GetLocalizedDescription : String; override;

2
components/ideintf/maskpropedit.pas
View File

@ -18,7 +18,7 @@ unit MaskPropEdit;
interface
uses
Classes, SysUtils, MaskUtils, Forms, Controls, Graphics, Dialogs,
Classes, SysUtils, Forms, Controls, Graphics, Dialogs,
StdCtrls, Buttons, ExtCtrls, FileUtil, MaskEdit, LazIDEIntf,
PropEdits, ComponentEditors, ObjInspStrConsts, ButtonPanel;

2
components/jcf2/Process/Transform/AddBeginEnd.pas
View File

@ -129,7 +129,7 @@ function SafeToRemoveBeginEnd(const pcNode: TParseTreeNode): Boolean;
const
{ if there is an if stament with no else case immediately hereunder,
should find it by this depth }
IMMEDIATE_IF_DEPTH = 4;
//IMMEDIATE_IF_DEPTH = 4;
MAX_IF_CLIMB = 5;
var
lcParent: TParseTreeNode;

2
components/jcf2/Ui/Settings/frAsm.pas
View File

@ -68,7 +68,7 @@ uses
{ jcf }
JcfSettings, jcfuiconsts,
{ local }
Capitalisation, SettingsTypes, SetAsm;
SettingsTypes, SetAsm;
procedure TfAsm.FrameResize(Sender:TObject);
begin

5
components/jcf2/Ui/Settings/frPreProcessor.pas
View File

@ -31,8 +31,7 @@ interface
{ preprocessor symbols }
uses
Classes, Controls, Forms, StdCtrls,
IDEOptionsIntf;
Classes, StdCtrls, IDEOptionsIntf;
type
@ -61,7 +60,7 @@ implementation
{$R *.lfm}
uses
JcfHelp, JcfSettings, jcfuiconsts;
JcfSettings, jcfuiconsts;
constructor TfPreProcessor.Create(AOwner: TComponent);
begin

8
converter/usedunits.pas
View File

@ -61,7 +61,7 @@ type
fUnitsToFixCase: TStringToStringTree;// Like rename but done for every target.
fUnitsToComment: TStringList; // List of units to be commented.
fMissingUnits: TStringList; // Units not found in search path.
function FindMissingUnits(AUnitUpdater: TStringMapUpdater): boolean;
function FindMissingUnits: boolean;
procedure ToBeRenamedOrRemoved(AOldName, ANewName: string);
procedure FindReplacement(AUnitUpdater: TStringMapUpdater;
AMapToEdit: TStringToStringTree);
@ -210,7 +210,7 @@ begin
inherited Destroy;
end;
function TUsedUnits.FindMissingUnits(AUnitUpdater: TStringMapUpdater): boolean;
function TUsedUnits.FindMissingUnits: boolean;
var
UsesNode: TCodeTreeNode;
InAtom, UnitNameAtom: TAtomPosition;
@ -595,8 +595,8 @@ begin
if fCTLink.Settings.UnitsReplaceMode=rlInteractive then
MapToEdit:=TStringToStringTree.Create(false);
fCTLink.CodeTool.BuildTree(lsrEnd);
if not (fMainUsedUnits.FindMissingUnits(UnitUpdater) and
fImplUsedUnits.FindMissingUnits(UnitUpdater)) then
if not (fMainUsedUnits.FindMissingUnits and
fImplUsedUnits.FindMissingUnits) then
exit(mrCancel);
// Find replacements for missing units from settings.

4
debugger/inspectdlg.pas
View File

@ -104,7 +104,7 @@ type
protected
function ColSizeGetter(AColId: Integer; var ASize: Integer): Boolean;
procedure ColSizeSetter(AColId: Integer; ASize: Integer);
procedure InternalExecute(const AExpression: ansistring; ARepeatCount: Integer = -1);
procedure InternalExecute(const AExpression: ansistring);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
@ -790,7 +790,7 @@ begin
inherited Destroy;
end;
procedure TIDEInspectDlg.InternalExecute(const AExpression: ansistring; ARepeatCount: Integer);
procedure TIDEInspectDlg.InternalExecute(const AExpression: ansistring);
begin
if FHistoryIndex >= FHistory.Count then
FHistoryIndex := FHistory.Count - 1;

8
ide/codetemplatesdlg.pas
View File

@ -208,7 +208,7 @@ begin
end;
function IsCodeTemplateOk(ASynAutoComplete: TSynEditAutoComplete;
const AToken, AComment: string; AIndex: integer): boolean;
const AToken: string; AIndex: integer): boolean;
var
n: integer;
begin
@ -238,8 +238,7 @@ begin
if InputQuery(lisCodeTemplAddCodeTemplate,
[lisCodeTemplToken, lisCodeTemplComment], Str) then
if IsCodeTemplateOk(ASynAutoComplete,
Str[0], Str[1], ASynAutoComplete.Completions.Count) then
if IsCodeTemplateOk(ASynAutoComplete, Str[0], ASynAutoComplete.Completions.Count) then
begin
Result:= mrOk;
AToken:= Str[0];
@ -262,8 +261,7 @@ begin
if not InputQuery(lisCodeTemplEditCodeTemplate,
[lisCodeTemplToken, lisCodeTemplComment], Str) then exit;
if not IsCodeTemplateOk(ASynAutoComplete,
Str[0], Str[1], AIndex) then exit;
if not IsCodeTemplateOk(ASynAutoComplete, Str[0], AIndex) then exit;
ASynAutoComplete.Completions[AIndex]:= Str[0];
ASynAutoComplete.CompletionComments[AIndex]:= Str[1];

2
ide/etquickfixes.pas
View File

@ -351,7 +351,7 @@ begin
Code:=CodeToolBoss.LoadFile(Msg.GetFullFilename,true,false);
if Code=nil then exit;
if QuickFixLocalVarNotInitialized(Code,Msg.Column,Msg.Line,Identifier) then
if QuickFixLocalVarNotInitialized(Code, Msg.Column, Msg.Line) then
Msg.MarkFixed;
end;

1
ide/mouseactiondialog.pas
View File

@ -136,7 +136,6 @@ procedure TMouseaActionDialog.FormCreate(Sender: TObject);
var
mb: TSynMouseButton;
cc: TSynMAClickCount;
s: string;
begin
ButtonName[mbXLeft]:=dlgMouseOptBtnLeft;
ButtonName[mbXRight]:=dlgMouseOptBtnRight;

6
ide/qfinitlocalvardlg.pas
View File

@ -57,13 +57,11 @@ type
procedure Init(TheStatements: TStrings; TheInsertPositions: TObjectList);
end;
function QuickFixLocalVarNotInitialized(Code: TCodeBuffer; X, Y: integer;
Identifier: string): boolean;
function QuickFixLocalVarNotInitialized(Code: TCodeBuffer; X, Y: integer): boolean;
implementation
function QuickFixLocalVarNotInitialized(Code: TCodeBuffer; X, Y: integer;
Identifier: string): boolean;
function QuickFixLocalVarNotInitialized(Code: TCodeBuffer; X, Y: integer): boolean;
var
Statements: TStrings;
InsertPositions: TObjectList;