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

IDEIntf: fixed typo

Browse Source 
git-svn-id: trunk@40124 -
This commit is contained in:
mattias 2013-02-02 17:02:05 +00:00
parent b1f83315c0
commit b3c87aeb8c
3 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
examples/designnonlcl/mywidgetset.pas
View File

@ -77,11 +77,9 @@ type
procedure SetVisible(const AValue: boolean);
procedure SetWidth(const AValue: integer);
protected
procedure InternalInvalidateRect(ARect: TRect; Erase: boolean); virtual;
procedure InternalInvalidateRect({%H-}ARect: TRect; {%H-}Erase: boolean); virtual;
procedure SetName(const NewName: TComponentName); override;
procedure SetParentComponent(Value: TComponent); override;
function HasParent: Boolean; override;
function GetParentComponent: TComponent; override;
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
public
constructor Create(AOwner: TComponent); override;
@ -89,6 +87,8 @@ type
property Parent: TMyWidget read FParent write SetParent;
function ChildCount: integer;
property Children[Index: integer]: TMyWidget read GetChilds;
function HasParent: Boolean; override;
function GetParentComponent: TComponent; override;
procedure SetBounds(NewLeft, NewTop, NewWidth, NewHeight: integer); virtual;
procedure InvalidateRect(ARect: TRect; Erase: boolean);
procedure Invalidate;

6
ideintf/docs/formeditingintf.xml
View File

@ -18,7 +18,7 @@
No override needed.</descr>
</element>
<element name="TDesignerMediator.CollectChildren">
<short>Used by GetChilds to add collected children to add to FCollectedChilds.</short>
<short>Used by GetChildComponents to add collected children to add to FCollectedChildren.</short>
<descr>
<printshort id="TDesignerMediator.CollectChildren"/>
No override needed.</descr>
@ -139,10 +139,10 @@ The position p is relative to the 0,0 of the client area of the Root component.
MinClass can be nil. If MinClass is given the returned component must inherit from MinClass.
</descr>
</element>
<element name="TDesignerMediator.GetChilds">
<element name="TDesignerMediator.GetChildComponents">
<short>Return a list of child components.</short>
<descr>
<printshort id="TDesignerMediator.GetChilds"/>
<printshort id="TDesignerMediator.GetChildComponents"/>
No need to override.
Child components are those with GetParentComponent=Parent.
Normally all components on a form have the same Owner but can have different parents.</descr>

14
ideintf/formeditingintf.pas
View File

@ -48,7 +48,7 @@ type
FLCLForm: TForm;
FRoot: TComponent;
protected
FCollectedChilds: TFPList;
FCollectedChildren: TFPList;
procedure SetDesigner(const AValue: TComponentEditorDesigner); virtual;
procedure SetLCLForm(const AValue: TForm); virtual;
procedure SetRoot(const AValue: TComponent); virtual;
@ -73,7 +73,7 @@ type
function ComponentIsSelectable(AComponent: TComponent): Boolean; virtual;
function ComponentAtPos(p: TPoint; MinClass: TComponentClass;
Flags: TDMCompAtPosFlags): TComponent; virtual;
procedure GetChilds(Parent: TComponent; ChildComponents: TFPList); virtual;
procedure GetChildComponents(Parent: TComponent; ChildComponents: TFPList); virtual;
function UseRTTIForMethods(aComponent: TComponent): boolean; virtual; // false = use sources
// events
@ -276,7 +276,7 @@ end;
procedure TDesignerMediator.CollectChildren(Child: TComponent);
begin
FCollectedChilds.Add(Child);
FCollectedChildren.Add(Child);
end;
procedure TDesignerMediator.Notification(AComponent: TComponent;
@ -438,7 +438,7 @@ begin
OffsetRect(ClientArea,Offset.X,Offset.Y);
Children:=TFPList.Create;
try
GetChilds(Result,Children);
GetChildComponents(Result,Children);
//DebugLn(['TDesignerMediator.ComponentAtPos Result=',DbgSName(Result),' ChildCount=',children.Count,' ClientArea=',dbgs(ClientArea)]);
Found:=false;
// iterate backwards (z-order)
@ -469,14 +469,14 @@ begin
end;
end;
procedure TDesignerMediator.GetChilds(Parent: TComponent;
procedure TDesignerMediator.GetChildComponents(Parent: TComponent;
ChildComponents: TFPList);
begin
FCollectedChilds:=ChildComponents;
FCollectedChildren:=ChildComponents;
try
TDesignerMediator(Parent).GetChildren(@CollectChildren,Root);
finally
FCollectedChilds:=nil;
FCollectedChildren:=nil;
end;
end;