TRLCustomSite

type TRLCustomSite = class(TRLCustomControl)

protected

  procedure Loaded; override;

  procedure CalcSize(); override;

  function GetClientRect; override;

  function CanPrint; override;

  function CalcWastedPixels; override;

  function CalcPrintClientRect; override;

  function CalcPrintSizeRect; override;

  function CalcPrintBoundsRect; override;

  procedure SetClientRect(); override;

  procedure DrawBounds; override;

  procedure InternalPrint; override;

  procedure InternalPaint; override;

  procedure InternalPaintFinish; override;

  procedure RealignControls; override;

  procedure InternalMeasureHeight; override;

  procedure AlignControls();

  procedure DoOnDraw();

  procedure SurfaceOpening; dynamic;

  procedure SurfaceBeginDraw; dynamic;

  procedure SurfaceOpened; dynamic;

  procedure WriteSurface; dynamic;

  procedure SurfaceEndDraw; dynamic;

  procedure SurfaceClosed; dynamic;

  procedure TruncateSurface; dynamic;

  procedure MarkPrintPosition; dynamic;

  procedure ThrowSurface; dynamic;

  procedure PrepareBackgroundSurface(); dynamic;

  procedure DrawClient; dynamic;

  procedure DrawBackground(); dynamic;

  function CalcEffectiveRect; dynamic;

  function CalcMarginalPixels; dynamic;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetBounds(); override;

  procedure PaintAsCustomSite;

  procedure Initialize; override;

  procedure ComputeDetail(); override;

  procedure OpenSurface;

  procedure CloseSurface;

  property Background: TRLBackground; [rw]

  property Degrade: TRLDegradeEffect; [rw]

  property InsideMargins: TRLMargins; [rw]

  property Margins: TRLMargins; [rw]

  property OnDraw: TRLOnDrawEvent; [rw]

  property BeforePrint: TRLBeforePrintEvent; [rw]

  property Surface: TRLGraphicSurface; [r]

  property OnDragDrop;

  property OnDragOver;

  property OnEndDrag;

end;

TRLCustomSite

TRLCustomControl

TObject