Class TAQREditor (unit Qrepedit)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

TAQREditor


Functions

procedure DefaultFormatValue(const FormatStr:string; ValueType:TFormatValueType; ValuePtr:Pointer; var ResultStr:String);


destructor Destroy;


procedure EditReport;


procedure LoadReport;


procedure SetFieldDateTime(const FieldName:string; Value:TDateTime);


procedure SetFieldFloat(const FieldName:string; Value:extended);


procedure SetFieldInteger(const FieldName:string; Value:longint);


procedure SetFieldString(const FieldName:string; const Value:string);


procedure SetFieldValue(const FieldName:string; ValueType:TFormatValueType; ValuePtr:Pointer);


procedure DoFormatValue(const FormatStr:string; ValueType:TFormatValueType; ValuePtr:Pointer; var ResultStr:string);


procedure ControlMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ControlMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure ControlMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure DisableEdit;


procedure EditControl(Sender: TControl);


procedure EditCreateLabelClick(Sender:TObject);


procedure EditCreateMemoClick(Sender:TObject);


procedure EditCreateShapeClick(Sender:TObject);


procedure EditDeleteClick(Sender:TObject);


procedure EditMoveClick(Sender:TObject);


procedure EditPropertyClick(Sender:TObject);


procedure EnableEdit;


procedure FileCloseClick(Sender:TObject);


procedure FileOpenClick(Sender:TObject);


procedure FilePageClick(Sender:TObject);


procedure FilePrintClick(Sender:TObject);


procedure FilePrinterClick(Sender:TObject);


procedure FileSaveClick(Sender:TObject);


procedure GetFormats(Sender:TObject);


procedure PopupChangeClick(Sender:TObject);


procedure PopupDeleteClick(Sender:TObject);


procedure PopupMoveClick(Sender:TObject);


procedure PopupToBackClick(Sender:TObject);


procedure PopupToFrontClick(Sender:TObject);


Properties

property FileName : string


Events

event OnCreateMenu : TNotifyEvent


event OnFormatValue : TFormatValueEvent


event OnGetFieldFormats : TGetFieldFormatsEvent


event OnGetFieldNames : TGetFieldNamesEvent


event OnPrintPreview : TNotifyEvent


Variables

CreateClass : integer;


EditMode : integer;


FFileName : string;


FOnCreateMenu : TNotifyEvent;


FOnFormatValue : TFormatValueEvent;


FOnGetFieldFormats : TGetFieldFormatsEvent;


FOnGetFieldNames : TGetFieldNamesEvent;


FOnPrintPreview : TNotifyEvent;


FrameControl : TShape;


MainMenu : TMainMenu;


MoveControl : TControl;


MoveMode : integer;


MoveRect : Trect;


MoveX : integer;


moveY : integer;


PopupControl : TControl;


PopupMenu : TPopupMenu;



Constructors


constructor Create(AOwner: TComponent);

TAQREditor


Functions


procedure DefaultFormatValue(const FormatStr:string; ValueType:TFormatValueType; ValuePtr:Pointer; var ResultStr:String);


destructor Destroy;


procedure EditReport;


procedure LoadReport;


procedure SetFieldDateTime(const FieldName:string; Value:TDateTime);


procedure SetFieldFloat(const FieldName:string; Value:extended);


procedure SetFieldInteger(const FieldName:string; Value:longint);


procedure SetFieldString(const FieldName:string; const Value:string);


procedure SetFieldValue(const FieldName:string; ValueType:TFormatValueType; ValuePtr:Pointer);


procedure DoFormatValue(const FormatStr:string; ValueType:TFormatValueType; ValuePtr:Pointer; var ResultStr:string);


procedure ControlMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ControlMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);


procedure ControlMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure DisableEdit;


procedure EditControl(Sender: TControl);


procedure EditCreateLabelClick(Sender:TObject);


procedure EditCreateMemoClick(Sender:TObject);


procedure EditCreateShapeClick(Sender:TObject);


procedure EditDeleteClick(Sender:TObject);


procedure EditMoveClick(Sender:TObject);


procedure EditPropertyClick(Sender:TObject);


procedure EnableEdit;


procedure FileCloseClick(Sender:TObject);


procedure FileOpenClick(Sender:TObject);


procedure FilePageClick(Sender:TObject);


procedure FilePrintClick(Sender:TObject);


procedure FilePrinterClick(Sender:TObject);


procedure FileSaveClick(Sender:TObject);


procedure GetFormats(Sender:TObject);


procedure PopupChangeClick(Sender:TObject);


procedure PopupDeleteClick(Sender:TObject);


procedure PopupMoveClick(Sender:TObject);


procedure PopupToBackClick(Sender:TObject);


procedure PopupToFrontClick(Sender:TObject);


Properties


property FileName : string


Events


event OnCreateMenu : TNotifyEvent


event OnFormatValue : TFormatValueEvent


event OnGetFieldFormats : TGetFieldFormatsEvent


event OnGetFieldNames : TGetFieldNamesEvent


event OnPrintPreview : TNotifyEvent


Variables


CreateClass : integer;


EditMode : integer;


FFileName : string;


FOnCreateMenu : TNotifyEvent;


FOnFormatValue : TFormatValueEvent;


FOnGetFieldFormats : TGetFieldFormatsEvent;


FOnGetFieldNames : TGetFieldNamesEvent;


FOnPrintPreview : TNotifyEvent;


FrameControl : TShape;


MainMenu : TMainMenu;


MoveControl : TControl;


MoveMode : integer;


MoveRect : Trect;


MoveX : integer;


moveY : integer;


PopupControl : TControl;


PopupMenu : TPopupMenu;