paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-22 18:48:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: checked compiler warnings, clean up

Browse Source 
git-svn-id: trunk@48224 -
This commit is contained in:
mattias 2015-03-10 15:12:17 +00:00
parent 4502988873
commit afd9191244
2 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
converter/convertertypes.pas
View File

@ -61,7 +61,7 @@ type
public public
constructor Create; constructor Create;
destructor Destroy; override; destructor Destroy; override;
function Find(aParentType: string; var Index: Integer): Boolean; function Find(aParentType: string; out Index: Integer): Boolean;
function AddVisualOffset(const aParentType: string; aTop, aLeft: Integer): integer; function AddVisualOffset(const aParentType: string; aTop, aLeft: Integer): integer;
property Items[Index: Integer]: TVisualOffset read GetVisualOffset property Items[Index: Integer]: TVisualOffset read GetVisualOffset
write SetVisualOffset; default; write SetVisualOffset; default;
@ -152,7 +152,7 @@ begin
inherited Destroy; inherited Destroy;
end; end;
function TVisualOffsets.Find(aParentType: string; var Index: Integer): Boolean; function TVisualOffsets.Find(aParentType: string; out Index: Integer): Boolean;
var var
i: Integer; i: Integer;
begin begin

8
ide/codetoolsdefines.pas
View File

@ -237,8 +237,7 @@ type
function ConsistencyCheck: integer; function ConsistencyCheck: integer;
procedure SetValuesEditable(AValue: boolean); procedure SetValuesEditable(AValue: boolean);
public public
procedure SetOptions(ACodeToolBoss: TCodeToolManager; procedure SetOptions(ACodeToolBoss: TCodeToolManager);
Options: TCodeToolsOptions);
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
property DefineTree: TDefineTree read FDefineTree; property DefineTree: TDefineTree read FDefineTree;
@ -260,7 +259,7 @@ function ShowCodeToolsDefinesEditor(ACodeToolBoss: TCodeToolManager;
var CodeToolsDefinesEditor: TCodeToolsDefinesEditor; var CodeToolsDefinesEditor: TCodeToolsDefinesEditor;
begin begin
CodeToolsDefinesEditor:=TCodeToolsDefinesEditor.Create(nil); CodeToolsDefinesEditor:=TCodeToolsDefinesEditor.Create(nil);
CodeToolsDefinesEditor.SetOptions(ACodeToolBoss,Options); CodeToolsDefinesEditor.SetOptions(ACodeToolBoss);
CodeToolsDefinesEditor.Macros:=Macros; CodeToolsDefinesEditor.Macros:=Macros;
Result:=CodeToolsDefinesEditor.ShowModal; Result:=CodeToolsDefinesEditor.ShowModal;
if Result=mrOk then begin if Result=mrOk then begin
@ -1390,8 +1389,7 @@ begin
InsertFilePathBitBtn.Enabled:=AValue; InsertFilePathBitBtn.Enabled:=AValue;
end; end;
procedure TCodeToolsDefinesEditor.SetOptions(ACodeToolBoss: TCodeToolManager; procedure TCodeToolsDefinesEditor.SetOptions(ACodeToolBoss: TCodeToolManager);
Options: TCodeToolsOptions);
begin begin
FLastSelectedNode:=nil; FLastSelectedNode:=nil;
FBoss:=ACodeToolBoss; FBoss:=ACodeToolBoss;