PrintPreview Standard FireMonkey

[acastel]

Can I call the PrintPreview or something like this with TChart Standard on XE4 Firemonkey desktop application???
(2013.08.130430 32bits FMX)

[Narcís]

Hello,

You should try doing as explained here using FMXTee prefixed units instead.

[acastel]

Hello,
Thanks for the help.
This worked to show the preview print:

uses FMXTee.Print.Preview and TChartPreview.Preview(Self, Chart1);

But..... I got another problem. The preview window opens with all black (see the print screen).
Your suggestion didn´t work.

PrintPreview.jpg (40.96 KiB) Viewed 13643 times

[Yeray]

Hi,


Are you sure you are using the Standard version? This doesn't work for me.

Code: Select all

uses FMXTee.Print.Preview;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TChartPreview.Preview(Self, Chart1);
end;

Could you please arrange a simple example project we can run as is to reproduce the black dialog in the picture?

[acastel]

Hi Yeray,

There is:

Code: Select all

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes,
  System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs,
  FMX.StdCtrls, FMXTee.Engine, FMXTee.Procs, FMXTee.Chart, FMXTee.Series, FMXTee.Print.Preview;

type
  TForm1 = class(TForm)
    Chart1: TChart;
    Button1: TButton;
    Series1: TLineSeries;
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
TChartPreview.Preview(Self, Chart1);
end;

procedure TForm1.FormShow(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to 200 do
  begin
  Chart1.Series[0].AddY(Random(1000));
  end;
end;

end.

Thanks!

Imagen1.jpg (365.6 KiB) Viewed 13578 times

Imagen3.jpg (249.11 KiB) Viewed 13578 times

[Narcís]

Hello,

I can not reproduce this with TeeChart Pro FMX build 2013.08.130521 (latest maintenance release available) nor with the current beta. Can you please check if 2013.08.130521's eval version or the beta solve the problem at your end? Otherwise, you might expect the issue being fixed for the next maintenance release due out by the end of this week or next week the latest.