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

IDE: checked compiler warnings, clean up

Browse Source 
git-svn-id: trunk@48220 -
This commit is contained in:
mattias 2015-03-10 14:59:27 +00:00
parent b80958200b
commit 7e3829dd80
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/formeditingintf.pas
View File

@ -109,7 +109,7 @@ type
): TComponent; virtual; abstract; ): TComponent; virtual; abstract;
function GetDefaultComponentPosition(TypeClass: TComponentClass; function GetDefaultComponentPosition(TypeClass: TComponentClass;
ParentComp: TComponent; ParentComp: TComponent;
var X,Y: integer): boolean; virtual; abstract; out X,Y: integer): boolean; virtual; abstract;
function CreateComponent(ParentComp: TComponent; function CreateComponent(ParentComp: TComponent;
TypeClass: TComponentClass; TypeClass: TComponentClass;
const AUnitName: shortstring; const AUnitName: shortstring;

4
ide/customformeditor.pp
View File

@ -199,7 +199,7 @@ type
): TComponent; override; ): TComponent; override;
function GetDefaultComponentPosition(TypeClass: TComponentClass; function GetDefaultComponentPosition(TypeClass: TComponentClass;
ParentComponent: TComponent; ParentComponent: TComponent;
var X,Y: integer): boolean; override; out X,Y: integer): boolean; override;
function CreateComponent(ParentComponent: TComponent; function CreateComponent(ParentComponent: TComponent;
TypeClass: TComponentClass; TypeClass: TComponentClass;
const AUnitName: shortstring; const AUnitName: shortstring;
@ -2290,7 +2290,7 @@ begin
end; end;
function TCustomFormEditor.GetDefaultComponentPosition( function TCustomFormEditor.GetDefaultComponentPosition(
TypeClass: TComponentClass; ParentComponent: TComponent; var X, Y: integer TypeClass: TComponentClass; ParentComponent: TComponent; out X, Y: integer
): boolean; ): boolean;
var var
i: Integer; i: Integer;