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

IDE: checked compiler warnings, clean up

Browse Source 
git-svn-id: trunk@48238 -
This commit is contained in:
mattias 2015-03-10 16:02:54 +00:00
parent 8586dc71d7
commit 2290274ae7
2 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
designer/designerprocs.pas
View File

@ -107,7 +107,7 @@ function GetParentFormRelativeParentClientOrigin(Component: TComponent): TPoint;
function GetFormRelativeMousePosition(Form: TCustomForm): TPoint; function GetFormRelativeMousePosition(Form: TCustomForm): TPoint;
procedure GetComponentBounds(AComponent: TComponent; procedure GetComponentBounds(AComponent: TComponent;
var Left, Top, Width, Height: integer); out Left, Top, Width, Height: integer);
function GetComponentLeft(AComponent: TComponent): integer; function GetComponentLeft(AComponent: TComponent): integer;
function GetComponentTop(AComponent: TComponent): integer; function GetComponentTop(AComponent: TComponent): integer;
function GetComponentWidth(AComponent: TComponent): integer; function GetComponentWidth(AComponent: TComponent): integer;
@ -250,8 +250,8 @@ begin
dec(Result.Y,FormClientOrigin.Y); dec(Result.Y,FormClientOrigin.Y);
end; end;
procedure GetComponentBounds(AComponent: TComponent; procedure GetComponentBounds(AComponent: TComponent; out Left, Top, Width,
var Left, Top, Width, Height: integer); Height: integer);
begin begin
if AComponent is TControl then if AComponent is TControl then
begin begin

25
ide/projectinspector.pas
View File

@ -181,10 +181,10 @@ type
constructor Create(TheOwner: TComponent); override; constructor Create(TheOwner: TComponent); override;
destructor Destroy; override; destructor Destroy; override;
function IsUpdateLocked: boolean; inline; function IsUpdateLocked: boolean; inline;
procedure UpdateTitle(Immediately: boolean = false); procedure UpdateTitle;
procedure UpdateProjectFiles(Immediately: boolean = false); procedure UpdateProjectFiles;
procedure UpdateRequiredPackages(Immediately: boolean = false); procedure UpdateRequiredPackages;
procedure UpdateButtons(Immediately: boolean = false); procedure UpdateButtons;
procedure UpdatePending; procedure UpdatePending;
function CanUpdate(Flag: TProjectInspectorFlag): boolean; function CanUpdate(Flag: TProjectInspectorFlag): boolean;
function GetSingleSelectedDependency: TPkgDependency; function GetSingleSelectedDependency: TPkgDependency;
@ -433,6 +433,7 @@ var
AddResult: TAddToProjectResult; AddResult: TAddToProjectResult;
i: Integer; i: Integer;
begin begin
AddResult:=nil;
if ShowAddToProjectDlg(LazProject,AddResult)<>mrOk then exit; if ShowAddToProjectDlg(LazProject,AddResult)<>mrOk then exit;
case AddResult.AddType of case AddResult.AddType of
@ -991,7 +992,7 @@ begin
end; end;
end; end;
procedure TProjectInspectorForm.UpdateProjectFiles(Immediately: boolean); procedure TProjectInspectorForm.UpdateProjectFiles;
var var
CurFile: TUnitInfo; CurFile: TUnitInfo;
FilesBranch: TTreeFilterBranch; FilesBranch: TTreeFilterBranch;
@ -1027,7 +1028,7 @@ begin
UpdateButtons; UpdateButtons;
end; end;
procedure TProjectInspectorForm.UpdateRequiredPackages(Immediately: boolean); procedure TProjectInspectorForm.UpdateRequiredPackages;
var var
Dependency: TPkgDependency; Dependency: TPkgDependency;
RequiredBranch, RemovedBranch: TTreeFilterBranch; RequiredBranch, RemovedBranch: TTreeFilterBranch;
@ -1290,7 +1291,7 @@ begin
end; end;
end; end;
procedure TProjectInspectorForm.UpdateTitle(Immediately: boolean); procedure TProjectInspectorForm.UpdateTitle;
var var
NewCaption: String; NewCaption: String;
begin begin
@ -1306,7 +1307,7 @@ begin
end; end;
end; end;
procedure TProjectInspectorForm.UpdateButtons(Immediately: boolean); procedure TProjectInspectorForm.UpdateButtons;
var var
i: Integer; i: Integer;
TVNode: TTreeNode; TVNode: TTreeNode;
@ -1355,13 +1356,13 @@ begin
ItemsTreeView.BeginUpdate; ItemsTreeView.BeginUpdate;
try try
if pifNeedUpdateFiles in FFlags then if pifNeedUpdateFiles in FFlags then
UpdateProjectFiles(true); UpdateProjectFiles;
if pifNeedUpdateDependencies in FFlags then if pifNeedUpdateDependencies in FFlags then
UpdateRequiredPackages(true); UpdateRequiredPackages;
if pifNeedUpdateTitle in FFlags then if pifNeedUpdateTitle in FFlags then
UpdateTitle(true); UpdateTitle;
if pifNeedUpdateButtons in FFlags then if pifNeedUpdateButtons in FFlags then
UpdateButtons(true); UpdateButtons;
IdleConnected:=false; IdleConnected:=false;
finally finally
ItemsTreeView.EndUpdate; ItemsTreeView.EndUpdate;