paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 23:39:40 +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; Pen.Color:=clRed;
Rectangle(0,0,AWidget.Width,AWidget.Height); Rectangle(0,0,AWidget.Width,AWidget.Height);
// inner frame // inner frame
if AWidget.AcceptChildsAtDesignTime then begin if AWidget.AcceptChildrenAtDesignTime then begin
Pen.Color:=clMaroon; Pen.Color:=clMaroon;
Rectangle(AWidget.BorderLeft-1,AWidget.BorderTop-1, Rectangle(AWidget.BorderLeft-1,AWidget.BorderTop-1,
AWidget.Width-AWidget.BorderRight+1, AWidget.Width-AWidget.BorderRight+1,
@ -223,7 +223,7 @@ function TMyWidgetMediator.ParentAcceptsChild(Parent: TComponent;
Child: TComponentClass): boolean; Child: TComponentClass): boolean;
begin begin
Result:=(Parent is TMyWidget) and (Child.InheritsFrom(TMyWidget)) Result:=(Parent is TMyWidget) and (Child.InheritsFrom(TMyWidget))
and (TMyWidget(Parent).AcceptChildsAtDesignTime); and (TMyWidget(Parent).AcceptChildrenAtDesignTime);
end; end;
{ TFileDescPascalUnitWithMyForm } { TFileDescPascalUnitWithMyForm }

8
examples/designnonlcl/mywidgetset.pas
View File

@ -51,7 +51,7 @@ type
TMyWidget = class(TComponent) TMyWidget = class(TComponent)
private private
FAcceptChildsAtDesignTime: boolean; FAcceptChildrenAtDesignTime: boolean;
FBorderBottom: integer; FBorderBottom: integer;
FBorderLeft: integer; FBorderLeft: integer;
FBorderRight: integer; FBorderRight: integer;
@ -92,7 +92,7 @@ type
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;
property AcceptChildsAtDesignTime: boolean read FAcceptChildsAtDesignTime; property AcceptChildrenAtDesignTime: boolean read FAcceptChildrenAtDesignTime;
published published
property Left: integer read FLeft write SetLeft; property Left: integer read FLeft write SetLeft;
property Top: integer read FTop write SetTop; property Top: integer read FTop write SetTop;
@ -262,7 +262,7 @@ begin
FBorderRight:=5; FBorderRight:=5;
FBorderBottom:=5; FBorderBottom:=5;
FBorderTop:=20; FBorderTop:=20;
FAcceptChildsAtDesignTime:=true; FAcceptChildrenAtDesignTime:=true;
end; end;
destructor TMyWidget.Destroy; destructor TMyWidget.Destroy;
@ -327,7 +327,7 @@ end;
constructor TMyButton.Create(AOwner: TComponent); constructor TMyButton.Create(AOwner: TComponent);
begin begin
inherited Create(AOwner); inherited Create(AOwner);
FAcceptChildsAtDesignTime:=false; FAcceptChildrenAtDesignTime:=false;
end; end;
end. end.