| Class TAQREditor (unit Qrepedit) |
TComponent
| Constructors |
constructor Create(AOwner: TComponent);| 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;