unit2.pas

Report Machine Sample

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls, RM_Common, RM_Class, RM_e_Graphic, RM_e_bmp,
  RM_DialogCtls, RM_CheckBox, RM_BarCode, RM_RichEdit, RM_Ole,
  RM_DsgGridReport, RM_GridReport, RM_Chart, RM_e_main, RM_e_Xls, RM_e_htm;

type
  TForm2 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    RMOLEObject1: TRMOLEObject;
    RMRichObject1: TRMRichObject;
    RMBarCodeObject1: TRMBarCodeObject;
    RMCheckBoxObject1: TRMCheckBoxObject;
    RMDialogControls1: TRMDialogControls;
    RMBMPExport1: TRMBMPExport;
    RMGridReport1: TRMGridReport;
    RMGridReportDesigner1: TRMGridReportDesigner;
    RMChartObject1: TRMChartObject;
    RMXLSExport1: TRMXLSExport;
    RMHTMExport1: TRMHTMExport;
    procedure RMReport1MouseOverObject(View: TRMView; var Cursor: TCursor);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

uses Unit1;

{$R *.DFM}

procedure TForm2.RMReport1MouseOverObject(View: TRMView; var Cursor: TCursor);
begin
  if View.Name = 'Memo8' then
    Cursor := crHand;
end;

{procedure TForm2.RMReport1ObjectClick(EMFPages: TRMEMFPages;
  aPageNo: Integer; View: TRMView);
begin
  ShowMessage('Name: ' + View.Name + #13#10 + 'Contents:' + #13#10 +
    View.Memo.Text);
end;}

end.