TRLCustomControl

type TRLCustomControl = class(TCustomControl)

protected

  fBeforeText: TRLBeforeTextEvent;

  fBeforePrint: TRLBeforePrintEvent;

  procedure PrintAsCustomControl;

  procedure PaintAsCustomControl;

  procedure Notification(); override;

  procedure RequestAlign; override;

  function GetClientRect; override;

  procedure SetName(); override;

  procedure WMMOUSEMOVE(); message;

  procedure SetParent(); override;

  procedure InternalPaintFinish; dynamic;

  procedure InternalPaint; dynamic;

  procedure Paint; override;

  procedure SetAutoSize();

  function GetCaption;

  function GetMasterReport;

  function GetClientHeight;

  function GetClientWidth;

  procedure AdjustToParentFrame();

  procedure AdjustToFixedSize();

  procedure AdjustToHolder();

  function CanSetWidth;

  function CanSetHeight;

  procedure ExpandParentSite;

  procedure AdjustAlignment();

  procedure DoAfterPrint;

  procedure DoBeforePrint;

  procedure DoBeforeText();

  procedure DoOnMeasureHeight;

  function GetMadeCaption;

  procedure MakeCaption;

  procedure AdjustBounds;

  procedure RealignHoldeds;

  procedure Hold();

  procedure Unhold();

  procedure CheckParent();

  function IsBallast;

  function CanPrint; dynamic;

  procedure CalcSize(); dynamic;

  procedure DrawBounds; dynamic;

  function CalcWastedPixels; dynamic;

  function CalcPrintClientRect; dynamic;

  function CalcPrintBoundsRect; dynamic;

  function CalcPrintSizeRect; dynamic;

  function CalcSizeRect; dynamic;

  procedure SetClientRect(); virtual;

  function InternalMakeCaption; dynamic;

  procedure Initialize; dynamic;

  procedure ComputeDetail(); dynamic;

  procedure InternalPrint; dynamic;

  procedure RealignControls; dynamic;

  procedure InternalMeasureHeight; dynamic;

  function GetAttribute(); virtual;

  function SetAttribute(); virtual;

  procedure CMColorChanged(); message;

  procedure CMFontChanged(); message;

  procedure PrepareStatics;

  procedure PrintStatics;

  procedure PrintNonStatics;

  property CouldPrint: Boolean; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetBounds(); override;

  function IsPreparing;

  function IsMeasurable;

  procedure MeasureHeight;

  procedure PushBoundsRect;

  procedure PopBoundsRect;

  procedure Print;

  function FindParentSite;

  function FindParentBand;

  function FindParentGroup;

  function FindParentPager;

  function FindParentSkipper;

  function FindParentReport;

  function RequestParentPager;

  function RequestParentSkipper;

  function RequestParentSurface;

  function RequestParentReport;

  procedure Realign;

  function FindParentSurface; dynamic;

  property Anchors: TRLControlAnchors; [rw]

  property Align: TRLControlAlign; [rw]

  property Alignment: TRLTextAlignment; [rw]

  property AutoSize: Boolean; [rw]

  property AutoSizeDir: TRLAutoSizeDirSet; [rw]

  property AutoExpand: Boolean; [rw]

  property AutoTrunc: Boolean; [rw]

  property Behavior: TRLControlBehavior; [rws]

  property Caption: TCaption; [rws]

  property FriendlyName: string; [rws]

  property HoldStyle: TRLHoldStyle; [rw]

  property HolderOffset: TPoint; [rw]

  property Layout: TRLTextLayout; [rw]

  property SecondHoldStyle: TRLHoldStyle; [rw]

  property SecondHolderOffset: TPoint; [rw]

  property Transparent: Boolean; [rw]

  property ControlState: TRLControlState; [rw]

  property OldBoundsRect: TRect; [rw]

  property PeekBoundsRect: TRect; [rw]

  property ClientHeight: Integer; [rw]

  property ClientRect: TRect; [rw]

  property ClientWidth: Integer; [rw]

  property Holder: TRLCustomControl; [rw]

  property SecondHolder: TRLCustomControl; [rw]

  property Borders: TRLBorders; [rw]

  property RealBounds: TRLRealBounds; [rw]

  property Holdeds: TList; [r]

  property MasterReport: TRLCustomReport; [r]

  property AfterPrint: TRLAfterPrintEvent; [rw]

  property OnMeasureHeight: TNotifyEvent; [rw]

  property ParentColor;

  property ParentFont;

  property Visible;

  property Color;

  property Font;

end;

TRLCustomControl

TObject