Page 1 of 1
PrintPreview Standard FireMonkey
Posted: Sat Oct 26, 2013 11:18 pm
by 16867595
Can I call the PrintPreview or something like this with TChart Standard on XE4 Firemonkey desktop application???
(2013.08.130430 32bits FMX)
Re: PrintPreview Standard FireMonkey
Posted: Mon Oct 28, 2013 8:38 am
by narcis
Hello,
You should try doing as explained
here using FMXTee prefixed units instead.
Re: PrintPreview Standard FireMonkey
Posted: Wed Oct 30, 2013 3:05 am
by 16867595
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 12544 times
Re: PrintPreview Standard FireMonkey
Posted: Thu Oct 31, 2013 4:01 pm
by 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?
Re: PrintPreview Standard FireMonkey
Posted: Mon Nov 04, 2013 12:26 pm
by 16867595
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 12479 times
- Imagen3.jpg (249.11 KiB) Viewed 12479 times
Re: PrintPreview Standard FireMonkey
Posted: Tue Nov 05, 2013 11:28 am
by narcis
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.