[Lazarus] Had a look at control.inc..

[Mattias Gaertner]

On Sun, 14 Dec 2008 08:48:48 -0800 (PST)
Samuel Herzog <sam_herzog at yahoo.com> wrote:

> For example:
> 
> procedure TControl.ParentFontChanged;
> begin
>   if csLoading in ComponentState then exit;
> 
>   if FParentFont then
>   begin
>     Font := FParent.Font;
>     FParentFont := true;
>   end;
> end;   

Called by parent, so Parent<>nil.
  
 
> or 
> 
> procedure TControl.AnchorAsAlign(TheAlign: TAlign; Space: Integer);
> begin
>   Parent.DisableAlign;
>   try             

If Parent=nil then user made an error.


> or
> 
> procedure TControl.CMParentColorChanged(var Message: TLMessage);
> begin
>   if csLoading in ComponentState then exit;
>   
>   if FParentColor then
>   begin
>     Color := FParent.Color;
>     FParentColor := true;
>   end;

Called by parent, so Parent<>nil.

 
> or
> 
> procedure TControl.CMParentShowHintChanged(var Message: TLMessage);
> begin
>   if FParentShowHint then
>   begin
>     ShowHint := FParent.ShowHint;
>     FParentShowHint := true;
>   end;
> end; 

Called by parent, so Parent<>nil.


Mattias