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

lcl, designer, ideintf, components: rename csOwnedChildsNotSelectable -> csOwnedChildrenNotSelectable

Browse Source 
git-svn-id: trunk@23185 -
This commit is contained in:
paul 2009-12-18 10:07:11 +00:00
parent 0428915070
commit 5b7d36de82
6 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/synedit.pp
View File

@ -1497,7 +1497,7 @@ constructor TCustomSynEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
SetInline(True);
ControlStyle:=ControlStyle+[csOwnedChildsNotSelectable];
ControlStyle:=ControlStyle+[csOwnedChildrenNotSelectable];
FBeautifier := SynDefaultBeautifier;

4
designer/designer.pp
View File

@ -454,7 +454,7 @@ begin
// search in children
if (csInline in Child.ComponentState) or
(Assigned(Control) and not (csOwnedChildsNotSelectable in Control.ControlStyle)) then
(Assigned(Control) and not (csOwnedChildrenNotSelectable in Control.ControlStyle)) then
begin
{$IFDEF VerboseDesignerSelect}
DebugLn(['TComponentSearch.Gather search in children of ',DbgSName(Child)]);
@ -1649,7 +1649,7 @@ begin
if Result=Form then exit;
if (Result.Owner is TControl) then begin
OwnerControl:=TControl(Result.Owner);
if (not (csOwnedChildsNotSelectable in OwnerControl.ControlStyle)) then
if (not (csOwnedChildrenNotSelectable in OwnerControl.ControlStyle)) then
exit;
Result:=GetDesignControl(OwnerControl);
end else begin

2
ideintf/componenttreeview.pas
View File

@ -178,7 +178,7 @@ begin
else
Root := AComponent.Owner;
if not ((Root is TControl) and (csOwnedChildsNotSelectable in TControl(Root).ControlStyle)) then
if not ((Root is TControl) and (csOwnedChildrenNotSelectable in TControl(Root).ControlStyle)) then
TComponentAccessor(AComponent).GetChildren(@Walk, Root);
FNode := OldNode;
FNode.Expanded := True;

2
ideintf/propedits.pp
View File

@ -1660,7 +1660,7 @@ begin
if csInline in Child.ComponentState then begin
if scfWithoutInlineChilds in Flags then exit;
if (Child is TControl)
and (csOwnedChildsNotSelectable in TControl(Child).ControlStyle) then
and (csOwnedChildrenNotSelectable in TControl(Child).ControlStyle) then
exit;
Root:=Child;
end;

2
lcl/buttonpanel.pas
View File

@ -414,7 +414,7 @@ constructor TCustomButtonPanel.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle + [csOwnedChildsNotSelectable];
ControlStyle := ControlStyle + [csOwnedChildrenNotSelectable];
Align := alBottom;
BevelInner := bvNone;

2
lcl/controls.pp
View File

@ -214,7 +214,7 @@ type
csHasDefaultAction, // control implements useful ExecuteDefaultAction
csHasCancelAction, // control implements useful ExecuteCancelAction
csNoDesignSelectable, // control can not be selected at design time
csOwnedChildsNotSelectable // child controls owned by this control are NOT selectable in the designer
csOwnedChildrenNotSelectable // child controls owned by this control are NOT selectable in the designer
);
TControlStyle = set of TControlStyleType;