TFPReportDesignerControl

type TFPReportDesignerControl = class(TCustomControl)

protected

  procedure SetCursorFromHandlePos(); virtual;

  procedure SetDesignerState();

  procedure DrawCurrentFocusRect();

  procedure ClearFocusRect();

  procedure SetRulerParams;

  procedure DoSelectionChanged();

  procedure SetCanvasExportCoordinates; virtual;

  function CreateExportCanvas; virtual;

  function CreateObjects; virtual;

  procedure SetPage(); virtual;

  procedure DrawGuideGrid(); virtual;

  procedure KKeyDown();

  procedure KKeyUp();

  procedure DClick();

  procedure MDown();

  procedure MUp();

  procedure MMove();

  procedure CMMouseLeave(); message;

  procedure DDDragDrop();

  procedure DDDragOver();

  procedure WMEraseBkgnd(); message;

  procedure PaintBackGround; virtual;

  procedure PaintObjects(); virtual;

  procedure PaintSelection; virtual;

  procedure PaintRulers; virtual;

  procedure Paint; override;

  procedure Paste; virtual;

  property VRuler: TDrawRuler; [r]

  property HRuler: TDrawRuler; [r]

public

  constructor Create(); override;

  destructor destroy; override;

  procedure UpdatePageParams; virtual;

  procedure Reset;

  procedure CancelOperation;

  procedure CopySelectionToClipBoard;

  class procedure CheckClipBoardFormat;

  function GetBandForPaste;

  function ShowEditorForElement();

  function AddBand();

  procedure AddElement();

  function SelectObjectsInRectangle();

  function SelectObjectAt();

  function GetObjectAt();

  property DesignerState: TDesignerState; [r]

  property Margins: TPoint; [rw]

published

  property CurrentDPI: Integer; [r]

  property DesignerOptions: TDesignerOptions; [rw]

  property GuideGridColor: TColor; [rw]

  property HorzRulerHeight: Integer; [rw]

  property MinControlHeight: Integer; [rw]

  property MinControlWidth: Integer; [rw]

  property Objects: TReportObjectList; [r]

  property Page: TFPReportCustomPage; [rw]

  property SnapResolution: Integer; [rw]

  property VertRulerWidth: Integer; [rw]

  property Zoom: Single; [rw]

  property OnElementCreated: TOnElementCreatedEvent; [rw]

  property OnSelectionChanged: TNotifyEvent; [rw]

  property OnReportChanged: TNotifyEvent; [rw]

  property OnStateChange: TNotifyEvent; [rw]

  property OnPaste: TNotifyEvent; [rw]

end;

TFPReportDesignerControl

TObject