TKCustomControl

type TKCustomControl = class(TCustomControl)

protected

  FFlags: Cardinal;

  FMessages: array of TLMessage;

  FOldClientSize: TPoint;

  FPreviewList: TList;

  FResizeCalled: Boolean;

  procedure AddPreview();

  procedure AdjustPageSetup; virtual;

  procedure CallUpdateSize; virtual;

  procedure CancelMode; virtual;

  procedure CreateHandle; override;

  procedure CreateParams(); override;

  procedure DoOnChangeBounds; override;

  procedure FlagAssign();

  procedure FlagClear();

  procedure FlagSet();

  procedure FlagToggle();

  procedure InvalidatePageSetup;

  procedure InvalidateRectArea(); virtual;

  function InternalGetSelAvail; virtual;

  procedure InternalUnlockUpdate; virtual;

  function IsThemed; virtual;

  procedure LateUpdate(); virtual;

  procedure MeasurePages(); virtual;

  function MessagePeek();

  procedure MessagePoke();

  function MessageSearch();

  procedure MouseFormLeave; virtual;

  procedure MouseMove(); override;

  procedure NotifyPreviews;

  procedure Paint; override;

  procedure PaintPage; virtual;

  procedure PaintToCanvas(); virtual; abstract;

  procedure PostLateUpdate();

  procedure PrintNotify(); virtual;

  procedure PrintPaint; virtual;

  procedure PrintPaintBegin; virtual;

  procedure PrintPaintEnd; virtual;

  procedure RemovePreview();

  procedure Resize; override;

  function SetMouseCursor(); virtual;

  procedure UpdateSize; virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  function Flag();

  procedure Invalidate; override;

  procedure LockUpdate; virtual;

  procedure PrintOut;

  procedure UnlockUpdate; virtual;

  function UpdateUnlocked; virtual;

  property BorderStyle;

  property CanPrint: Boolean; [r]

  property MouseInClient: Boolean; [r]

  property MemoryCanvas: TCanvas; [rw]

  property MemoryCanvasRect: TRect; [rw]

  property OnPrintNotify: TKPrintNotifyEvent; [rw]

  property OnPrintPaint: TKPrintPaintEvent; [rw]

  property PageSetup: TKPrintPageSetup; [rw]

  property PageSetupAllocated: Boolean; [r]

  property ParentBackground: Boolean; [rw]

  property ParentDoubleBuffered: Boolean; [rw]

end;

TKCustomControl

TObject