paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 20:59:06 +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 begin
inherited Create(AOwner); inherited Create(AOwner);
SetInline(True); SetInline(True);
ControlStyle:=ControlStyle+[csOwnedChildsNotSelectable]; ControlStyle:=ControlStyle+[csOwnedChildrenNotSelectable];
FBeautifier := SynDefaultBeautifier; FBeautifier := SynDefaultBeautifier;

4
designer/designer.pp
View File

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

2
ideintf/componenttreeview.pas
View File

@ -178,7 +178,7 @@ begin
else else
Root := AComponent.Owner; 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); TComponentAccessor(AComponent).GetChildren(@Walk, Root);
FNode := OldNode; FNode := OldNode;
FNode.Expanded := True; FNode.Expanded := True;

2
ideintf/propedits.pp
View File

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

2
lcl/buttonpanel.pas
View File

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

2
lcl/controls.pp
View File

@ -214,7 +214,7 @@ type
csHasDefaultAction, // control implements useful ExecuteDefaultAction csHasDefaultAction, // control implements useful ExecuteDefaultAction
csHasCancelAction, // control implements useful ExecuteCancelAction csHasCancelAction, // control implements useful ExecuteCancelAction
csNoDesignSelectable, // control can not be selected at design time 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; TControlStyle = set of TControlStyleType;