paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-14 20:22:52 +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 SetVisible(const AValue: boolean);
procedure SetWidth(const AValue: integer); procedure SetWidth(const AValue: integer);
protected protected
procedure InternalInvalidateRect(ARect: TRect; Erase: boolean); virtual; procedure InternalInvalidateRect({%H-}ARect: TRect; {%H-}Erase: boolean); virtual;
procedure SetName(const NewName: TComponentName); override; procedure SetName(const NewName: TComponentName); override;
procedure SetParentComponent(Value: TComponent); override; procedure SetParentComponent(Value: TComponent); override;
function HasParent: Boolean; override;
function GetParentComponent: TComponent; override;
procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override; procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
@ -89,6 +87,8 @@ type
property Parent: TMyWidget read FParent write SetParent; property Parent: TMyWidget read FParent write SetParent;
function ChildCount: integer; function ChildCount: integer;
property Children[Index: integer]: TMyWidget read GetChilds; property Children[Index: integer]: TMyWidget read GetChilds;
function HasParent: Boolean; override;
function GetParentComponent: TComponent; override;
procedure SetBounds(NewLeft, NewTop, NewWidth, NewHeight: integer); virtual; procedure SetBounds(NewLeft, NewTop, NewWidth, NewHeight: integer); virtual;
procedure InvalidateRect(ARect: TRect; Erase: boolean); procedure InvalidateRect(ARect: TRect; Erase: boolean);
procedure Invalidate; procedure Invalidate;

6
ideintf/docs/formeditingintf.xml
View File

@ -18,7 +18,7 @@
No override needed.</descr> No override needed.</descr>
</element> </element>
<element name="TDesignerMediator.CollectChildren"> <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> <descr>
<printshort id="TDesignerMediator.CollectChildren"/> <printshort id="TDesignerMediator.CollectChildren"/>
No override needed.</descr> 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. MinClass can be nil. If MinClass is given the returned component must inherit from MinClass.
</descr> </descr>
</element> </element>
<element name="TDesignerMediator.GetChilds"> <element name="TDesignerMediator.GetChildComponents">
<short>Return a list of child components.</short> <short>Return a list of child components.</short>
<descr> <descr>
<printshort id="TDesignerMediator.GetChilds"/> <printshort id="TDesignerMediator.GetChildComponents"/>
No need to override. No need to override.
Child components are those with GetParentComponent=Parent. Child components are those with GetParentComponent=Parent.
Normally all components on a form have the same Owner but can have different parents.</descr> 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; FLCLForm: TForm;
FRoot: TComponent; FRoot: TComponent;
protected protected
FCollectedChilds: TFPList; FCollectedChildren: TFPList;
procedure SetDesigner(const AValue: TComponentEditorDesigner); virtual; procedure SetDesigner(const AValue: TComponentEditorDesigner); virtual;
procedure SetLCLForm(const AValue: TForm); virtual; procedure SetLCLForm(const AValue: TForm); virtual;
procedure SetRoot(const AValue: TComponent); virtual; procedure SetRoot(const AValue: TComponent); virtual;
@ -73,7 +73,7 @@ type
function ComponentIsSelectable(AComponent: TComponent): Boolean; virtual; function ComponentIsSelectable(AComponent: TComponent): Boolean; virtual;
function ComponentAtPos(p: TPoint; MinClass: TComponentClass; function ComponentAtPos(p: TPoint; MinClass: TComponentClass;
Flags: TDMCompAtPosFlags): TComponent; virtual; 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 function UseRTTIForMethods(aComponent: TComponent): boolean; virtual; // false = use sources
// events // events
@ -276,7 +276,7 @@ end;
procedure TDesignerMediator.CollectChildren(Child: TComponent); procedure TDesignerMediator.CollectChildren(Child: TComponent);
begin begin
FCollectedChilds.Add(Child); FCollectedChildren.Add(Child);
end; end;
procedure TDesignerMediator.Notification(AComponent: TComponent; procedure TDesignerMediator.Notification(AComponent: TComponent;
@ -438,7 +438,7 @@ begin
OffsetRect(ClientArea,Offset.X,Offset.Y); OffsetRect(ClientArea,Offset.X,Offset.Y);
Children:=TFPList.Create; Children:=TFPList.Create;
try try
GetChilds(Result,Children); GetChildComponents(Result,Children);
//DebugLn(['TDesignerMediator.ComponentAtPos Result=',DbgSName(Result),' ChildCount=',children.Count,' ClientArea=',dbgs(ClientArea)]); //DebugLn(['TDesignerMediator.ComponentAtPos Result=',DbgSName(Result),' ChildCount=',children.Count,' ClientArea=',dbgs(ClientArea)]);
Found:=false; Found:=false;
// iterate backwards (z-order) // iterate backwards (z-order)
@ -469,14 +469,14 @@ begin
end; end;
end; end;
procedure TDesignerMediator.GetChilds(Parent: TComponent; procedure TDesignerMediator.GetChildComponents(Parent: TComponent;
ChildComponents: TFPList); ChildComponents: TFPList);
begin begin
FCollectedChilds:=ChildComponents; FCollectedChildren:=ChildComponents;
try try
TDesignerMediator(Parent).GetChildren(@CollectChildren,Root); TDesignerMediator(Parent).GetChildren(@CollectChildren,Root);
finally finally
FCollectedChilds:=nil; FCollectedChildren:=nil;
end; end;
end; end;