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

Formatting, comment

Browse Source 
git-svn-id: trunk@52229 -
This commit is contained in:
juha 2016-04-21 20:40:00 +00:00
parent 2df36f2a8d
commit 6d991af10c
4 changed files with 12 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/ideintf/propeditutils.pp
View File

@ -242,9 +242,9 @@ begin
DebugLn([' ',i,' ',dbgsName(Items[i])]);
end;
function TPersistentSelectionList.IsEqual(
SourceSelectionList:TPersistentSelectionList):boolean;
var a:integer;
function TPersistentSelectionList.IsEqual(SourceSelectionList: TPersistentSelectionList): boolean;
var
a: integer;
begin
if (SourceSelectionList=nil) and (Count=0) then begin
Result:=true;

15
designer/controlselection.pp
View File

@ -362,8 +362,7 @@ type
procedure UpdateRealBounds;
procedure UpdateParentChildFlags;
procedure DoDrawMarker(Index: integer; DC: TDesignerDeviceContext);
procedure Notification(AComponent: TComponent; Operation: TOperation);
override;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
// snapping
function CleanGridSizeX: integer;
@ -2141,9 +2140,9 @@ begin
end;
end;
function TControlSelection.GetParentFormRelativeBounds(AComponent: TComponent
): TRect;
var R:TRect;
function TControlSelection.GetParentFormRelativeBounds(AComponent: TComponent): TRect;
var
R:TRect;
P : TPoint;
begin
if FMediator <> nil then
@ -2161,8 +2160,7 @@ begin
Result:=TSelectedControl(FControls[Index]);
end;
procedure TControlSelection.SetItems(Index:integer;
ASelectedControl:TSelectedControl);
procedure TControlSelection.SetItems(Index:integer; ASelectedControl:TSelectedControl);
begin
FControls[Index]:=ASelectedControl;
end;
@ -2290,7 +2288,8 @@ begin
InvalidateGrabbers;
InvalidateGuideLines;
InvalidateMarkers;
for i:=0 to FControls.Count-1 do Items[i].Free;
for i:=0 to FControls.Count-1 do
Items[i].Free;
FControls.Clear;
FStates:=FStates+cssSelectionChangeFlags-[cssLookupRootSelected];
FForm:=nil;

3
designer/designer.pp
View File

@ -2236,8 +2236,7 @@ var
end;
if not Assigned(NewParent) then exit;
if not PropertyEditorHook.BeforeAddPersistent(Self,
NewComponentClass,NewParent)
if not PropertyEditorHook.BeforeAddPersistent(Self, NewComponentClass, NewParent)
then begin
DebugLn('Note: TDesigner.AddComponent BeforeAddPersistent failed: ComponentClass=',
NewComponentClass.ClassName,' NewParent=',DbgSName(NewParent));

2
ide/main.pp
View File

@ -4972,7 +4972,7 @@ end;
procedure TMainIDE.ComponentPaletteClassSelected(Sender: TObject);
begin
// code below cant be handled correctly by integrated IDE
// code below can't be handled correctly by integrated IDE
if (IDETabMaster = nil) and (Screen.CustomFormZOrderCount > 1)
and Assigned(Screen.CustomFormsZOrdered[1].Designer) then
begin