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

examples: fixed typo

Browse Source 
git-svn-id: trunk@44516 -
This commit is contained in:
mattias 2014-03-25 16:58:56 +00:00
parent 519d7fa8c0
commit bd0336f030
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/designnonlcl/mywidgetdesigner.pas
View File

@ -178,7 +178,7 @@ procedure TMyWidgetMediator.Paint;
Pen.Color:=clRed;
Rectangle(0,0,AWidget.Width,AWidget.Height);
// inner frame
if AWidget.AcceptChildsAtDesignTime then begin
if AWidget.AcceptChildrenAtDesignTime then begin
Pen.Color:=clMaroon;
Rectangle(AWidget.BorderLeft-1,AWidget.BorderTop-1,
AWidget.Width-AWidget.BorderRight+1,
@ -223,7 +223,7 @@ function TMyWidgetMediator.ParentAcceptsChild(Parent: TComponent;
Child: TComponentClass): boolean;
begin
Result:=(Parent is TMyWidget) and (Child.InheritsFrom(TMyWidget))
and (TMyWidget(Parent).AcceptChildsAtDesignTime);
and (TMyWidget(Parent).AcceptChildrenAtDesignTime);
end;
{ TFileDescPascalUnitWithMyForm }

8
examples/designnonlcl/mywidgetset.pas
View File

@ -51,7 +51,7 @@ type
TMyWidget = class(TComponent)
private
FAcceptChildsAtDesignTime: boolean;
FAcceptChildrenAtDesignTime: boolean;
FBorderBottom: integer;
FBorderLeft: integer;
FBorderRight: integer;
@ -92,7 +92,7 @@ type
procedure SetBounds(NewLeft, NewTop, NewWidth, NewHeight: integer); virtual;
procedure InvalidateRect(ARect: TRect; Erase: boolean);
procedure Invalidate;
property AcceptChildsAtDesignTime: boolean read FAcceptChildsAtDesignTime;
property AcceptChildrenAtDesignTime: boolean read FAcceptChildrenAtDesignTime;
published
property Left: integer read FLeft write SetLeft;
property Top: integer read FTop write SetTop;
@ -262,7 +262,7 @@ begin
FBorderRight:=5;
FBorderBottom:=5;
FBorderTop:=20;
FAcceptChildsAtDesignTime:=true;
FAcceptChildrenAtDesignTime:=true;
end;
destructor TMyWidget.Destroy;
@ -327,7 +327,7 @@ end;
constructor TMyButton.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FAcceptChildsAtDesignTime:=false;
FAcceptChildrenAtDesignTime:=false;
end;
end.