On Sun, 14 Dec 2008 08:48:48 -0800 (PST) Samuel Herzog <[email protected]> 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 _______________________________________________ Lazarus mailing list [email protected] http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
