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

IDE: checked compiler warnings, clean up

Browse Source 
git-svn-id: trunk@48222 -
This commit is contained in:
mattias 2015-03-10 15:04:30 +00:00
parent 8f4d84fdbd
commit 21cfb7317b
4 changed files with 14 additions and 20 deletions

5
designer/aligncompsdlg.pp
View File

@ -44,13 +44,14 @@ type
constructor Create(AOwner: TComponent); override;
end;
function ShowAlignComponentsDialog(var HorizAlignID, VertAlignID: integer): TModalResult;
function ShowAlignComponentsDialog(out HorizAlignID, VertAlignID: integer): TModalResult;
implementation
{$R *.lfm}
function ShowAlignComponentsDialog(var HorizAlignID, VertAlignID: integer): TModalResult;
function ShowAlignComponentsDialog(out HorizAlignID, VertAlignID: integer
): TModalResult;
var
AlignComponentsDialog: TAlignComponentsDialog;
begin

19
designer/designer.pp
View File

@ -155,7 +155,6 @@ type
procedure SetGridColor(const AValue: TColor);
procedure SetGridSizeX(const AValue: integer);
procedure SetGridSizeY(const AValue: integer);
procedure SetIsControl(Value: Boolean);
procedure SetMediator(const AValue: TDesignerMediator);
procedure SetPopupMenuComponentEditor(const AValue: TBaseComponentEditor);
procedure SetShowBorderSpacing(const AValue: boolean);
@ -185,8 +184,8 @@ type
procedure KeyUp(Sender: TControl; var TheMessage: TLMKEY);
function HandleSetCursor(var TheMessage: TLMessage): boolean;
procedure HandlePopupMenu(Sender: TControl; var Message: TLMContextMenu);
procedure GetMouseMsgShift(TheMessage: TLMMouse; var Shift: TShiftState;
var Button: TMouseButton);
procedure GetMouseMsgShift(TheMessage: TLMMouse; out Shift: TShiftState;
out Button: TMouseButton);
// procedures for working with components and persistents
function GetDesignControl(AControl: TControl): TControl;
@ -316,7 +315,7 @@ type
var TheMessage: TLMessage): Boolean; override;
function UniqueName(const BaseName: string): string; override;
Procedure RemovePersistentAndChilds(APersistent: TPersistent);
procedure Notification(AComponent: TComponent;
procedure Notification({%H-}AComponent: TComponent;
Operation: TOperation); override;
procedure ValidateRename(AComponent: TComponent;
const CurName, NewName: string); override;
@ -336,7 +335,7 @@ type
property GridSizeX: integer read GetGridSizeX write SetGridSizeX;
property GridSizeY: integer read GetGridSizeY write SetGridSizeY;
property GridColor: TColor read GetGridColor write SetGridColor;
property IsControl: Boolean read GetIsControl write SetIsControl;
property IsControl: Boolean read GetIsControl;
property Mediator: TDesignerMediator read FMediator write SetMediator;
property ProcessingDesignerEvent: Integer read FProcessingDesignerEvent;
property OnActivated: TNotifyEvent read FOnActivated write FOnActivated;
@ -1857,10 +1856,11 @@ begin
Message.Result := 1;
end;
procedure TDesigner.GetMouseMsgShift(TheMessage: TLMMouse;
var Shift: TShiftState; var Button: TMouseButton);
procedure TDesigner.GetMouseMsgShift(TheMessage: TLMMouse; out
Shift: TShiftState; out Button: TMouseButton);
begin
Shift := [];
Button := mbLeft;
if (TheMessage.Keys and MK_Shift) = MK_Shift then
Include(Shift, ssShift);
if (TheMessage.Keys and MK_Control) = MK_Control then
@ -3353,11 +3353,6 @@ begin
EnvironmentOptions.GridSizeY:=AValue;
end;
procedure TDesigner.SetIsControl(Value: Boolean);
begin
end;
procedure TDesigner.SetMediator(const AValue: TDesignerMediator);
begin
if Mediator=AValue then exit;

4
designer/scalecompsdlg.pp
View File

@ -46,13 +46,13 @@ type
constructor Create(AOwner: TComponent); override;
end;
function ShowScaleComponentsDialog(var ScaleInPercent: integer): TModalResult;
function ShowScaleComponentsDialog(out ScaleInPercent: integer): TModalResult;
implementation
{$R *.lfm}
function ShowScaleComponentsDialog(var ScaleInPercent: integer): TModalResult;
function ShowScaleComponentsDialog(out ScaleInPercent: integer): TModalResult;
var
ScaleComponentsDialog: TScaleComponentsDialog;
begin

6
ide/componentpalette.pas
View File

@ -772,12 +772,10 @@ begin
//debugln('TComponentPalette.ComponentBtnDblClick ',TComponent(Sender).Name);
if SelectAButton(TComponent(Sender)) and (FSelected<>nil) then begin
if FormEditingHook<>nil then begin
TypeClass:=FSelected.ComponentClass;
if assigned(FSelected.OnGetCreationClass) then
begin
FSelected.OnGetCreationClass(Self,TypeClass);
if TypeClass=nil then exit;
end else
TypeClass:=FSelected.ComponentClass;
if TypeClass=nil then exit;
ParentComp:=FormEditingHook.GetDefaultComponentParent(TypeClass);
if ParentComp=nil then exit;
if not FormEditingHook.GetDefaultComponentPosition(TypeClass,ParentComp,X,Y)